(back-to-indentation): Skip all whitespace except for newlines.

This commit is contained in:
Richard M. Stallman 2003-02-04 10:41:10 +00:00
parent 7906c044c1
commit 0ea364e605

View file

@ -368,7 +368,8 @@ useful for editing binary files."
"Move point to the first non-whitespace character on this line."
(interactive)
(beginning-of-line 1)
(skip-chars-forward " \t"))
(let ((limit (line-end-position)))
(skip-syntax-forward " " limit)))
(defun fixup-whitespace ()
"Fixup white space between objects around point.