Mercurial > emacs

changeset 23699:3267bdc78cca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(desktop-save, desktop-create-buffer): Undo 10-22 change.
author Karl Heuer <kwzh@gnu.org>
date Wed, 11 Nov 1998 19:31:24 +0000
parents bc6f9afd4daa
children 3be52677d330
files lisp/desktop.el
diffstat 1 files changed, 3 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/desktop.el	Wed Nov 11 19:04:33 1998 +0000
+++ b/lisp/desktop.el	Wed Nov 11 19:31:24 1998 +0000
@@ -432,13 +432,8 @@
 			       (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 @@
       (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