mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(tab-to-tab-stop, move-to-tab-stop): "?\ " -> "?\s".

Browse Source
This commit is contained in:
Juanma Barranquero 2006-11-27 13:53:11 +00:00
parent 94318c8a1f
commit b379356ae1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/indent.el
View File

@ -512,7 +512,7 @@ Use \\[edit-tab-stops] to edit them interactively."
(let ((opoint (point)))
(delete-horizontal-space t)
(indent-to (car tabs)))
(insert ?\ ))))
(insert ?\s))))
(defun move-to-tab-stop ()
"Move point to next defined tab-stop column.
@ -529,11 +529,11 @@ Use \\[edit-tab-stops] to edit them interactively."
(goto-char before)
;; If we just added a tab, or moved over one,
;; delete any superfluous spaces before the old point.
(if (and (eq (preceding-char) ?\ )
(if (and (eq (preceding-char) ?\s)
(eq (following-char) ?\t))
(let ((tabend (* (/ (current-column) tab-width) tab-width)))
(while (and (> (current-column) tabend)
(eq (preceding-char) ?\ ))
(eq (preceding-char) ?\s))
(forward-char -1))
(delete-region (point) before))))))))