From 9e265777d9c980f698a510239a67f2a314901c85 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Tue, 20 Oct 1998 19:38:09 +0000 Subject: [PATCH] (desktop-save, desktop-create-buffer): Handle all minor modes. --- lisp/desktop.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/desktop.el b/lisp/desktop.el index 979f12b3b08..6e0b749b501 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -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)) -- 2.39.2