diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-06-17 19:34:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-06-17 19:34:56 +0000 |
| commit | 32632f66779b17f7551173e6eed9b8355caf707f (patch) | |
| tree | 0069a0d9b62a9000836b8703cd59decaaadf761c /lisp/progmodes/icon.el | |
| parent | a59faabe2ba6554a883ac3ae12d1e0c80fefe9a4 (diff) | |
| download | emacs-32632f66779b17f7551173e6eed9b8355caf707f.tar.gz | |
(icon-indent-line): A comment ends at the end of the
line, delete call to inexistent function.
(icon-font-lock-keywords-1): Improved regexp.
(icon-font-lock-keywords-2): Likewise.
Diffstat (limited to 'lisp/progmodes/icon.el')
| -rw-r--r-- | lisp/progmodes/icon.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/progmodes/icon.el b/lisp/progmodes/icon.el index ccebcb3789b..571066043f5 100644 --- a/lisp/progmodes/icon.el +++ b/lisp/progmodes/icon.el @@ -295,8 +295,6 @@ Return the amount the indentation changed by." (setq beg (point)) (cond ((eq indent nil) (setq indent (current-indentation))) - ((eq indent t) - (setq indent (calculate-icon-indent-within-comment))) ((looking-at "[ \t]*#") (setq indent 0)) (t @@ -618,7 +616,7 @@ Returns nil if line starts inside a string, t if in a comment." (eval-when-compile (list ;; Fontify procedure name definitions. - '("^[ \t]*\\(procedure\\)[ \t]*\\(\\sw+\\)[ \t]*(" + '("^[ \t]*\\(procedure\\)\\>[ \t]*\\(\\sw+\\)?" (1 font-lock-builtin-face) (2 font-lock-function-name-face nil t)))) "Subdued level highlighting for Icon mode.") @@ -674,7 +672,7 @@ Returns nil if line starts inside a string, t if in a comment." font-lock-function-name-face font-lock-variable-name-face))))) - (cons ;; $define $elif $ifdef $ifdef $ifndef + (cons ;; $define $elif $ifdef $ifndef $undef (concat "^" (regexp-opt'("$define" "$elif" "$ifdef" "$ifndef" "$undef") t) "\\>[ \t]*\\([^ \t\n]+\\)?") |