[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/desktop.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/desktop.el [lexbind] |
Date: |
Tue, 06 Jul 2004 05:46:52 -0400 |
Index: emacs/lisp/desktop.el
diff -c emacs/lisp/desktop.el:1.49.2.8 emacs/lisp/desktop.el:1.49.2.9
*** emacs/lisp/desktop.el:1.49.2.8 Tue May 11 02:28:46 2004
--- emacs/lisp/desktop.el Tue Jul 6 09:38:05 2004
***************
*** 326,332 ****
mode is active. RESTORE-FUNCTION is the function to activate the minor mode.
called. RESTORE-FUNCTION nil means don't try to restore the minor mode.
Only minor modes for which the name of the buffer-local variable
! and the name of the minor mode function are different have to added to
this table."
:type 'sexp
:group 'desktop)
--- 326,332 ----
mode is active. RESTORE-FUNCTION is the function to activate the minor mode.
called. RESTORE-FUNCTION nil means don't try to restore the minor mode.
Only minor modes for which the name of the buffer-local variable
! and the name of the minor mode function are different have to be added to
this table."
:type 'sexp
:group 'desktop)
***************
*** 589,604 ****
major-mode
;; minor modes
(let (ret)
! (mapcar
! #'(lambda (mim)
(and
! (boundp mim)
! (symbol-value mim)
! (setq ret
! (cons
! (let ((special (assq mim
desktop-minor-mode-table)))
! (if special (cadr special) mim))
! ret))))
(mapcar #'car minor-mode-alist))
ret)
(point)
--- 589,605 ----
major-mode
;; minor modes
(let (ret)
! (mapc
! #'(lambda (minor-mode)
(and
! (boundp minor-mode)
! (symbol-value minor-mode)
! (let ((special (assq minor-mode
desktop-minor-mode-table)))
! (when (or special (functionp minor-mode))
! (setq ret
! (cons
! (if special (cadr special) minor-mode)
! ret))))))
(mapcar #'car minor-mode-alist))
ret)
(point)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/desktop.el [lexbind],
Miles Bader <=