procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make desktop.el use local-minor-modes when saving

Browse source 
* lisp/desktop.el (desktop-buffer-info): Use a more reliable way
to get minor modes (bug#29972).
This commit is contained in:
Lars Ingebrigtsen 2022-04-17 20:21:40 +02:00
parent 58a0c2e9c3
commit c5253aa01e
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/desktop.el
View file

@ -847,15 +847,16 @@ buffer, which is (in order):
,(buffer-name)
,major-mode
;; minor modes
,(let (ret)
(dolist (minor-mode (mapcar #'car minor-mode-alist) ret)
(and (boundp minor-mode)
(symbol-value minor-mode)
(let* ((special (assq minor-mode desktop-minor-mode-table))
(value (cond (special (cadr special))
((get minor-mode :minor-mode-function))
((functionp minor-mode) minor-mode))))
(when value (cl-pushnew value ret))))))
,(seq-filter
(lambda (minor-mode)
;; Just two sanity checks.
(and (boundp minor-mode)
(symbol-value minor-mode)
(let ((special
(assq minor-mode desktop-minor-mode-table)))
(or (not special)
(cadr special)))))
local-minor-modes)
;; point and mark, and read-only status
,(point)
,(list (mark t) mark-active)