mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix window-point-context-set and window-point-context-use (bug#33871)

Browse source 
* lisp/window.el (window-point-context-set)
(window-point-context-use): Add 'window-buffer' for 'buffer-name'.
This commit is contained in:
Juri Linkov 2024-04-09 09:43:55 +03:00
parent 677bc27699
commit b31f7e67de
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/window.el
View file

@ -10867,7 +10867,8 @@ Remember the returned context in the window parameter `context'."
(window-buffer w)))
((functionp fn))
(context (funcall fn w)))
(set-window-parameter w 'context (cons (buffer-name) context))))
(set-window-parameter
w 'context (cons (buffer-name (window-buffer w)) context))))
'nomini))
(defun window-point-context-use ()
@ -10885,7 +10886,7 @@ found by the provided context."
(window-buffer w)))
((functionp fn))
(context (window-parameter w 'context))
((equal (buffer-name) (car context))))
((equal (buffer-name (window-buffer w)) (car context))))
(funcall fn w (cdr context))
(set-window-parameter w 'context nil)))
'nomini))