Mercurial > emacs
changeset 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 | 93ff2304a242 |
| children | bd2966850aac |
| files | lisp/ChangeLog lisp/emacs-lisp/advice.el lisp/emacs-lisp/easy-mmode.el lisp/emacs-lisp/elp.el lisp/image-mode.el lisp/net/browse-url.el lisp/progmodes/sh-script.el |
| diffstat | 7 files changed, 17 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Oct 01 23:42:39 2009 +0000 +++ b/lisp/ChangeLog Fri Oct 02 00:02:02 2009 +0000 @@ -1,3 +1,13 @@ +2009-10-02 Juanma Barranquero <lekktu@gmail.com> + + * 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'. + 2009-10-01 Juanma Barranquero <lekktu@gmail.com> * international/uni-bidi.el:
--- a/lisp/emacs-lisp/advice.el Thu Oct 01 23:42:39 2009 +0000 +++ b/lisp/emacs-lisp/advice.el Fri Oct 02 00:02:02 2009 +0000 @@ -3087,7 +3087,7 @@ (not advised-interactive-form)) ;; Check whether we were called interactively ;; in order to do proper prompting: - `(if (called-interactively-p) + `(if (called-interactively-p 'any) (call-interactively ',origname) ,(ad-make-mapped-call advised-arglist orig-arglist
--- a/lisp/emacs-lisp/easy-mmode.el Thu Oct 01 23:42:39 2009 +0000 +++ b/lisp/emacs-lisp/easy-mmode.el Fri Oct 02 00:02:02 2009 +0000 @@ -234,7 +234,7 @@ ,@body ;; The on/off hooks are here for backward compatibility only. (run-hooks ',hook (if ,mode ',hook-on ',hook-off)) - (if (called-interactively-p) + (if (called-interactively-p 'any) (progn ,(if globalp `(customize-mark-as-set ',mode)) ;; Avoid overwriting a message shown by the body,
--- a/lisp/emacs-lisp/elp.el Thu Oct 01 23:42:39 2009 +0000 +++ b/lisp/emacs-lisp/elp.el Fri Oct 02 00:02:02 2009 +0000 @@ -269,7 +269,7 @@ (setq newguts (append newguts `((elp-wrapper (quote ,funsym) ,(when (commandp funsym) - '(called-interactively-p)) + '(called-interactively-p 'any)) args)))) ;; to record profiling times, we set the symbol's function ;; definition so that it runs the elp-wrapper function with the
--- a/lisp/image-mode.el Thu Oct 01 23:42:39 2009 +0000 +++ b/lisp/image-mode.el Fri Oct 02 00:02:02 2009 +0000 @@ -429,7 +429,7 @@ (setq image-type "text") (if (eq major-mode 'image-mode) (setq mode-name "Image[text]")) - (if (called-interactively-p) + (if (called-interactively-p 'any) (message "Repeat this command to go back to displaying the image"))) ;; Turn the image data into a real image, but only if the whole file ;; was inserted @@ -472,7 +472,7 @@ (setq image-type type) (if (eq major-mode 'image-mode) (setq mode-name (format "Image[%s]" type))) - (if (called-interactively-p) + (if (called-interactively-p 'any) (message "Repeat this command to go back to displaying the file as text"))))) ;;; Support for bookmark.el
--- a/lisp/net/browse-url.el Thu Oct 01 23:42:39 2009 +0000 +++ b/lisp/net/browse-url.el Fri Oct 02 00:02:02 2009 +0000 @@ -669,7 +669,7 @@ ;; this macro. We use that rather than interactive-p because ;; use in a keyboard macro should not change this behavior. (defmacro browse-url-maybe-new-window (arg) - `(if (or noninteractive (not (called-interactively-p))) + `(if (or noninteractive (not (called-interactively-p 'any))) ,arg browse-url-new-window-flag))
--- a/lisp/progmodes/sh-script.el Thu Oct 01 23:42:39 2009 +0000 +++ b/lisp/progmodes/sh-script.el Fri Oct 02 00:02:02 2009 +0000 @@ -3210,7 +3210,7 @@ ))) ;; Are abnormal hooks considered bad form? (run-hook-with-args 'sh-learned-buffer-hook learned-var-list) - (and (called-interactively-p) + (and (called-interactively-p 'any) (or sh-popup-occur-buffer (> num-diffs 0)) (pop-to-buffer out-buffer)))))