Mercurial > emacs
comparison lisp/progmodes/f90.el @ 74133:2942fb5a1900
(f90-comment-indent): Do not move point in default case.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 23 Nov 2006 07:26:52 +0000 |
| parents | c46f00343034 |
| children | 1ca429066367 |
comparison
equal
deleted
inserted
replaced
| 74132:07ca11e5f910 | 74133:2942fb5a1900 |
|---|---|
| 1005 ;; Don't attempt to indent trailing comment as code. | 1005 ;; Don't attempt to indent trailing comment as code. |
| 1006 (save-excursion | 1006 (save-excursion |
| 1007 (skip-chars-backward " \t") | 1007 (skip-chars-backward " \t") |
| 1008 (bolp))) | 1008 (bolp))) |
| 1009 (f90-calculate-indent)) | 1009 (f90-calculate-indent)) |
| 1010 (t (skip-chars-backward " \t") | 1010 (t (save-excursion |
| 1011 (max (if (bolp) 0 (1+ (current-column))) comment-column)))) | 1011 (skip-chars-backward " \t") |
| 1012 (max (if (bolp) 0 (1+ (current-column))) comment-column))))) | |
| 1012 | 1013 |
| 1013 (defsubst f90-present-statement-cont () | 1014 (defsubst f90-present-statement-cont () |
| 1014 "Return continuation properties of present statement. | 1015 "Return continuation properties of present statement. |
| 1015 Possible return values are: | 1016 Possible return values are: |
| 1016 single - statement is not continued. | 1017 single - statement is not continued. |