Mercurial > emacs

diff lisp/emacs-lisp/elp.el @ 105371:0769a73f1d18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 cc423a84dd77
children 1d1d5d9bd884
line wrap: on
line diff
--- 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