comparison lisp/diff-mode.el @ 25979:e1d167cf6e96

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

25978:35064c2e86d7

      (save-excursion
	(goto-char (car diff-unhandled-changes)) (diff-beginning-of-hunk)
	(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
;;;; 

;;(autoload 'diff-mode "diff-mode" "Major mode for viewing context diffs." t)

25979:e1d167cf6e96

      (save-excursion
	(goto-char (car diff-unhandled-changes)) (diff-beginning-of-hunk)
	(diff-fixup-modifs (point) (cdr diff-unhandled-changes))))
    (setq diff-unhandled-changes nil)))

;;;; 
;;;; The main function
;;;; 

;;(autoload 'diff-mode "diff-mode" "Major mode for viewing context diffs." t)