awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases 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))
(>= (abs (save-excursion (skip-chars-backward " \t")))
(setq current-column (current-column))))
(let ((movement (% current-column tab-width)))
(when (= movement 0)
(setq movement tab-width))
(delete-char (- movement))))
(delete-char (- (1+ (% (1- current-column) tab-width)))))
;; Otherwise do a regular delete
((delete-char -1)))))