Mercurial > emacs

changeset 23502:79b17414969f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(desktop-save, desktop-create-buffer): Handle all minor modes.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Tue, 20 Oct 1998 19:38:09 +0000
parents f12ae4499ae0
children ce7900230b17
files lisp/desktop.el
diffstat 1 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/desktop.el	Tue Oct 20 18:50:13 1998 +0000
+++ b/lisp/desktop.el	Tue Oct 20 19:38:09 1998 +0000
@@ -432,8 +432,13 @@
 			       (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 @@
       (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))