diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-13 23:01:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-13 23:01:26 +0000 |
| commit | 19cec8bb1ba01b704632a2b371c821b196431d4e (patch) | |
| tree | 4bbc36e6efc14b45dfd7a487dbe5f93c2595f43b /lisp/hilit19.el | |
| parent | a77474fd72750af7abf37f14420192c9111642ee (diff) | |
| download | emacs-19cec8bb1ba01b704632a2b371c821b196431d4e.tar.gz | |
(hilit-set-mode-patterns - lisp-mode): Fix regexp
for 'defconstant' that leads to an infinite loop.
Hilight the 'list' keyword.
Diffstat (limited to 'lisp/hilit19.el')
| -rw-r--r-- | lisp/hilit19.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/hilit19.el b/lisp/hilit19.el index 961ccea6380..35b9e98fb4e 100644 --- a/lisp/hilit19.el +++ b/lisp/hilit19.el @@ -1390,10 +1390,10 @@ number of backslashes." ("^\\s *(def\\(un\\|macro\\|advice\\|subst\\|method\\)\\s " "\\()\\|nil\\)" defun) ("^\\s *(\\(def\\(var\\|type\\|parameter\\)\\|declare\\)\\s +\\S +" nil decl) - ("^\\s *(def\\(const\\(ant\\)?\\|class\\|struct\\)\\s \\S +[ \t\n]+\\((\\(([^()]*)\\|[^()]+\\)*)\\)?" nil define) + ("^\\s *(def\\(const\\(ant\\)?\\|class\\|struct\\)\\s \\S +[ \t\n]+" nil define) ("^\\s *(\\(provide\\|require\\|\\(auto\\)?load\\).*$" nil include) ("[ \t]\\&\\(key\\|rest\\|optional\\|aux\\)\\s *" nil keyword) - ("(\\(let\\*?\\|locally\\|cond\\|if\\*?\\|or\\|and\\|map\\(car\\|c[ao]n\\)?\\|prog[nv1*]?\\|while\\|when\\|unless\\|do\\(\\*\\|list\\|times\\)\\|lambda\\|function\\|values\\|set\\([qf]\\|car\\|cdr\\)?\\|rplac[ad]\\|nconc\\|block\\|go\\|return\\(-from\\)?\\|[ec]?\\(type\\)?case\\|multiple-value-\\(bind\\|setq\\|list\\|call\\|prog1\\)\\|unwind-protect\\|handler-case\\|catch\\|throw\\|eval-when\\(-compile\\)?\\)[ \t\n]" 1 keyword) + ("(\\(let\\*?\\|locally\\|cond\\|if\\*?\\|or\\|and\\|map\\(car\\|c[ao]n\\)?\\|prog[nv1*]?\\|while\\|when\\|unless\\|do\\(\\*\\|list\\|times\\)\\|list\\|lambda\\|function\\|values\\|set\\([qf]\\|car\\|cdr\\)?\\|rplac[ad]\\|nconc\\|block\\|go\\|return\\(-from\\)?\\|[ec]?\\(type\\)?case\\|multiple-value-\\(bind\\|setq\\|list\\|call\\|prog1\\)\\|unwind-protect\\|handler-case\\|catch\\|throw\\|eval-when\\(-compile\\)?\\)[ \t\n]" 1 keyword) )) @@ -1469,10 +1469,7 @@ number of backslashes." (hilit-set-mode-patterns 'calendar-mode '(("[A-Z][a-z]+ [0-9]+" nil define) ; month and year - ("S M Tu W Th F S" nil label) ; week days - ("[0-9]+\\*" nil defun) ; holidays - ("[0-9]+\\+" nil comment) ; diary days - )) + ("S M Tu W Th F S" nil label))) ; week days (hilit-set-mode-patterns 'pascal-mode |