diff options
| -rw-r--r-- | lisp/desktop.el | 6 |
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." | |||
| 606 | (set-buffer result) | 606 | (set-buffer result) |
| 607 | (if (not (equal (buffer-name) desktop-buffer-name)) | 607 | (if (not (equal (buffer-name) desktop-buffer-name)) |
| 608 | (rename-buffer desktop-buffer-name)) | 608 | (rename-buffer desktop-buffer-name)) |
| 609 | (auto-fill-mode (if (nth 0 mim) 1 0)) | 609 | (cond ((equal '(t) mim) (auto-fill-mode 1)) ; backwards compatible |
| 610 | (mapcar #'(lambda (minor-mode) (funcall minor-mode 1)) mim) | 610 | ((equal '(nil) mim) (auto-fill-mode 0)) |
| 611 | (t (mapcar #'(lambda (minor-mode) (funcall minor-mode 1)) mim))) | ||
| 612 | (goto-char pt) | ||
| 611 | (if (consp mk) | 613 | (if (consp mk) |
| 612 | (progn | 614 | (progn |
| 613 | (set-mark (car mk)) | 615 | (set-mark (car mk)) |