diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-22 13:00:36 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-22 13:00:36 +0200 |
| commit | d9214248913e205f81ffe221a351f85c92f486bd (patch) | |
| tree | 2e4361706638dee1080ceadaa3facdc0090ed862 /lisp/emacs-lisp | |
| parent | cc33c6cf3a4868ab8cd3cc52679985026a42d176 (diff) | |
| download | emacs-d9214248913e205f81ffe221a351f85c92f486bd.tar.gz emacs-d9214248913e205f81ffe221a351f85c92f486bd.tar.bz2 emacs-d9214248913e205f81ffe221a351f85c92f486bd.zip | |
Remove probably debugging code in reb-fontify-string-re
* lisp/emacs-lisp/re-builder.el (reb-fontify-string-re): Remove
code that looks like left-over debugging code. This fixes a
compilation warning.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/re-builder.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el index 4b5363d8f60..e6e8bb202da 100644 --- a/lisp/emacs-lisp/re-builder.el +++ b/lisp/emacs-lisp/re-builder.el @@ -738,8 +738,7 @@ If SUBEXP is non-nil mark only the corresponding sub-expressions." (let ((face (get-text-property (1- (point)) 'face))) (when (or (and (listp face) (memq 'font-lock-string-face face)) - (eq 'font-lock-string-face face) - t) + (eq 'font-lock-string-face face)) (throw 'found t)))))))) (defface reb-regexp-grouping-backslash |