mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Use called-interactively-p' instead of interactive-p'.

Browse source
This commit is contained in:
Juanma Barranquero 2009-10-02 03:48:36 +00:00
parent 12a3c28c78
commit 32226619c5
81 changed files with 375 additions and 204 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/net/browse-url.el
View file

@ -770,7 +770,7 @@ narrowed."
Prompts for a URL, defaulting to the URL at or before point. Variable
`browse-url-browser-function' says which browser to use."
(interactive (browse-url-interactive-arg "URL: "))
(unless (interactive-p)
(unless (called-interactively-p 'interactive)
(setq args (or args (list browse-url-new-window-flag))))
(let ((process-environment (copy-sequence process-environment)))
;; When connected to various displays, be careful to use the display of