# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 939635583 0
# Node ID e1d167cf6e96cc23f093d8801b5af51770d1c9f2
# Parent  35064c2e86d7f036f5c102e6379827fa07d90332
(vc-backend-diff): get rid of the autoloaded advice.

diff -r 35064c2e86d7 -r e1d167cf6e96 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Oct 11 09:45:52 1999 +0000
+++ b/lisp/ChangeLog	Mon Oct 11 09:53:03 1999 +0000
@@ -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 -r 35064c2e86d7 -r e1d167cf6e96 lisp/diff-mode.el
--- a/lisp/diff-mode.el	Mon Oct 11 09:45:52 1999 +0000
+++ b/lisp/diff-mode.el	Mon Oct 11 09:53:03 1999 +0000
@@ -754,19 +754,6 @@
 	(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
 ;;;;