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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58bdb6534d51ac6a94c770d6dd6cc6fa7f12d3ec..6fb588381fe5dd29fc16a2b0390137478d4052ee 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el
index 4f68274e26696dfbac5e01151d6919e08f5524a5..6624189753634bf4a0556d745399b767bbbd0138 100644 (file)
--- 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.