procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/advice.el (ad-read-advised-function):

Browse source 
Use `function-called-at-point' as the default default, if it has
advice and passes PREDICATE.
This commit is contained in:
Kevin Ryde 2011-05-23 11:38:28 -03:00 • committed by Stefan Monnier
parent bbca48fe46
commit 7de88b6e91
2 changed files with 19 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/advice.el
View file

@ -2135,16 +2135,27 @@ Redefining advices affect the construction of an advised definition."
;; @@ Interactive input functions:
;; ===============================
(declare-function 'function-called-at-point "help")
(defun ad-read-advised-function (&optional prompt predicate default)
"Read name of advised function with completion from the minibuffer.
An optional PROMPT will be used to prompt for the function. PREDICATE
plays the same role as for `try-completion' (which see). DEFAULT will
be returned on empty input (defaults to the first advised function for
which PREDICATE returns non-nil)."
be returned on empty input (defaults to the first advised function or
function at point for which PREDICATE returns non-nil)."
(if (null ad-advised-functions)
(error "ad-read-advised-function: There are no advised functions"))
(setq default
(or default
;; Prefer func name at point, if it's in ad-advised-functions etc.
(let ((function (progn
(require 'help)
(function-called-at-point))))
(and function
(assoc (symbol-name function) ad-advised-functions)
(or (null predicate)
(funcall predicate function))
function))
(ad-do-advised-functions (function)
(if (or (null predicate)
(funcall predicate function))