diff options
| author | Glenn Morris | 2006-11-23 07:26:52 +0000 |
|---|---|---|
| committer | Glenn Morris | 2006-11-23 07:26:52 +0000 |
| commit | b464e0eeda92ec3da71ea58c95f32d7228bfd79f (patch) | |
| tree | b5701ff5c61fa0f8b2f3c6af6f058f05aa77aa83 | |
| parent | eb2fa81f4a455bb33d8bf21677e40c648c106c0b (diff) | |
| download | emacs-b464e0eeda92ec3da71ea58c95f32d7228bfd79f.tar.gz emacs-b464e0eeda92ec3da71ea58c95f32d7228bfd79f.zip | |
(f90-comment-indent): Do not move point in default case.
| -rw-r--r-- | lisp/progmodes/f90.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index cdbc24cd391..6b0a44f44ab 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el | |||
| @@ -1007,8 +1007,9 @@ All others return `comment-column', leaving at least one space after code." | |||
| 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. |