mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

(icon-imenu-generic-expression): Improved regexp.

Browse Source 
(icon-font-lock-keywords-1): Improved regexps.
(icon-font-lock-keywords-2): Likewise.
(icon-mode): Don't set font-lock-comment-start-regexp via
font-lock-defaults; it is not needed anymore.

(icon-imenu-generic-expression): Improved regexp.
(icon-mode): Don't use pushnew.
This commit is contained in:
Richard M. Stallman 1997-06-16 23:13:12 +00:00
parent 1036798c64
commit b0edcc39e0
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lisp/progmodes/icon.el
View File

@ -126,7 +126,7 @@ when the TAB command is used."
:group 'icon)
(defvar icon-imenu-generic-expression
'((nil "^[ \t]*procedure[ \t]*\\(\\sw+\\)[ \t]*(" 1))
'((nil "^[ \t]*procedure[ \t]+\\(\\sw+\\)[ \t]*(" 1))
"Imenu expression for Icon mode. See `imenu-generic-expression'.")
@ -193,20 +193,21 @@ with no args, if that value is non-nil."
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults
'((icon-font-lock-keywords
icon-font-lock-keywords-1
icon-font-lock-keywords-2
)
icon-font-lock-keywords-1 icon-font-lock-keywords-2)
nil nil ((?_ . "w")) beginning-of-defun
(font-lock-comment-start-regexp . "#")
;; Obsoleted by Emacs 19.35 parse-partial-sexp's COMMENTSTOP.
;(font-lock-comment-start-regexp . "#")
(font-lock-mark-block-function . mark-defun)))
;; imenu support
(make-local-variable 'imenu-generic-expression)
(setq imenu-generic-expression icon-imenu-generic-expression)
;; hideshow support
;; we start from the assertion that `hs-special-modes-alist' is autoloaded.
(pushnew '(icon-mode "\\<procedure\\>" "\\<end\\>" nil
icon-forward-sexp-function)
hs-special-modes-alist :test 'equal)
(unless (assq 'icon-mode hs-special-modes-alist)
(setq hs-special-modes-alist
(cons '(icon-mode "\\<procedure\\>" "\\<end\\>" nil
icon-forward-sexp-function)
hs-special-modes-alist)))
(run-hooks 'icon-mode-hook))
;; This is used by indent-for-comment to decide how much to
@ -619,7 +620,7 @@ Returns nil if line starts inside a string, t if in a comment."
;; Fontify procedure name definitions.
'("^[ \t]*\\(procedure\\)[ \t]*\\(\\sw+\\)[ \t]*("
(1 font-lock-builtin-face) (2 font-lock-function-name-face nil t))))
"Subdued level highlighting for `icon-mode'.")
"Subdued level highlighting for Icon mode.")
(defconst icon-font-lock-keywords-2
(append
@ -674,10 +675,9 @@ Returns nil if line starts inside a string, t if in a comment."
font-lock-variable-name-face)))))
(cons ;; $define $elif $ifdef $ifdef $ifndef
(concat
"^"
(regexp-opt'("$define" "$elif" "$ifdef" "$ifdef" "$ifndef" "$undef") t)
"[ \t]+\\([^ \t\n]+\\)")
(concat "^"
(regexp-opt'("$define" "$elif" "$ifdef" "$ifndef" "$undef") t)
"\\>[ \t]*\\([^ \t\n]+\\)?")
'((1 font-lock-builtin-face)
(4 font-lock-variable-name-face nil t)))
(cons ;; $dump $endif $else $include
@ -685,9 +685,10 @@ Returns nil if line starts inside a string, t if in a comment."
"^" (regexp-opt'("$dump" "$endif" "$else" "$include") t) "\\>" )
'font-lock-builtin-face)
(cons ;; $warning $error
(concat "^" (regexp-opt '("$warning" "$error") t) "[ \t]+\\([^\n]+\\)")
'((1 font-lock-builtin-face) (3 font-lock-warning-face nil t))))))
"Gaudy level highlighting for `icon-mode'.")
(concat "^" (regexp-opt '("$warning" "$error") t)
"\\>[ \t]*\\(.+\\)?")
'((1 font-lock-builtin-face) (3 font-lock-warning-face nil t))))))
"Gaudy level highlighting for Icon mode.")
(defvar icon-font-lock-keywords icon-font-lock-keywords-1
"Default expressions to highlight in `icon-mode'.")