Mercurial > hg > xemacs-beta

comparison lisp/packages/font-lock.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 43dd3413c7c7
children f53b5ca2e663
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
1609 (defconst lisp-font-lock-keywords-2 1609 (defconst lisp-font-lock-keywords-2
1610 (append lisp-font-lock-keywords-1 1610 (append lisp-font-lock-keywords-1
1611 (list 1611 (list
1612 ;; 1612 ;;
1613 ;; Control structures. ELisp and CLisp combined. 1613 ;; Control structures. ELisp and CLisp combined.
1614 ; (make-regexp 1614 ;;
1615 ; '("cond" "if" "while" "let\\*?" "prog[nv12*]?" "catch" "throw" 1615 ;;(make-regexp
1616 ; "save-restriction" "save-excursion" "save-window-excursion" 1616 ;; '("cond" "if" "while" "let\\*?" "prog[nv12*]?" "catch" "throw"
1617 ; "save-selected-window" "save-match-data" "unwind-protect" 1617 ;; "save-restriction" "save-excursion" "save-window-excursion"
1618 ; "condition-case" "track-mouse" 1618 ;; "save-current-buffer" "with-current-buffer"
1619 ; "eval-after-load" "eval-and-compile" "eval-when-compile" 1619 ;; "with-temp-file" "with-output-to-.+"
1620 ; "when" "unless" "do" "flet" "labels" "return" "return-from")) 1620 ;; "save-selected-window" "save-match-data" "unwind-protect"
1621 ;; "condition-case" "track-mouse" "autoload"
1622 ;; "eval-after-load" "eval-and-compile" "eval-when-compile"
1623 ;; "when" "unless" "do" "flet" "labels" "lambda"
1624 ;; "return" "return-from"))
1625 ;;
1621 (cons 1626 (cons
1622 (concat 1627 (concat
1623 "(\\(" 1628 "(\\("
1624 "\\(c\\(atch\\|ond\\(\\|ition-case\\)\\)\\|do\\|" 1629 "autoload\\|c\\(atch\\|ond\\(\\|ition-case\\)\\)\\|do\\|"
1625 "eval-\\(a\\(fter-load\\|nd-compile\\)\\|when-compile\\)\\|flet\\|" 1630 "eval-\\(a\\(fter-load\\|nd-compile\\)\\|when-compile\\)\\|"
1626 "if\\|l\\(abels\\|et\\*?\\)\\|prog[nv12*]?\\|return\\(\\|-from\\)\\|" 1631 "flet\\|if\\|l\\(a\\(bels\\|mbda\\)\\|et\\*?\\)\\|prog[nv12*]?\\|"
1627 "save-\\(excursion\\|match-data\\|restriction\\|selected-window\\|" 1632 "return\\(\\|-from\\)\\|save-\\(current-buffer\\|excursion\\|"
1628 "window-excursion\\)\\|t\\(hrow\\|rack-mouse\\)\\|" 1633 "match-data\\|restriction\\|selected-window\\|window-excursion\\)\\|"
1629 "un\\(less\\|wind-protect\\)\\|wh\\(en\\|ile\\)\\)" 1634 "t\\(hrow\\|rack-mouse\\)\\|un\\(less\\|wind-protect\\)\\|"
1635 "w\\(h\\(en\\|ile\\)\\|ith-\\(current-buffer\\|output-to-.+\\|"
1636 "temp-file\\)\\)"
1630 "\\)\\>") 1) 1637 "\\)\\>") 1)
1631 ;; 1638 ;;
1632 ;; Words inside \\[] tend to be for `substitute-command-keys'. 1639 ;; Words inside \\[] tend to be for `substitute-command-keys'.
1633 '("\\\\\\\\\\[\\(\\sw+\\)]" 1 font-lock-reference-face prepend) 1640 '("\\\\\\\\\\[\\(\\sw+\\)]" 1 font-lock-reference-face prepend)
1634 ;; 1641 ;;