diff options
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 3f345557582..315b3d56343 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el | |||
| @@ -396,6 +396,9 @@ This will generate compile-time constants from BINDINGS." | |||
| 396 | lisp-el-font-lock-keywords-1 | 396 | lisp-el-font-lock-keywords-1 |
| 397 | `( ;; Regexp negated char group. | 397 | `( ;; Regexp negated char group. |
| 398 | ("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend) | 398 | ("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend) |
| 399 | ;; Erroneous structures. | ||
| 400 | (,(concat "(" el-errs-re "\\_>") | ||
| 401 | (1 font-lock-warning-face)) | ||
| 399 | ;; Control structures. Common Lisp forms. | 402 | ;; Control structures. Common Lisp forms. |
| 400 | (lisp--el-match-keyword . 1) | 403 | (lisp--el-match-keyword . 1) |
| 401 | ;; Exit/Feature symbols as constants. | 404 | ;; Exit/Feature symbols as constants. |
| @@ -403,9 +406,6 @@ This will generate compile-time constants from BINDINGS." | |||
| 403 | "[ \t']*\\(" lisp-mode-symbol-regexp "\\)?") | 406 | "[ \t']*\\(" lisp-mode-symbol-regexp "\\)?") |
| 404 | (1 font-lock-keyword-face) | 407 | (1 font-lock-keyword-face) |
| 405 | (2 font-lock-constant-face nil t)) | 408 | (2 font-lock-constant-face nil t)) |
| 406 | ;; Erroneous structures. | ||
| 407 | (,(concat "(" el-errs-re "\\_>") | ||
| 408 | (1 font-lock-warning-face prepend)) | ||
| 409 | ;; Words inside \\[] tend to be for `substitute-command-keys'. | 409 | ;; Words inside \\[] tend to be for `substitute-command-keys'. |
| 410 | (,(concat "\\\\\\\\\\[\\(" lisp-mode-symbol-regexp "\\)\\]") | 410 | (,(concat "\\\\\\\\\\[\\(" lisp-mode-symbol-regexp "\\)\\]") |
| 411 | (1 font-lock-constant-face prepend)) | 411 | (1 font-lock-constant-face prepend)) |