(vc-backend-diff): get rid of the autoloaded advice.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f9e677aa239921837ea1a97d34d93e304bafd227..bd0d9840b6f338513bd36a3ff54db8b4243786ca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-10-11  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * diff-mode.el (vc-backend-diff): get rid of the autoloaded advice.
+
 1999-10-09  Stefan Monnier  <monnier@cs.yale.edu>
 
        * Makefile (setwins): abstract out the command to find subdirectories

diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el
index 65cc09c11f54db5cff8a830a331f354c8c3bb588..7262b6b54f013ea50a92ed6460ce742ba48d5241 100644 (file)
--- 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
 ;;;;