comparison lisp/diff-mode.el @ 47518:967c2114c128

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

47517:8e9589a87f9b

;;; diff-mode.el --- a mode for viewing/editing context diffs

;; Copyright (C) 1998, 1999, 2000, 2001  Free Software Foundation, Inc.

;; Author: Stefan Monnier <[e-mail]>
;; Keywords: convenience patch diff

;; This file is part of GNU Emacs.

  (when (string-match "\\.rej\\'" (or buffer-file-name ""))
    (set (make-local-variable 'compilation-current-file)
  	 (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))
    (compilation-shell-minor-mode 1))

  (when (and (> (point-max) (point-min)) diff-default-read-only)
    (toggle-read-only t))
  ;; setup change hooks

47518:967c2114c128

;;; diff-mode.el --- a mode for viewing/editing context diffs

;; Copyright (C) 1998, 1999, 2000, 2001, 2002  Free Software Foundation, Inc.

;; Author: Stefan Monnier <[e-mail]>
;; Keywords: convenience patch diff

;; This file is part of GNU Emacs.

  (when (string-match "\\.rej\\'" (or buffer-file-name ""))
    (set (make-local-variable 'compilation-current-file)
  	 (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
	 (and (boundp 'compilation-last-buffer)
	      compilation-last-buffer)))
    (compilation-shell-minor-mode 1))

  (when (and (> (point-max) (point-min)) diff-default-read-only)
    (toggle-read-only t))
  ;; setup change hooks