/[emacs]/emacs/lisp/desktop.el
ViewVC logotype

Diff of /emacs/lisp/desktop.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.47 by gerd, Tue Oct 23 13:52:45 2001 UTC revision 1.48 by monnier, Fri Nov 16 14:32:38 2001 UTC
# Line 698  to provide correct modes for autoloaded Line 698  to provide correct modes for autoloaded
698        (cond ((equal '(t) mim)   (auto-fill-mode 1))     ; backwards compatible        (cond ((equal '(t) mim)   (auto-fill-mode 1))     ; backwards compatible
699              ((equal '(nil) mim) (auto-fill-mode 0))              ((equal '(nil) mim) (auto-fill-mode 0))
700              (t (mapcar #'(lambda (minor-mode)              (t (mapcar #'(lambda (minor-mode)
701                             (unless (or (eq minor-mode t) (eq minor-mode nil))                             (when (functionp minor-mode)
702                               (if (and minor-mode (fboundp minor-mode))                               (funcall minor-mode 1)))
703                                   (funcall minor-mode 1))))                         mim)))
                            mim)))  
704        (goto-char pt)        (goto-char pt)
705        (if (consp mk)        (if (consp mk)
706            (progn            (progn

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26