(octave-indent-for-comment): Behave according to do string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7bc8263454703af42a33a1a423e9de3abe422638..cf9ecfee24f1d0012092c61c2b0a7adff3b3713f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-11  Kurt Hornik  <Kurt.Hornik@wu-wien.ac.at>
+
+       * progmodes/octave-mod.el (octave-indent-for-comment): Behave
+       according to do string.
+
 2006-03-11  Agustin Martin  <agustin.martin@hispalinux.es>
 
        * textmodes/flyspell.el (flyspell-external-point-words)

diff --git a/lisp/progmodes/octave-mod.el b/lisp/progmodes/octave-mod.el
index 5f52e6f4d3c5d4d7bb25b7ccfdad58d345576e1b..57941db9691c66cf713450cc5e9b54dca8f937d1 100644 (file)
--- a/lisp/progmodes/octave-mod.el
+++ b/lisp/progmodes/octave-mod.el
@@ -732,7 +732,10 @@ If there is no comment already on this line, create a code-level comment
 comment (started by one comment character) otherwise.
 Point is left after the start of the comment which is properly aligned."
   (interactive)
-  (indent-for-comment)
+  (beginning-of-line)
+  (if (looking-at "^\\s-*$")
+      (insert octave-block-comment-start)
+    (indent-for-comment))
   (indent-according-to-mode))
 
 (defun octave-indent-line (&optional arg)