[Emacs-diffs] /srv/bzr/emacs/trunk r112563: * progmodes/octave.el (octave-indent-comment): Fix the indentation

[Leo Liu]

------------------------------------------------------------
revno: 112563
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Mon 2013-05-13 08:07:18 +0800
message:
  * progmodes/octave.el (octave-indent-comment): Fix the indentation
  of ### or %%%.
modified:
  lisp/ChangeLog
  lisp/progmodes/octave.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-12 04:10:40 +0000
+++ b/lisp/ChangeLog    2013-05-13 00:07:18 +0000
@@ -1,3 +1,8 @@
+2013-05-13  Leo Liu  <address@hidden>
+
+       * progmodes/octave.el (octave-indent-comment): Fix the indentation
+       of ### or %%%.
+
 2013-05-12  Leo Liu  <address@hidden>
 
        * progmodes/octave.el (inferior-octave-startup): Store the value

=== modified file 'lisp/progmodes/octave.el'
--- a/lisp/progmodes/octave.el  2013-05-12 04:10:40 +0000
+++ b/lisp/progmodes/octave.el  2013-05-13 00:07:18 +0000
@@ -434,10 +434,13 @@
   "A function for `smie-indent-functions' (which see)."
   (save-excursion
     (back-to-indentation)
-    (when (and (not (octave-in-string-or-comment-p))
-               (looking-at-p "\\s<\\(?:[^{}]\\|$\\)")
-               (not (looking-at-p "\\s<\\s<")))
-      (comment-choose-indent))))
+    (cond
+     ((octave-in-string-or-comment-p) nil)
+     ((looking-at-p "\\s<\\{3,\\}")
+      0)
+     ((and (looking-at-p "\\s<\\(?:[^{}]\\|$\\)")
+           (not (looking-at-p "\\s<\\s<")))
+      (comment-choose-indent)))))
 
 
 (defvar octave-font-lock-keywords