From: czkmt <czkmt>
Date: Wed, 8 Dec 1999 19:32:04 +0000 (+0000)
Subject: (gnus-ofsetup-customize): Compile lambda expressions.
X-Git-Tag: t-gnus-6_14_0-05~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=99879d243a9cf9a4b512b89177abb98740cbc38b;p=elisp%2Fgnus.git-

(gnus-ofsetup-customize): Compile lambda expressions.
---

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*"))