In prog-modes/diff-mode.el
;; XEmacs change: no autoload for this for the transition period
(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 above breaks when the default-major-mode is something other
than fundamental-mode. As when:
(setq default-major-mode 'text-mode)
Please consider changing this to:
...
(if (or (eq major-mode default-major-mode)
(memq major-mode '(fundamental-mode diff-mode)))
(diff-mode))
-jeff
Show replies by thread
|--==> "JM" == Jeff Mincy <jmincy(a)muniversal.com> writes:
JM> In prog-modes/diff-mode.el
[...]
JM> The above breaks when the default-major-mode is something other
JM> than fundamental-mode. As when:
JM> (setq default-major-mode 'text-mode)
JM> Please consider changing this to:
JM> ...
JM> (if (or (eq major-mode default-major-mode)
JM> (memq major-mode '(fundamental-mode diff-mode)))
JM> (diff-mode))
Jeff, please submit a patch to <xemacs-patches(a)xemacs.org>
diff -u oldfile newfile > patchfile.diff
And please include a ChangeLog entry.
Thanks.
--
|---<Steve Youngs>---------------<GnuPG KeyID: 9E7E2820>---|
| XEmacs - It's not just an editor. |
| It's a way of life. |
|------------------------------------<youngs(a)xemacs.org>---|