mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

(desktop-create-buffer): Use functionp.

Browse Source
This commit is contained in:
Stefan Monnier 2001-11-16 14:32:38 +00:00
parent aa2af83a83
commit 2916afbdfb
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/desktop.el
View File

@ -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