From 0c1a49d3cb1b623fd4874844c3bba9a4f5d231e6 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 18 Aug 2000 06:29:14 +0000 Subject: [PATCH] (icon-indent-line) (icon-is-continuation-line): Handle comments specially. --- lisp/progmodes/icon.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/icon.el b/lisp/progmodes/icon.el index dc72fbe07ff..96e46af2754 100644 --- 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) -- 2.39.2