From: morioka <morioka>
Date: Fri, 13 Nov 1998 12:55:04 +0000 (+0000)
Subject: (defun-maybe-cond): fixed problem in Emacs 18.
X-Git-Tag: apel-9_11~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cd1f8452827eca227aaa47ea5fbeff3476849920;p=elisp%2Fapel.git

(defun-maybe-cond): fixed problem in Emacs 18.
---

diff --git a/poe.el b/poe.el
index 4bf25de..0e77846 100644
--- a/poe.el
+++ b/poe.el
@@ -108,15 +108,16 @@
   (or (and (fboundp name)
 	   (not (get name 'defun-maybe)))
       (` (unless (fboundp (quote (, name)))
-	   (cond (,@ (mapcar (lambda (case)
-			       (list (car case)
-				     (if doc
-					 (` (defun (, name) (, args)
-					      (, doc)
-					      (,@ (cdr case))))
-				       (` (defun (, name) (, args)
-					    (,@ (cdr case))))
-				       )))
+	   (cond (,@ (mapcar (function
+			      (lambda (case)
+				(list (car case)
+				      (if doc
+					  (` (defun (, name) (, args)
+					       (, doc)
+					       (,@ (cdr case))))
+					(` (defun (, name) (, args)
+					     (,@ (cdr case))))
+					))))
 			     everything-else)))
 	   (put (quote (, name)) 'defun-maybe t)
 	   ))))