diff options
| author | Stefan Monnier | 2003-10-27 15:22:38 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-10-27 15:22:38 +0000 |
| commit | fd2c4cd833ed262d6a43ab8cf004154aa2533143 (patch) | |
| tree | e030978484c70fca67da796776888478badf6e5c | |
| parent | 5aa8f7d40f72e54944c77d1a7f249f09c17110d3 (diff) | |
| download | emacs-fd2c4cd833ed262d6a43ab8cf004154aa2533143.tar.gz emacs-fd2c4cd833ed262d6a43ab8cf004154aa2533143.zip | |
(reindent-then-newline-and-indent): Delete space *after*
reindenting the first line.
| -rw-r--r-- | lisp/ChangeLog | 23 | ||||
| -rw-r--r-- | lisp/simple.el | 4 |
2 files changed, 23 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 928091f64bd..557e49eed2c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,10 +1,29 @@ | |||
| 1 | 2003-10-27 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * simple.el (reindent-then-newline-and-indent): Delete space *after* | ||
| 4 | reindenting the first line. | ||
| 5 | |||
| 1 | 2003-10-25 Per Abrahamsen <abraham@dina.kvl.dk> | 6 | 2003-10-25 Per Abrahamsen <abraham@dina.kvl.dk> |
| 2 | 7 | ||
| 3 | * wid-edit.el (widget-default-delete): Always delete child widgets. | 8 | * wid-edit.el (widget-default-delete): Always delete child widgets. |
| 4 | 9 | ||
| 10 | 2003-10-24 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 11 | |||
| 12 | * newcomment.el (comment-indent): Don't call indent-according-to-mode | ||
| 13 | if the line has code. | ||
| 14 | Don't try to line up with something that's too far left. | ||
| 15 | |||
| 16 | * progmodes/octave-mod.el (octave-comment-start): Simplify. | ||
| 17 | (octave-mode-syntax-table): Add % as a comment starter. | ||
| 18 | (octave-point): Remove. | ||
| 19 | (octave-in-comment-p, octave-in-string-p) | ||
| 20 | (octave-not-in-string-or-comment-p, calculate-octave-indent) | ||
| 21 | (octave-blink-matching-block-open, octave-auto-fill): | ||
| 22 | Use line-(beginning|end)-position instead. | ||
| 23 | |||
| 5 | 2003-10-23 Francesco Potort,Al(B <pot@gnu.org> | 24 | 2003-10-23 Francesco Potort,Al(B <pot@gnu.org> |
| 6 | 25 | ||
| 7 | * emacs-lisp/authors.el (authors-aliases): Added correct realname | 26 | * emacs-lisp/authors.el (authors-aliases): Add correct realname |
| 8 | for Francesco Potort,Al(B. | 27 | for Francesco Potort,Al(B. |
| 9 | 28 | ||
| 10 | 2003-10-23 Dave Love <fx@gnu.org> | 29 | 2003-10-23 Dave Love <fx@gnu.org> |
| @@ -20,7 +39,7 @@ | |||
| 20 | 39 | ||
| 21 | * gdb-ui.el (gdb-current-language): New variable. | 40 | * gdb-ui.el (gdb-current-language): New variable. |
| 22 | (gdb-update-flag): Remove variable. | 41 | (gdb-update-flag): Remove variable. |
| 23 | (gud-watch,gdb-frame-handler): Adapt for other languages (Fortran). | 42 | (gud-watch, gdb-frame-handler): Adapt for other languages (Fortran). |
| 24 | (gdb-take-last-elt): Remove function. | 43 | (gdb-take-last-elt): Remove function. |
| 25 | (gdb-dequeue-input): Avoid recursion by not using gdb-take-last-elt. | 44 | (gdb-dequeue-input): Avoid recursion by not using gdb-take-last-elt. |
| 26 | (gdb-post-prompt): Check for variable object changes here. | 45 | (gdb-post-prompt): Check for variable object changes here. |
diff --git a/lisp/simple.el b/lisp/simple.el index b0d5f7295f9..3d636de721a 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -303,14 +303,14 @@ In programming language modes, this is the same as TAB. | |||
| 303 | In some text modes, where TAB inserts a tab, this indents to the | 303 | In some text modes, where TAB inserts a tab, this indents to the |
| 304 | column specified by the function `current-left-margin'." | 304 | column specified by the function `current-left-margin'." |
| 305 | (interactive "*") | 305 | (interactive "*") |
| 306 | (delete-horizontal-space t) | ||
| 307 | (let ((pos (point))) | 306 | (let ((pos (point))) |
| 308 | ;; Be careful to insert the newline before indenting the line. | 307 | ;; Be careful to insert the newline before indenting the line. |
| 309 | ;; Otherwise, the indentation might be wrong. | 308 | ;; Otherwise, the indentation might be wrong. |
| 310 | (newline) | 309 | (newline) |
| 311 | (save-excursion | 310 | (save-excursion |
| 312 | (goto-char pos) | 311 | (goto-char pos) |
| 313 | (indent-according-to-mode)) | 312 | (indent-according-to-mode) |
| 313 | (delete-horizontal-space t)) | ||
| 314 | (indent-according-to-mode))) | 314 | (indent-according-to-mode))) |
| 315 | 315 | ||
| 316 | (defun quoted-insert (arg) | 316 | (defun quoted-insert (arg) |