1 |
;;; diff-mode.el --- a mode for viewing/editing context diffs |
;;; diff-mode.el --- a mode for viewing/editing context diffs |
2 |
|
|
3 |
;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Stefan Monnier <monnier@cs.yale.edu> |
;; Author: Stefan Monnier <monnier@cs.yale.edu> |
6 |
;; Keywords: convenience patch diff |
;; Keywords: convenience patch diff |
889 |
(substring buffer-file-name 0 (match-beginning 0)))) |
(substring buffer-file-name 0 (match-beginning 0)))) |
890 |
;; Be careful not to change compilation-last-buffer when we're just |
;; Be careful not to change compilation-last-buffer when we're just |
891 |
;; doing a C-x v = (for example). |
;; doing a C-x v = (for example). |
892 |
(let ((compilation-last-buffer compilation-last-buffer)) |
(let ((compilation-last-buffer |
893 |
|
(and (boundp 'compilation-last-buffer) |
894 |
|
compilation-last-buffer))) |
895 |
(compilation-shell-minor-mode 1)) |
(compilation-shell-minor-mode 1)) |
896 |
|
|
897 |
(when (and (> (point-max) (point-min)) diff-default-read-only) |
(when (and (> (point-max) (point-min)) diff-default-read-only) |