From 7c3d2af25691dc41d9ea3f0e86ce5b57aaee71fd Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Thu, 22 Oct 1998 06:44:53 +0000 Subject: [PATCH] (desktop-create-buffer): Handle old (broken) minor mode support. --- lisp/desktop.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/desktop.el b/lisp/desktop.el index 6e0b749b501..3951f8eff2c 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -606,8 +606,10 @@ to provide correct modes for autoloaded files." (set-buffer result) (if (not (equal (buffer-name) desktop-buffer-name)) (rename-buffer desktop-buffer-name)) - (auto-fill-mode (if (nth 0 mim) 1 0)) - (mapcar #'(lambda (minor-mode) (funcall minor-mode 1)) mim) + (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))) + (goto-char pt) (if (consp mk) (progn (set-mark (car mk)) -- 2.39.2