Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/progmodes/hideshow.el (hs-toggle-hiding): Fix interactive form

Browse source 
This fixes the first part of bug#52092, which is a regression
introduced by commit d0e9113de9.
This commit is contained in:
Stefan Monnier 2022-09-24 10:24:54 -04:00
parent 597c59078e
commit 583ebfa414
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/hideshow.el
View file

@ -740,6 +740,8 @@ and `case-fold-search' are both t."
(defun hs-already-hidden-p ()
"Return non-nil if point is in an already-hidden block, otherwise nil."
;; FIXME: We should probably also consider ourselves "in" a hidden block
;; when point is right at the edge after a hidden block (bug#52092).
(save-excursion
(let ((c-reg (hs-inside-comment-p)))
(if (and c-reg (nth 0 c-reg))
@ -893,7 +895,7 @@ The hook `hs-hide-hook' is run; see `run-hooks'."
"Toggle hiding/showing of a block.
See `hs-hide-block' and `hs-show-block'.
Argument E should be the event that triggered this action."
(interactive)
(interactive (list last-nonmenu-event))
(hs-life-goes-on
(posn-set-point (event-end e))
(if (hs-already-hidden-p)