emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Simplify (% current-column tab-width) code

Browse source
This commit is contained in:
Jan Felix Langenbach 2021-05-13 10:50:44 +02:00
parent 3c41823824
commit c84bc953d9
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
modules/config/default/autoload/text.el
View file

@ -91,10 +91,7 @@ possible, or just one char if that's not possible."
(not (doom-point-in-string-p)) (not (doom-point-in-string-p))
(>= (abs (save-excursion (skip-chars-backward " \t"))) (>= (abs (save-excursion (skip-chars-backward " \t")))
(setq current-column (current-column)))) (setq current-column (current-column))))
(let ((movement (% current-column tab-width))) (delete-char (- (1+ (% (1- current-column) tab-width)))))
(when (= movement 0)
(setq movement tab-width))
(delete-char (- movement))))
;; Otherwise do a regular delete ;; Otherwise do a regular delete
((delete-char -1))))) ((delete-char -1)))))