mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Fix point movement when indenting in sieve-mode

Browse source 
* lisp/net/sieve-mode.el (sieve-mode-indent-function): Fix point
movement when point is at the start of the line (bug#58202).
This commit is contained in:
Lars Ingebrigtsen 2022-10-02 14:05:53 +02:00
parent b14f049f00
commit ef6f16da2f
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/net/sieve-mode.el
View file

@ -200,7 +200,13 @@ Turning on Sieve mode runs `sieve-mode-hook'."
(let ((depth (car (syntax-ppss))))
(when (looking-at "[ \t]*}")
(setq depth (1- depth)))
(indent-line-to (* 2 depth)))))
(indent-line-to (* 2 depth))))
;; Skip to the end of the indentation if at the beginning of the
;; line.
(when (save-excursion
(skip-chars-backward " \t")
(bolp))
(skip-chars-forward " \t")))
(provide 'sieve-mode)