From cd1f8452827eca227aaa47ea5fbeff3476849920 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 13 Nov 1998 12:55:04 +0000 Subject: [PATCH] (defun-maybe-cond): fixed problem in Emacs 18. --- poe.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) 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) )))) -- 1.7.10.4