mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(desktop-save): Don't save minor modes without a known mode initialization function.

Browse Source
This commit is contained in:
Lars Hansen 2004-05-31 21:45:51 +00:00
parent e8eeaed8cb
commit 7bfa55b358
2 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2004-05-31 Lars Hansen <larsh@math.ku.dk>
* desktop.el (desktop-save): Don't save minor modes without a
known mode initialization function.
2004-05-30 Luc Teirlinck <teirllm@auburn.edu>
* replace.el (query-replace-interactive): Convert defvar into

21
lisp/desktop.el
View File

@ -326,7 +326,7 @@ NAME is the name of the buffer-local variable indicating that the minor
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
and the name of the minor mode function are different have to be added to
this table."
:type 'sexp
:group 'desktop)
@ -589,16 +589,17 @@ See also `desktop-base-file-name'."
major-mode
;; minor modes
(let (ret)
(mapcar
#'(lambda (mim)
(mapc
#'(lambda (minor-mode)
(and
(boundp mim)
(symbol-value mim)
(setq ret
(cons
(let ((special (assq mim desktop-minor-mode-table)))
(if special (cadr special) mim))
ret))))
(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)