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

Also use named functions for the ‘gv’ declare forms (Bug#40491)

Browse source 
* lisp/emacs-lisp/gv.el (gv--expander-defun-declaration)
(gv--setter-defun-declaration): New helper functions; use them.
This commit is contained in:
Philipp Stephani 2020-04-12 14:25:33 +02:00
parent 4f197a5e79
commit aed427ece5
1 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -166,15 +166,25 @@ arguments as NAME. DO is a function as defined in `gv-get'."
;; (`(expand ,expander) `(gv-define-expand ,name ,expander))
(_ (message "Unknown %s declaration %S" symbol handler) nil))))
;; Additions for `declare'. We specify the values as named aliases so
;; that `describe-variable' prints something useful; cf. Bug#40491.
;;;###autoload
(defsubst gv--expander-defun-declaration (&rest args)
(apply #'gv--defun-declaration 'gv-expander args))
;;;###autoload
(defsubst gv--setter-defun-declaration (&rest args)
(apply #'gv--defun-declaration 'gv-setter args))
;;;###autoload
(or (assq 'gv-expander defun-declarations-alist)
(let ((x `(gv-expander
,(apply-partially #'gv--defun-declaration 'gv-expander))))
(let ((x (list 'gv-expander #'gv--expander-defun-declaration)))
(push x macro-declarations-alist)
(push x defun-declarations-alist)))
;;;###autoload
(or (assq 'gv-setter defun-declarations-alist)
(push `(gv-setter ,(apply-partially #'gv--defun-declaration 'gv-setter))
(push (list 'gv-setter #'gv--setter-defun-declaration)
defun-declarations-alist))
;; (defmacro gv-define-expand (name expander)