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

lisp/emacs-lisp/gv.el: Avoid duplicating entries of defun-declaration-alist.

Browse source
This commit is contained in:
Juanma Barranquero 2014-02-21 20:01:19 +01:00
parent 3d136b1b72
commit f35affb60f
2 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2014-02-21 Juanma Barranquero <lekktu@gmail.com>
* emacs-lisp/gv.el: Avoid duplicating gv-expander and gv-setter in
defun-declarations-alist.
2014-02-21 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl-macs.el (cl-define-compiler-macro): Add indent rule

10
lisp/emacs-lisp/gv.el
View file

@ -157,11 +157,13 @@ arguments as NAME. DO is a function as defined in `gv-get'."
(_ (message "Unknown %s declaration %S" symbol handler) nil))))
;;;###autoload
(push `(gv-expander ,(apply-partially #'gv--defun-declaration 'gv-expander))
defun-declarations-alist)
(or (assq 'gv-expander defun-declarations-alist)
(push `(gv-expander ,(apply-partially #'gv--defun-declaration 'gv-expander))
defun-declarations-alist))
;;;###autoload
(push `(gv-setter ,(apply-partially #'gv--defun-declaration 'gv-setter))
defun-declarations-alist)
(or (assq 'gv-setter defun-declarations-alist)
(push `(gv-setter ,(apply-partially #'gv--defun-declaration 'gv-setter))
defun-declarations-alist))
;; (defmacro gv-define-expand (name expander)
;; "Use EXPANDER to handle NAME as a generalized var.