mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/nadvice.el (add-function): Default simple vars to their

Browse Source 
global bindings.
This commit is contained in:
Stefan Monnier 2013-04-15 22:10:16 -04:00
parent efb3f01dba
commit 36c0a3016e
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2013-04-16 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/nadvice.el (add-function): Default simple vars to their
global bindings.
* doc-view.el (doc-view-start-process): Handle url-handler directories.
2013-04-15 Dmitry Gutov <dgutov@yandex.ru>

7
lisp/emacs-lisp/nadvice.el
View File

@ -236,9 +236,8 @@ PROPS is an alist of additional properties, among which the following have
a special meaning:
- `name': a string or symbol. It can be used to refer to this piece of advice.
PLACE cannot be a simple variable. Instead it should either be
\(default-value 'VAR) or (local 'VAR) depending on whether FUNCTION
should be applied to VAR buffer-locally or globally.
If PLACE is a simple variable, only its global value will be affected.
Use (local 'VAR) if you want to apply FUNCTION to VAR buffer-locally.
If one of FUNCTION or OLDFUN is interactive, then the resulting function
is also interactive. There are 3 cases:
@ -251,7 +250,7 @@ is also interactive. There are 3 cases:
(cond ((eq 'local (car-safe place))
(setq place `(advice--buffer-local ,@(cdr place))))
((symbolp place)
(error "Use (default-value '%S) or (local '%S)" place place)))
(setq place `(default-value ',place))))
`(advice--add-function ,where (gv-ref ,place) ,function ,props))
;;;###autoload