pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 12:21:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Don't double indent the last time, just once

Browse source
This commit is contained in:
Benson Chu 2024-04-29 11:35:12 -05:00
parent c909cd9f6a
commit d290f64bd0
1 changed files with 17 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lisp/make-cf-map.el
View file

@ -227,16 +227,24 @@
(overwrite-mode -1) (overwrite-mode -1)
(let ((start (save-excursion
(goto-line super-start)
(line-beginning-position)))
(end (save-excursion
(goto-line super-end)
(line-beginning-position))))
(string-rectangle start end " "))
(setq remaining (reverse new-list) (setq remaining (reverse new-list)
arrow-length (+ 2 arrow-length))) arrow-length (+ 2 arrow-length))
(when (not (zerop (length remaining)))
(let ((start (save-excursion
(goto-line super-start)
(line-beginning-position)))
(end (save-excursion
(goto-line super-end)
(line-beginning-position))))
(string-rectangle start end " "))))
(let ((start (save-excursion
(goto-line super-start)
(line-beginning-position)))
(end (save-excursion
(goto-line super-end)
(line-beginning-position))))
(string-rectangle start end " "))
(setq cfmap-width arrow-length)))) (setq cfmap-width arrow-length))))
(provide 'make-cf-map) (provide 'make-cf-map)