From: Miles Bader <miles@gnu.org>
Date: Wed, 18 Sep 2002 02:36:10 +0000 (+0000)
Subject: (diff-mode): Don't evaluate `compilation-last-buffer' unless it's bound.
X-Git-Tag: ttn-vms-21-2-B4~13139
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bd3c9eb62202f579000c3dad85e3a79003e2beb7;p=emacs.git

(diff-mode): Don't evaluate `compilation-last-buffer' unless it's bound.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 132f879b626..012ac51a6f5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-18  Miles Bader  <miles@gnu.org>
+
+	* diff-mode.el (diff-mode): Don't evaluate `compilation-last-buffer'
+	unless it's bound.
+
 2002-09-16  Markus Rost  <rost@math.ohio-state.edu>
 
 	* ls-lisp.el (ls-lisp-format-time-list): Fix type and provide
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)