Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 13:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(desktop-create-buffer): Handle old (broken) minor mode support.

Browse source
This commit is contained in:
Thien-Thi Nguyen 1998-10-22 06:44:53 +00:00
parent 6e0fca1d84
commit 7c3d2af256
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/desktop.el
View file

@ -606,8 +606,10 @@ to provide correct modes for autoloaded files."
(set-buffer result)
(if (not (equal (buffer-name) desktop-buffer-name))
(rename-buffer desktop-buffer-name))
(auto-fill-mode (if (nth 0 mim) 1 0))
(mapcar #'(lambda (minor-mode) (funcall minor-mode 1)) mim)
(cond ((equal '(t) mim) (auto-fill-mode 1)) ; backwards compatible
((equal '(nil) mim) (auto-fill-mode 0))
(t (mapcar #'(lambda (minor-mode) (funcall minor-mode 1)) mim)))
(goto-char pt)
(if (consp mk)
(progn
(set-mark (car mk))