From 99879d243a9cf9a4b512b89177abb98740cbc38b Mon Sep 17 00:00:00 2001 From: czkmt Date: Wed, 8 Dec 1999 19:32:04 +0000 Subject: [PATCH] (gnus-ofsetup-customize): Compile lambda expressions. --- lisp/gnus-ofsetup.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el index 369adea..1d7303e 100644 --- a/lisp/gnus-ofsetup.el +++ b/lisp/gnus-ofsetup.el @@ -412,8 +412,8 @@ mail source specifier とか上記のようなキーワードについてもっとよく msg (gnus-ofsetup-gettext 'completing-read-symbol-1)) (mapcar - (lambda (sym) - (list (symbol-name sym))) + #'(lambda (sym) + (list (symbol-name sym))) syms) nil t nil))) @@ -628,11 +628,11 @@ mail source specifier とか上記のようなキーワードについてもっとよく "Edit the gnus-offline parameters." (interactive) (let* ((params (gnus-ofsetup-find-parameters)) - (types (mapcar (lambda (entry) - `(cons :format "%v%h\n" - :doc ,(nth 2 entry) - (const :format "" ,(nth 0 entry)) - ,(nth 1 entry))) + (types (mapcar #'(lambda (entry) + `(cons :format "%v%h\n" + :doc ,(nth 2 entry) + (const :format "" ,(nth 0 entry)) + ,(nth 1 entry))) params))) (kill-buffer (gnus-get-buffer-create "*Gnus Offline Customize*")) (switch-to-buffer (gnus-get-buffer-create "*Gnus Offline Customize*")) -- 1.7.10.4