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

diff --git a/poe.el b/poe.el
index 4bf25de..0e77846 100644 (file)
--- 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)
           ))))