diff options
| author | Felipe Ochoa <felipe@fov.space> | 2017-08-18 12:05:12 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2017-08-18 12:05:12 +0300 |
| commit | fb1a489757eb9237afbd2e39e453e4a5e06c9d86 (patch) | |
| tree | e7586e197cdfbc145710fcbc07da682199a5c091 | |
| parent | 99b3250d04288260e3a6db864cda910d8093bee1 (diff) | |
| download | emacs-fb1a489757eb9237afbd2e39e453e4a5e06c9d86.tar.gz emacs-fb1a489757eb9237afbd2e39e453e4a5e06c9d86.tar.bz2 emacs-fb1a489757eb9237afbd2e39e453e4a5e06c9d86.zip | |
A new face for show-paren in expression mode
* lisp/faces.el (show-paren-match-expression): Define the new face.
* lisp/paren.el (show-paren-function): Apply the different face
when in expression mode. (Bug#28047)
Copyright-paperwork-exempt: yes
| -rw-r--r-- | lisp/faces.el | 7 | ||||
| -rw-r--r-- | lisp/paren.el | 26 |
2 files changed, 22 insertions, 11 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 01d94d7aae0..d9c90fda6be 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -2854,6 +2854,13 @@ It is used for characters of no fonts too." "Face used for a matching paren." :group 'paren-showing-faces) +(defface show-paren-match-expression + '((t :inherit show-paren-match)) + "Face used for a matching paren when highlighting the whole expression. +This face is used by `show-paren-mode'." + :group 'paren-showing-faces + :version "26.1") + (defface show-paren-mismatch '((((class color)) (:foreground "white" :background "purple")) (t (:inverse-video t))) diff --git a/lisp/paren.el b/lisp/paren.el index a4d9200c42f..5ccfa5faa95 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -247,13 +247,21 @@ It is the default value of `show-paren-data-function'." (there-beg (nth 2 data)) (there-end (nth 3 data)) (mismatch (nth 4 data)) + (highlight-expression + (or (eq show-paren-style 'expression) + (and there-beg + (eq show-paren-style 'mixed) + (let ((closest (if (< there-beg here-beg) + (1- there-end) (1+ there-beg)))) + (not (pos-visible-in-window-p closest)))))) (face - (if mismatch - (progn - (if show-paren-ring-bell-on-mismatch - (beep)) - 'show-paren-mismatch) - 'show-paren-match))) + (cond + (mismatch + (if show-paren-ring-bell-on-mismatch + (beep)) + 'show-paren-mismatch) + (highlight-expression 'show-paren-match-expression) + (t 'show-paren-match)))) ;; ;; If matching backwards, highlight the closeparen ;; before point as well as its matching open. @@ -276,11 +284,7 @@ It is the default value of `show-paren-data-function'." ;; If it's an unmatched paren, turn off any such highlighting. (if (not there-beg) (delete-overlay show-paren--overlay) - (if (or (eq show-paren-style 'expression) - (and (eq show-paren-style 'mixed) - (let ((closest (if (< there-beg here-beg) - (1- there-end) (1+ there-beg)))) - (not (pos-visible-in-window-p closest))))) + (if highlight-expression (move-overlay show-paren--overlay (if (< there-beg here-beg) here-end here-beg) (if (< there-beg here-beg) there-beg there-end) |