From f35affb60fe64b0c840133ffbf3c6868a0e7f400 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 21 Feb 2014 20:01:19 +0100 Subject: [PATCH] lisp/emacs-lisp/gv.el: Avoid duplicating entries of defun-declaration-alist. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/gv.el | 10 ++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 58bdb6534d5..6fb588381fe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-02-21 Juanma Barranquero + + * emacs-lisp/gv.el: Avoid duplicating gv-expander and gv-setter in + defun-declarations-alist. + 2014-02-21 Stefan Monnier * emacs-lisp/cl-macs.el (cl-define-compiler-macro): Add indent rule diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el index 4f68274e266..66241897536 100644 --- a/lisp/emacs-lisp/gv.el +++ b/lisp/emacs-lisp/gv.el @@ -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. -- 2.39.2