# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1254441722 0
# Node ID 0769a73f1d1819c9fa0ab04a2841b19ae497df9b
# Parent  93ff2304a242e91cb08ae6e553d8c4b00bd3b767
* 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'.

diff -r 93ff2304a242 -r 0769a73f1d18 lisp/ChangeLog
--- 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:
diff -r 93ff2304a242 -r 0769a73f1d18 lisp/emacs-lisp/advice.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
diff -r 93ff2304a242 -r 0769a73f1d18 lisp/emacs-lisp/easy-mmode.el
--- 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,
diff -r 93ff2304a242 -r 0769a73f1d18 lisp/emacs-lisp/elp.el
--- 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
diff -r 93ff2304a242 -r 0769a73f1d18 lisp/image-mode.el
--- 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
diff -r 93ff2304a242 -r 0769a73f1d18 lisp/net/browse-url.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))
 
diff -r 93ff2304a242 -r 0769a73f1d18 lisp/progmodes/sh-script.el
--- 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)))))