Mercurial > emacs

changeset 41150:6ce8f906931a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(desktop-create-buffer): Use functionp.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 16 Nov 2001 14:32:38 +0000
parents e2b2d257d091
children 02fcac02955b
files lisp/desktop.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/desktop.el	Fri Nov 16 14:28:23 2001 +0000
+++ b/lisp/desktop.el	Fri Nov 16 14:32:38 2001 +0000
@@ -698,10 +698,9 @@
       (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