Mercurial > emacs

diff lisp/net/quickurl.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 a9dc0e7c3f2b
children 1d1d5d9bd884
line wrap: on
line diff
--- a/lisp/net/quickurl.el	Fri Oct 02 00:02:02 2009 +0000
+++ b/lisp/net/quickurl.el	Fri Oct 02 03:48:36 2009 +0000
@@ -368,7 +368,7 @@
     (quickurl-load-urls)
     (let* ((current-url (quickurl-find-url word))
            (add-it      (if current-url
-                            (if (interactive-p)
+                            (if (called-interactively-p 'interactive)
                                 (y-or-n-p (format "\"%s\" exists, replace URL? " word))
                               t)
                           t)))
@@ -382,7 +382,7 @@
         (quickurl-save-urls)
         (when (get-buffer quickurl-list-buffer-name)
           (quickurl-list-populate-buffer))
-        (when (interactive-p)
+        (when (called-interactively-p 'interactive)
           (message "Added %s" url))))))
 
 ;;;###autoload