Mercurial > emacs
comparison lisp/progmodes/octave-mod.el @ 69383:d42f434529e3
(octave-indent-for-comment): Behave according to do string.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 11 Mar 2006 15:10:32 +0000 |
| parents | dc49655f57ae |
| children | 07d0c7e67ef3 a802c5505156 |
comparison
equal
deleted
inserted
replaced
| 69382:743351204cc6 | 69383:d42f434529e3 |
|---|---|
| 730 If there is no comment already on this line, create a code-level comment | 730 If there is no comment already on this line, create a code-level comment |
| 731 \(started by two comment characters) if the line is empty, or an in-line | 731 \(started by two comment characters) if the line is empty, or an in-line |
| 732 comment (started by one comment character) otherwise. | 732 comment (started by one comment character) otherwise. |
| 733 Point is left after the start of the comment which is properly aligned." | 733 Point is left after the start of the comment which is properly aligned." |
| 734 (interactive) | 734 (interactive) |
| 735 (indent-for-comment) | 735 (beginning-of-line) |
| 736 (if (looking-at "^\\s-*$") | |
| 737 (insert octave-block-comment-start) | |
| 738 (indent-for-comment)) | |
| 736 (indent-according-to-mode)) | 739 (indent-according-to-mode)) |
| 737 | 740 |
| 738 (defun octave-indent-line (&optional arg) | 741 (defun octave-indent-line (&optional arg) |
| 739 "Indent current line as Octave code. | 742 "Indent current line as Octave code. |
| 740 With optional ARG, use this as offset unless this line is a comment with | 743 With optional ARG, use this as offset unless this line is a comment with |