Mercurial > emacs

diff lisp/time.el @ 105372:bd2966850aac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use `called-interactively-p' instead of `interactive-p'.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 02 Oct 2009 03:48:36 +0000
parents e9f8f2b78f10
children 1d1d5d9bd884
line wrap: on
line diff
--- a/lisp/time.el	Fri Oct 02 00:02:02 2009 +0000
+++ b/lisp/time.el	Fri Oct 02 03:48:36 2009 +0000
@@ -562,7 +562,7 @@
          (format-seconds (or format "%Y, %D, %H, %M, %z%S")
                          (float-time
                           (time-subtract (current-time) before-init-time)))))
-    (if (interactive-p)
+    (if (called-interactively-p 'interactive)
         (message "%s" str)
       str)))
 
@@ -574,7 +574,7 @@
 	 (format "%.1f seconds"
 		 (float-time
 		  (time-subtract after-init-time before-init-time)))))
-    (if (interactive-p)
+    (if (called-interactively-p 'interactive)
         (message "%s" str)
       str)))