diff options
| author | Mauro Aranda | 2023-09-13 12:49:40 -0300 |
|---|---|---|
| committer | Stefan Kangas | 2023-09-13 18:01:41 +0200 |
| commit | 012f9c28053d06b6d527d77530605aedbd55d5b4 (patch) | |
| tree | d02b98a0099182ae9d70ff8eadd21dfc932fcd75 /lisp/replace.el | |
| parent | 1f7113e68988fa0bcbdeca5ae364cba8d6db3637 (diff) | |
| download | emacs-012f9c28053d06b6d527d77530605aedbd55d5b4.tar.gz emacs-012f9c28053d06b6d527d77530605aedbd55d5b4.zip | |
Fix defcustom :type in replace.el (Bug#65920)
* lisp/replace.el (list-matching-lines-face)
(list-matching-lines-buffer-name-face): Allow a nil value.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index eeac734f3bd..6b06e48c384 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -1667,13 +1667,15 @@ A positive number means to include that many lines both before and after." | |||
| 1667 | (defcustom list-matching-lines-face 'match | 1667 | (defcustom list-matching-lines-face 'match |
| 1668 | "Face used by \\[list-matching-lines] to show the text that matches. | 1668 | "Face used by \\[list-matching-lines] to show the text that matches. |
| 1669 | If the value is nil, don't highlight the matching portions specially." | 1669 | If the value is nil, don't highlight the matching portions specially." |
| 1670 | :type 'face | 1670 | :type '(choice (const :tag "Don't highlight matching portions" nil) |
| 1671 | face) | ||
| 1671 | :group 'matching) | 1672 | :group 'matching) |
| 1672 | 1673 | ||
| 1673 | (defcustom list-matching-lines-buffer-name-face 'underline | 1674 | (defcustom list-matching-lines-buffer-name-face 'underline |
| 1674 | "Face used by \\[list-matching-lines] to show the names of buffers. | 1675 | "Face used by \\[list-matching-lines] to show the names of buffers. |
| 1675 | If the value is nil, don't highlight the buffer names specially." | 1676 | If the value is nil, don't highlight the buffer names specially." |
| 1676 | :type 'face | 1677 | :type '(choice (const :tag "Don't highlight buffer names" nil) |
| 1678 | face) | ||
| 1677 | :group 'matching) | 1679 | :group 'matching) |
| 1678 | 1680 | ||
| 1679 | (defcustom list-matching-lines-current-line-face 'lazy-highlight | 1681 | (defcustom list-matching-lines-current-line-face 'lazy-highlight |