mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(desktop-save, desktop-create-buffer): Handle all minor modes.

Browse Source
This commit is contained in:
Thien-Thi Nguyen 1998-10-20 19:38:09 +00:00
parent 547745f5b3
commit 9e265777d9
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/desktop.el
View File

@ -432,8 +432,13 @@ MODE is the major mode."
(buffer-file-name)
(buffer-name)
major-mode
(list ; list explaining minor modes
(not (null auto-fill-function)))
(let (ret)
(mapcar #'(lambda (minor-mode)
(and (symbol-value minor-mode)
(setq ret (cons minor-mode
ret))))
(mapcar #'car minor-mode-alist))
ret)
(point)
(list (mark t) mark-active)
buffer-read-only
@ -602,7 +607,7 @@ to provide correct modes for autoloaded files."
(if (not (equal (buffer-name) desktop-buffer-name))
(rename-buffer desktop-buffer-name))
(auto-fill-mode (if (nth 0 mim) 1 0))
(goto-char pt)
(mapcar #'(lambda (minor-mode) (funcall minor-mode 1)) mim)
(if (consp mk)
(progn
(set-mark (car mk))