diff options
| author | Richard M. Stallman | 2003-02-04 10:41:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-02-04 10:41:10 +0000 |
| commit | 0ea364e605cb3010fbf3314344a2f3ecfb38f3a3 (patch) | |
| tree | 78099216b984455fb76f49247211de17cc8fc9b8 | |
| parent | 7906c044c17790794701749fac2a946b3ca75e72 (diff) | |
| download | emacs-0ea364e605cb3010fbf3314344a2f3ecfb38f3a3.tar.gz emacs-0ea364e605cb3010fbf3314344a2f3ecfb38f3a3.zip | |
(back-to-indentation): Skip all whitespace except for newlines.
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index ac531e9674c..27f301b4261 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -368,7 +368,8 @@ useful for editing binary files." | |||
| 368 | "Move point to the first non-whitespace character on this line." | 368 | "Move point to the first non-whitespace character on this line." |
| 369 | (interactive) | 369 | (interactive) |
| 370 | (beginning-of-line 1) | 370 | (beginning-of-line 1) |
| 371 | (skip-chars-forward " \t")) | 371 | (let ((limit (line-end-position))) |
| 372 | (skip-syntax-forward " " limit))) | ||
| 372 | 373 | ||
| 373 | (defun fixup-whitespace () | 374 | (defun fixup-whitespace () |
| 374 | "Fixup white space between objects around point. | 375 | "Fixup white space between objects around point. |