andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/indent.el (indent-line-to): Fix dedenting of tabs.

Browse source
This commit is contained in:
Noam Postavsky 2018-07-10 12:07:01 -04:00
parent cc74539a19
commit c249e17324
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/indent.el
View file

@ -300,9 +300,11 @@ only if necessary. It leaves point at end of indentation."
(progn (skip-chars-backward " ") (point))))
(indent-to column))
((> cur-col column) ; too far right (after tab?)
(let ((cur-indent (point)))
(delete-region (progn (move-to-column column t) (point))
cur-indent))))))
(delete-region (progn (move-to-column column t) (point))
;; The `move-to-column' call may replace
;; tabs with spaces, so we can't reuse the
;; previous `back-to-indentation' point.
(progn (back-to-indentation) (point)))))))
(defun current-left-margin ()
"Return the left margin to use for this line.