Mercurial > emacs
comparison lisp/emacs-lisp/advice.el @ 105371:0769a73f1d18
* image-mode.el (image-toggle-display):
* emacs-lisp/elp.el (elp-instrument-function):
* emacs-lisp/advice.el (ad-make-advised-definition):
* emacs-lisp/easy-mmode.el (define-minor-mode):
* net/browse-url.el (browse-url-maybe-new-window):
* progmodes/sh-script.el (sh-learn-buffer-indent):
Pass new argument 'any to `called-interactively-p'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 02 Oct 2009 00:02:02 +0000 |
| parents | 1a0de48a918c |
| children | bd2966850aac |
comparison
equal
deleted
inserted
replaced
| 105370:93ff2304a242 | 105371:0769a73f1d18 |
|---|---|
| 3085 orig-interactive-p | 3085 orig-interactive-p |
| 3086 (not interactive-form) | 3086 (not interactive-form) |
| 3087 (not advised-interactive-form)) | 3087 (not advised-interactive-form)) |
| 3088 ;; Check whether we were called interactively | 3088 ;; Check whether we were called interactively |
| 3089 ;; in order to do proper prompting: | 3089 ;; in order to do proper prompting: |
| 3090 `(if (called-interactively-p) | 3090 `(if (called-interactively-p 'any) |
| 3091 (call-interactively ',origname) | 3091 (call-interactively ',origname) |
| 3092 ,(ad-make-mapped-call advised-arglist | 3092 ,(ad-make-mapped-call advised-arglist |
| 3093 orig-arglist | 3093 orig-arglist |
| 3094 origname))) | 3094 origname))) |
| 3095 ;; And now for normal functions and non-interactive subrs | 3095 ;; And now for normal functions and non-interactive subrs |