diff options
| author | Miles Bader | 2002-09-18 02:36:10 +0000 |
|---|---|---|
| committer | Miles Bader | 2002-09-18 02:36:10 +0000 |
| commit | bd3c9eb62202f579000c3dad85e3a79003e2beb7 (patch) | |
| tree | ce262f3001fe316d622f12ea8776e1018a67ce1e /lisp/diff-mode.el | |
| parent | 8b3e840e9511d2bfe98282a35896fe6c7bebc174 (diff) | |
| download | emacs-bd3c9eb62202f579000c3dad85e3a79003e2beb7.tar.gz emacs-bd3c9eb62202f579000c3dad85e3a79003e2beb7.zip | |
(diff-mode): Don't evaluate `compilation-last-buffer' unless it's bound.
Diffstat (limited to 'lisp/diff-mode.el')
| -rw-r--r-- | lisp/diff-mode.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el index b04719298a8..94ce53c1040 100644 --- a/lisp/diff-mode.el +++ b/lisp/diff-mode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; diff-mode.el --- a mode for viewing/editing context diffs | 1 | ;;; diff-mode.el --- a mode for viewing/editing context diffs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Stefan Monnier <monnier@cs.yale.edu> | 5 | ;; Author: Stefan Monnier <monnier@cs.yale.edu> |
| 6 | ;; Keywords: convenience patch diff | 6 | ;; Keywords: convenience patch diff |
| @@ -889,7 +889,9 @@ a diff with \\[diff-reverse-direction]." | |||
| 889 | (substring buffer-file-name 0 (match-beginning 0)))) | 889 | (substring buffer-file-name 0 (match-beginning 0)))) |
| 890 | ;; Be careful not to change compilation-last-buffer when we're just | 890 | ;; Be careful not to change compilation-last-buffer when we're just |
| 891 | ;; doing a C-x v = (for example). | 891 | ;; doing a C-x v = (for example). |
| 892 | (let ((compilation-last-buffer compilation-last-buffer)) | 892 | (let ((compilation-last-buffer |
| 893 | (and (boundp 'compilation-last-buffer) | ||
| 894 | compilation-last-buffer))) | ||
| 893 | (compilation-shell-minor-mode 1)) | 895 | (compilation-shell-minor-mode 1)) |
| 894 | 896 | ||
| 895 | (when (and (> (point-max) (point-min)) diff-default-read-only) | 897 | (when (and (> (point-max) (point-min)) diff-default-read-only) |