diff options
| author | Stefan Monnier | 2000-10-30 14:28:30 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-10-30 14:28:30 +0000 |
| commit | f077c4622f84423de2b85876f5dddafbc8d49794 (patch) | |
| tree | 0c6bb481b82b2700787536b5f556272ec38e8c4a | |
| parent | 1d3baf7487c13701ffbfed854ec38c4fd15b66fa (diff) | |
| download | emacs-f077c4622f84423de2b85876f5dddafbc8d49794.tar.gz emacs-f077c4622f84423de2b85876f5dddafbc8d49794.zip | |
(log-edit-confirm): Fix the default.
| -rw-r--r-- | lisp/log-edit.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/log-edit.el b/lisp/log-edit.el index bc766d0226e..1631a7c37e5 100644 --- a/lisp/log-edit.el +++ b/lisp/log-edit.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: Stefan Monnier <monnier@cs.yale.edu> | 5 | ;; Author: Stefan Monnier <monnier@cs.yale.edu> |
| 6 | ;; Keywords: pcl-cvs cvs commit log | 6 | ;; Keywords: pcl-cvs cvs commit log |
| 7 | ;; Version: $Name: $ | 7 | ;; Version: $Name: $ |
| 8 | ;; Revision: $Id: log-edit.el,v 1.7 2000/06/02 23:03:31 monnier Exp $ | 8 | ;; Revision: $Id: log-edit.el,v 1.8 2000/10/24 11:27:41 fx Exp $ |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
| @@ -63,7 +63,7 @@ | |||
| 63 | :inherit (if (boundp 'vc-log-entry-mode) vc-log-entry-mode | 63 | :inherit (if (boundp 'vc-log-entry-mode) vc-log-entry-mode |
| 64 | (if (boundp 'vc-log-mode-map) vc-log-mode-map))) | 64 | (if (boundp 'vc-log-mode-map) vc-log-mode-map))) |
| 65 | 65 | ||
| 66 | (defcustom log-edit-confirm t | 66 | (defcustom log-edit-confirm 'changed |
| 67 | "*If non-nil, `log-edit-done' will request confirmation. | 67 | "*If non-nil, `log-edit-done' will request confirmation. |
| 68 | If 'changed, only request confirmation if the list of files has | 68 | If 'changed, only request confirmation if the list of files has |
| 69 | changed since the beginning of the log-edit session." | 69 | changed since the beginning of the log-edit session." |
| @@ -151,7 +151,7 @@ when this variable is set to nil.") | |||
| 151 | ;;;###autoload | 151 | ;;;###autoload |
| 152 | (defun log-edit (callback &optional setup listfun &rest ignore) | 152 | (defun log-edit (callback &optional setup listfun &rest ignore) |
| 153 | "Setup a buffer to enter a log message. | 153 | "Setup a buffer to enter a log message. |
| 154 | The buffer will be put in `log-edit-mode'. | 154 | \\<log-edit-mode-map>The buffer will be put in `log-edit-mode'. |
| 155 | If SETUP is non-nil, the buffer is then erased and `log-edit-hook' is run. | 155 | If SETUP is non-nil, the buffer is then erased and `log-edit-hook' is run. |
| 156 | Mark and point will be set around the entire contents of the | 156 | Mark and point will be set around the entire contents of the |
| 157 | buffer so that it is easy to kill the contents of the buffer with \\[kill-region]. | 157 | buffer so that it is easy to kill the contents of the buffer with \\[kill-region]. |