mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(desktop-save, desktop-create-buffer): Undo 10-22 change.

Browse Source
This commit is contained in:
Karl Heuer 1998-11-11 19:31:24 +00:00
parent 4e746fa8fe
commit 201006c436
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/desktop.el
View File

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