Commit 12a3c28c authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

* 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'.
parent 8d148b0d
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:
......
......@@ -3087,7 +3087,7 @@ in any of these classes."
(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
......
......@@ -234,7 +234,7 @@ With zero or negative ARG turn mode off.
,@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,
......
......@@ -269,7 +269,7 @@ FUNSYM must be a symbol of a defined function."
(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
......
......@@ -429,7 +429,7 @@ and showing the image as an image."
(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 @@ and showing the image as an image."
(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
......
......@@ -669,7 +669,7 @@ for use in `interactive'."
;; 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))
......
......@@ -3210,7 +3210,7 @@ This command can often take a long time to run."
)))
;; 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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment