procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ad-make-advised-definition): Use called-interactively-p.

Browse source
This commit is contained in:
Richard M. Stallman 2004-11-02 09:17:50 +00:00
parent 085db7de2d
commit ae03e7cf52
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/advice.el
View file

@ -3106,7 +3106,7 @@ in any of these classes."
(not advised-interactive-form)) (not advised-interactive-form))
;; Check whether we were called interactively ;; Check whether we were called interactively
;; in order to do proper prompting: ;; in order to do proper prompting:
`(if (interactive-p) `(if (called-interactively-p)
(call-interactively ',origname) (call-interactively ',origname)
,(ad-make-mapped-call orig-arglist ,(ad-make-mapped-call orig-arglist
advised-arglist advised-arglist