Mercurial > emacs

changeset 30947:3e2633195694

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(icon-indent-line) (icon-is-continuation-line): Handle comments specially.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 18 Aug 2000 06:29:14 +0000
parents 0cc084d7b4a7
children 0763555f942b
files lisp/progmodes/icon.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/icon.el	Fri Aug 18 06:28:47 2000 +0000
+++ b/lisp/progmodes/icon.el	Fri Aug 18 06:29:14 2000 +0000
@@ -295,7 +295,7 @@
     (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 @@
 		(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)