From 2916afbdfb70852855e591b7e918b79364df0c16 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 16 Nov 2001 14:32:38 +0000 Subject: [PATCH] (desktop-create-buffer): Use functionp. --- lisp/desktop.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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 -- 2.39.5