summaryrefslogtreecommitdiff
path: root/lisp/diff-mode.el
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2002-09-18 02:36:10 +0000
committerMiles Bader <miles@gnu.org>2002-09-18 02:36:10 +0000
commitbd3c9eb62202f579000c3dad85e3a79003e2beb7 (patch)
treece262f3001fe316d622f12ea8776e1018a67ce1e /lisp/diff-mode.el
parent8b3e840e9511d2bfe98282a35896fe6c7bebc174 (diff)
downloademacs-bd3c9eb62202f579000c3dad85e3a79003e2beb7.tar.gz
(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.el6
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 @@
;;; diff-mode.el --- a mode for viewing/editing context diffs
-;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: convenience patch diff
@@ -889,7 +889,9 @@ a diff with \\[diff-reverse-direction]."
(substring buffer-file-name 0 (match-beginning 0))))
;; Be careful not to change compilation-last-buffer when we're just
;; doing a C-x v = (for example).
- (let ((compilation-last-buffer compilation-last-buffer))
+ (let ((compilation-last-buffer
+ (and (boundp 'compilation-last-buffer)
+ compilation-last-buffer)))
(compilation-shell-minor-mode 1))
(when (and (> (point-max) (point-min)) diff-default-read-only)