From 9c610b03c42235b73b4390fdc9cfc8cfe1b962a9 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 11 Oct 1999 09:53:03 +0000 Subject: [PATCH] (vc-backend-diff): get rid of the autoloaded advice. --- lisp/ChangeLog | 4 ++++ lisp/diff-mode.el | 13 ------------- 2 files changed, 4 insertions(+), 13 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f9e677aa239..bd0d9840b6f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +1999-10-11 Stefan Monnier + + * diff-mode.el (vc-backend-diff): get rid of the autoloaded advice. + 1999-10-09 Stefan Monnier * Makefile (setwins): abstract out the command to find subdirectories diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el index 65cc09c11f5..7262b6b54f0 100644 --- a/lisp/diff-mode.el +++ b/lisp/diff-mode.el @@ -754,19 +754,6 @@ See `after-change-functions' for the meaning of BEG, END and LEN." (diff-fixup-modifs (point) (cdr diff-unhandled-changes)))) (setq diff-unhandled-changes nil))) -;;;###autoload -(defadvice vc-backend-diff (around diff-mode-vc activate) - ;; BEWARE!! when this is autoloaded, CL might not be available - (condition-case () - (with-current-buffer "*vc-diff*" (setq buffer-read-only nil)) - (error nil)) - ad-do-it - (condition-case () - (with-current-buffer "*vc-diff*" - (if (memq major-mode '(fundamental-mode diff-mode)) (diff-mode))) - (error nil))) - - ;;;; ;;;; The main function ;;;; -- 2.11.4.GIT