diff options
| author | Gemini Lasswell <gazally@runbox.com> | 2018-08-03 10:28:28 -0700 |
|---|---|---|
| committer | Gemini Lasswell <gazally@runbox.com> | 2018-08-03 10:28:28 -0700 |
| commit | da0054c30729e58259c1e7251cb03c8ef13ff943 (patch) | |
| tree | f3fd4b5256aa6c6786d0ac4f80fb1d87dcc2e401 /lisp/emacs-lisp/lisp-mode.el | |
| parent | e65ec81fc3e556719fae8d8b4b42f571c7e9f4fc (diff) | |
| parent | 95b2ab3dccdc756614b4c8f45a7b206d61753705 (diff) | |
| download | emacs-da0054c30729e58259c1e7251cb03c8ef13ff943.tar.gz emacs-da0054c30729e58259c1e7251cb03c8ef13ff943.tar.bz2 emacs-da0054c30729e58259c1e7251cb03c8ef13ff943.zip | |
Merge branch 'scratch/backtrace-mode'
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 6313c63ecfe..afb7cbd1dd7 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -517,6 +517,16 @@ This will generate compile-time constants from BINDINGS." (defvar lisp-cl-font-lock-keywords lisp-cl-font-lock-keywords-1 "Default expressions to highlight in Lisp modes.") +;; Support backtrace mode. +(defconst lisp-el-font-lock-keywords-for-backtraces lisp-el-font-lock-keywords + "Default highlighting from Emacs Lisp mod used in Backtrace mode.") +(defconst lisp-el-font-lock-keywords-for-backtraces-1 lisp-el-font-lock-keywords-1 + "Subdued highlighting from Emacs Lisp mode used in Backtrace mode.") +(defconst lisp-el-font-lock-keywords-for-backtraces-2 + (remove (assoc 'lisp--match-hidden-arg lisp-el-font-lock-keywords-2) + lisp-el-font-lock-keywords-2) + "Gaudy highlighting from Emacs Lisp mode used in Backtrace mode.") + (defun lisp-string-in-doc-position-p (listbeg startpos) "Return true if a doc string may occur at STARTPOS inside a list. LISTBEG is the position of the start of the innermost list |