(icon-indent-line)

(icon-is-continuation-line): Handle comments specially.

diff --git a/lisp/progmodes/icon.el b/lisp/progmodes/icon.el
index dc72fbe07ffa88ef0107e29c5132817985e97c17..96e46af27540daf2c63211a0348a541256480c32 100644 (file)
--- a/lisp/progmodes/icon.el
+++ b/lisp/progmodes/icon.el
@@ -295,7 +295,7 @@ Return the amount the indentation changed by."
     (setq beg (point))
     (cond ((eq indent nil)
           (setq indent (current-indentation)))
-         ((looking-at "[ \t]*#")
+         ((looking-at "^#")
           (setq indent 0))
          (t
           (skip-chars-forward " \t")
@@ -432,7 +432,7 @@ Returns nil if line starts inside a string, t if in a comment."
                (progn (forward-word -1) (point))
                (progn (forward-word 1) (point)))
               icon-resword-alist)
-      (not (memq ch '(0 ?\; ?\} ?\{ ?\) ?\] ?\" ?\' ?\n))))))
+      (not (memq ch '(0 ?\; ?\} ?\{ ?\) ?\] ?\" ?\' ?\# ?\, ?\. ?\n))))))
 
 (defun icon-backward-to-noncomment (lim)
   (let (opoint stop)