diff options
| author | Lars Ingebrigtsen | 2019-09-29 12:38:02 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-09-29 12:38:02 +0200 |
| commit | e8db2f51417e330a339136b416b7c5d4e296beca (patch) | |
| tree | 49024a2a8d4bb0d57fa56b7abbc43549a01cbd2f | |
| parent | 0695f5383f67ebbe606e63e5349db63cf650e7da (diff) | |
| download | emacs-e8db2f51417e330a339136b416b7c5d4e296beca.tar.gz emacs-e8db2f51417e330a339136b416b7c5d4e296beca.zip | |
Define nndraft-close-server according to new calling conventions
* lisp/gnus/nnoo.el (nnoo-define-basics-1): *-close-server now
takes a DEFS parameter (bug#20319).
| -rw-r--r-- | lisp/gnus/nnoo.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/gnus/nnoo.el b/lisp/gnus/nnoo.el index c65668a7199..d52cda4eb55 100644 --- a/lisp/gnus/nnoo.el +++ b/lisp/gnus/nnoo.el | |||
| @@ -277,11 +277,12 @@ | |||
| 277 | (nnoo-define-basics-1 ',backend))) | 277 | (nnoo-define-basics-1 ',backend))) |
| 278 | 278 | ||
| 279 | (defun nnoo-define-basics-1 (backend) | 279 | (defun nnoo-define-basics-1 (backend) |
| 280 | (let ((functions '(close-server server-opened status-message))) | 280 | (dolist (function '(server-opened status-message)) |
| 281 | (while functions | 281 | (eval `(deffoo ,(nnoo-symbol backend function) (&optional server) |
| 282 | (eval `(deffoo ,(nnoo-symbol backend (car functions)) | 282 | (,(nnoo-symbol 'nnoo function) ',backend server)))) |
| 283 | (&optional server) | 283 | (dolist (function '(close-server)) |
| 284 | (,(nnoo-symbol 'nnoo (pop functions)) ',backend server))))) | 284 | (eval `(deffoo ,(nnoo-symbol backend function) (&optional server defs) |
| 285 | (,(nnoo-symbol 'nnoo function) ',backend server)))) | ||
| 285 | (eval `(deffoo ,(nnoo-symbol backend 'open-server) | 286 | (eval `(deffoo ,(nnoo-symbol backend 'open-server) |
| 286 | (server &optional defs) | 287 | (server &optional defs) |
| 287 | (nnoo-change-server ',backend server defs)))) | 288 | (nnoo-change-server ',backend server defs)))) |