diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2009-10-02 03:48:36 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2009-10-02 03:48:36 +0000 |
| commit | 32226619c5e563c384372b566000e5d37d783a61 (patch) | |
| tree | 216af4221d2ba868b45162679ce3a0462985c422 /lisp/log-edit.el | |
| parent | 12a3c28c787e23801f40ea557a5c00b538968a52 (diff) | |
| download | emacs-32226619c5e563c384372b566000e5d37d783a61.tar.gz | |
Use `called-interactively-p' instead of `interactive-p'.
Diffstat (limited to 'lisp/log-edit.el')
| -rw-r--r-- | lisp/log-edit.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/log-edit.el b/lisp/log-edit.el index f648d1f1fb4..c7ecac22ae7 100644 --- a/lisp/log-edit.el +++ b/lisp/log-edit.el @@ -470,7 +470,8 @@ If you want to abort the commit, simply delete the buffer." "Insert the template specified by the CVS administrator, if any. This simply uses the local CVS/Template file." (interactive) - (when (or (interactive-p) (= (point-min) (point-max))) + (when (or (called-interactively-p 'interactive) + (= (point-min) (point-max))) (when (file-readable-p "CVS/Template") (insert-file-contents "CVS/Template")))) @@ -479,7 +480,8 @@ This simply uses the local CVS/Template file." This contacts the repository to get the rcstemplate file and can thus take some time." (interactive) - (when (or (interactive-p) (= (point-min) (point-max))) + (when (or (called-interactively-p 'interactive) + (= (point-min) (point-max))) (when (file-readable-p "CVS/Root") ;; Ignore the stderr stuff, even if it's an error. (call-process "cvs" nil '(t nil) nil |