/[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.72 by lh, Fri May 7 19:40:29 2004 UTC revision 1.73 by lh, Mon May 31 21:44:59 2004 UTC
# Line 326  NAME is the name of the buffer-local var Line 326  NAME is the name of the buffer-local var
326  mode is active.  RESTORE-FUNCTION is the function to activate the minor mode.  mode is active.  RESTORE-FUNCTION is the function to activate the minor mode.
327  called.  RESTORE-FUNCTION nil means don't try to restore the minor mode.  called.  RESTORE-FUNCTION nil means don't try to restore the minor mode.
328  Only minor modes for which the name of the buffer-local variable  Only minor modes for which the name of the buffer-local variable
329  and the name of the minor mode function are different have to added to  and the name of the minor mode function are different have to be added to
330  this table."  this table."
331    :type 'sexp    :type 'sexp
332    :group 'desktop)    :group 'desktop)
# Line 589  See also `desktop-base-file-name'." Line 589  See also `desktop-base-file-name'."
589                      major-mode                      major-mode
590                      ;; minor modes                      ;; minor modes
591                      (let (ret)                      (let (ret)
592                        (mapcar                        (mapc
593                          #'(lambda (mim)                          #'(lambda (minor-mode)
594                            (and                            (and
595                              (boundp mim)                              (boundp minor-mode)
596                              (symbol-value mim)                              (symbol-value minor-mode)
597                              (setq ret                              (let ((special (assq minor-mode desktop-minor-mode-table)))
598                                (cons                                (when (or special (functionp minor-mode))
599                                  (let ((special (assq mim desktop-minor-mode-table)))                                  (setq ret
600                                    (if special (cadr special) mim))                                    (cons
601                                  ret))))                                      (if special (cadr special) minor-mode)
602                                        ret))))))
603                          (mapcar #'car minor-mode-alist))                          (mapcar #'car minor-mode-alist))
604                        ret)                        ret)
605                      (point)                      (point)

Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73

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