diff options
| author | Martin Stjernholm | 2002-04-22 22:35:45 +0000 |
|---|---|---|
| committer | Martin Stjernholm | 2002-04-22 22:35:45 +0000 |
| commit | 477feba7985e30a1d54be7ac61ec26f683a31448 (patch) | |
| tree | 5c84d4d491334cb96fe5cb42101a8fe3adeb658a | |
| parent | fda3de70e18b1281f685f56ecd9ec4178cbeb5f8 (diff) | |
| download | emacs-477feba7985e30a1d54be7ac61ec26f683a31448.tar.gz emacs-477feba7985e30a1d54be7ac61ec26f683a31448.zip | |
(c-mask-comment): Fixed bug where point was moved to the following line when
it was at the first line of a block comment where comment-start-skip matched
to eol.
| -rw-r--r-- | lisp/progmodes/cc-cmds.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el index d56000049dc..7c63b5fc7b4 100644 --- a/lisp/progmodes/cc-cmds.el +++ b/lisp/progmodes/cc-cmds.el | |||
| @@ -2900,7 +2900,8 @@ command to conveniently insert and align the necessary backslashes." | |||
| 2900 | ;; The region includes the comment starter. | 2900 | ;; The region includes the comment starter. |
| 2901 | (save-excursion | 2901 | (save-excursion |
| 2902 | (goto-char (car c-lit-limits)) | 2902 | (goto-char (car c-lit-limits)) |
| 2903 | (if (looking-at (concat "\\(" comment-start-skip "\\)$")) | 2903 | (if (and (looking-at (concat "\\(" comment-start-skip "\\)$")) |
| 2904 | (> here (match-end 0))) | ||
| 2904 | ;; Begin with the next line. | 2905 | ;; Begin with the next line. |
| 2905 | (setq beg (c-point 'bonl)) | 2906 | (setq beg (c-point 'bonl)) |
| 2906 | ;; Fake the fill prefix in the first line. | 2907 | ;; Fake the fill prefix in the first line. |