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) |
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) |