From 32226619c5e563c384372b566000e5d37d783a61 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 2 Oct 2009 03:48:36 +0000 Subject: Use `called-interactively-p' instead of `interactive-p'. --- lisp/log-edit.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lisp/log-edit.el') 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 -- cgit v1.2.1