From bd3c9eb62202f579000c3dad85e3a79003e2beb7 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 18 Sep 2002 02:36:10 +0000 Subject: [PATCH] (diff-mode): Don't evaluate `compilation-last-buffer' unless it's bound. --- lisp/ChangeLog | 5 +++++ lisp/diff-mode.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) 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 + + * diff-mode.el (diff-mode): Don't evaluate `compilation-last-buffer' + unless it's bound. + 2002-09-16 Markus Rost * 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 ;; 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) -- 2.39.5