summaryrefslogtreecommitdiff
path: root/lisp/desktop.el
diff options
context:
space:
mode:
authorThien-Thi Nguyen <ttn@gnuvola.org>1998-10-22 06:44:53 +0000
committerThien-Thi Nguyen <ttn@gnuvola.org>1998-10-22 06:44:53 +0000
commit7c3d2af25691dc41d9ea3f0e86ce5b57aaee71fd (patch)
tree0766b3361cbc4cf9d9fe5ad0f192828d3699f546 /lisp/desktop.el
parent6e0fca1d845a2829de2cac7b7b6fc244c15898a9 (diff)
downloademacs-7c3d2af25691dc41d9ea3f0e86ce5b57aaee71fd.tar.gz
(desktop-create-buffer): Handle old (broken) minor mode support.
Diffstat (limited to 'lisp/desktop.el')
-rw-r--r--lisp/desktop.el6
1 files 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))