From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 16 Nov 2001 14:32:38 +0000 (+0000)
Subject: (desktop-create-buffer): Use functionp.
X-Git-Tag: ttn-vms-21-2-B4~18482
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2916afbdfb70852855e591b7e918b79364df0c16;p=emacs.git

(desktop-create-buffer): Use functionp.
---

diff --git a/lisp/desktop.el b/lisp/desktop.el
index dd1d0b68209..e9791cc0f90 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -698,10 +698,9 @@ to provide correct modes for autoloaded files."
       (cond ((equal '(t) mim)   (auto-fill-mode 1))	; backwards compatible
 	    ((equal '(nil) mim) (auto-fill-mode 0))
 	    (t (mapcar #'(lambda (minor-mode)
-			   (unless (or (eq minor-mode t) (eq minor-mode nil))
-			     (if (and minor-mode (fboundp minor-mode))
-				 (funcall minor-mode 1))))
-			   mim)))
+			   (when (functionp minor-mode)
+			     (funcall minor-mode 1)))
+		       mim)))
       (goto-char pt)
       (if (consp mk)
 	  (progn