Mercurial > emacs
changeset 74231:0b8c05c54956
(tab-to-tab-stop, move-to-tab-stop): "?\ " -> "?\s".
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Mon, 27 Nov 2006 13:53:11 +0000 |
parents | 274336dd0ead |
children | 4accd8d9cc3c |
files | lisp/indent.el |
diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/indent.el Mon Nov 27 13:52:27 2006 +0000 +++ b/lisp/indent.el Mon Nov 27 13:53:11 2006 +0000 @@ -512,7 +512,7 @@ (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 @@ (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))))))))