From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Thu, 22 Oct 1998 06:44:53 +0000 (+0000)
Subject: (desktop-create-buffer): Handle old (broken) minor mode support.
X-Git-Tag: emacs-20.4~1414
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c3d2af25691dc41d9ea3f0e86ce5b57aaee71fd;p=emacs.git

(desktop-create-buffer): Handle old (broken) minor mode support.
---

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))