Mercurial > emacs
changeset 23535:28c62eea9ae7
(desktop-create-buffer): Handle old (broken) minor mode support.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Thu, 22 Oct 1998 06:44:53 +0000 |
| parents | 6f9c70db3a58 |
| children | 0154f51c56d8 |
| files | lisp/desktop.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/desktop.el Thu Oct 22 01:53:38 1998 +0000 +++ b/lisp/desktop.el Thu Oct 22 06:44:53 1998 +0000 @@ -606,8 +606,10 @@ (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))