diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-03-11 11:35:14 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-03-11 11:35:14 -0500 |
| commit | 4086d850dc02c95615095adddd1e798377f03cec (patch) | |
| tree | 9fa2ba63504701e9ac813f7af8e6c1985e303ebe /lisp/emacs-lisp/lisp-mode.el | |
| parent | ee51550c3951a47446ec85cb7f0b1ea7a898acaf (diff) | |
| download | emacs-4086d850dc02c95615095adddd1e798377f03cec.tar.gz | |
Highlight useless backslashes in Elisp strings
* lisp/emacs-lisp/lisp-mode.el (lisp-el-font-lock-keywords-2):
Put warning face on backslashes that have no effect.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index d720e0bc573..3ed0d062e34 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -411,6 +411,15 @@ This will generate compile-time constants from BINDINGS." ;; Words inside \\[] tend to be for `substitute-command-keys'. (,(concat "\\\\\\\\\\[\\(" lisp-mode-symbol-regexp "\\)\\]") (1 font-lock-constant-face prepend)) + ;; Ineffective backslashes (typically in need of doubling). + ("\\(?:[^\\]\\|^\\)\\(?:\\\\\\\\\\)*\\(\\(\\\\\\)\\([^\"\\]\\)\\)" + (2 (and (nth 3 (syntax-ppss)) + (equal (ignore-errors + (car (read-from-string + (format "\"%s\"" (match-string 1))))) + (match-string 3)) + font-lock-warning-face) + prepend)) ;; Words inside ‘’ and `' tend to be symbol names. (,(concat "[`‘]\\(\\(?:\\sw\\|\\s_\\|\\\\.\\)" lisp-mode-symbol-regexp "\\)['’]") |