[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master e8db2f5 1/2: Define nndraft-close-server according
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master e8db2f5 1/2: Define nndraft-close-server according to new calling conventions |
Date: |
Sun, 29 Sep 2019 06:38:57 -0400 (EDT) |
branch: master
commit e8db2f51417e330a339136b416b7c5d4e296beca
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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).
---
lisp/gnus/nnoo.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/lisp/gnus/nnoo.el b/lisp/gnus/nnoo.el
index c65668a..d52cda4 100644
--- a/lisp/gnus/nnoo.el
+++ b/lisp/gnus/nnoo.el
@@ -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))))