andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't move point when clicking on hideshow fringe/margin indicator

Browse source 
* lisp/progmodes/hideshow.el (hs-indicator-mouse-toggle-hidding):
Enclose in 'hs-life-goes-on' (bug#79585).
Suggested by Elijah Gabe Pérez <eg642616@gmail.com>.
This commit is contained in:
Juri Linkov 2025-11-06 09:30:37 +02:00
parent d6402072f2
commit 2c41bfabbc
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/progmodes/hideshow.el
View file

@ -1378,17 +1378,18 @@ Argument E should be the event that triggered this action."
(defun hs-indicator-mouse-toggle-hidding (event)
"Toggle block hidding with indicators."
(interactive "e")
(when hs-show-indicators
(let* ((overlays (save-excursion
(goto-char (posn-point (event-end event)))
(overlays-in (pos-bol) (pos-eol))))
(pos (catch 'hs--indicator-ov
(dolist (ov overlays)
(when-let* ((ov (overlay-get ov 'hs-indicator-block-start)))
(throw 'hs--indicator-ov ov))))))
(when pos
(goto-char pos)
(hs-toggle-hiding)))))
(hs-life-goes-on
(when hs-show-indicators
(let* ((overlays (save-excursion
(goto-char (posn-point (event-end event)))
(overlays-in (pos-bol) (pos-eol))))
(pos (catch 'hs--indicator-ov
(dolist (ov overlays)
(when-let* ((ov (overlay-get ov 'hs-indicator-block-start)))
(throw 'hs--indicator-ov ov))))))
(when pos
(goto-char pos)
(hs-toggle-hiding))))))
(defun hs-hide-initial-comment-block ()
"Hide the first block of comments in a file.