Mercurial > emacs
diff lisp/net/quickurl.el @ 105372:bd2966850aac
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