Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 10:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

Define nndraft-close-server according to new calling conventions

Browse source 
* lisp/gnus/nnoo.el (nnoo-define-basics-1): *-close-server now
takes a DEFS parameter (bug#20319).
This commit is contained in:
Lars Ingebrigtsen 2019-09-29 12:38:02 +02:00
parent 0695f5383f
commit e8db2f5141
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/gnus/nnoo.el
View file

@ -277,11 +277,12 @@
(nnoo-define-basics-1 ',backend)))
(defun nnoo-define-basics-1 (backend)
(let ((functions '(close-server server-opened status-message)))
(while functions
(eval `(deffoo ,(nnoo-symbol backend (car functions))
(&optional server)
(,(nnoo-symbol 'nnoo (pop functions)) ',backend server)))))
(dolist (function '(server-opened status-message))
(eval `(deffoo ,(nnoo-symbol backend function) (&optional server)
(,(nnoo-symbol 'nnoo function) ',backend server))))
(dolist (function '(close-server))
(eval `(deffoo ,(nnoo-symbol backend function) (&optional server defs)
(,(nnoo-symbol 'nnoo function) ',backend server))))
(eval `(deffoo ,(nnoo-symbol backend 'open-server)
(server &optional defs)
(nnoo-change-server ',backend server defs))))