diff options
| author | Glenn Morris <rgm@gnu.org> | 2017-12-14 20:22:08 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2017-12-14 20:22:08 -0500 |
| commit | ddcd6e63d1624c03a227c5ae4abca2443c28430d (patch) | |
| tree | f62edc1223dfa674d923f7737ff10592e95386d5 /lisp/info-look.el | |
| parent | 94b52207cf0bd25d3e8052b01bda945e8718bd12 (diff) | |
| download | emacs-ddcd6e63d1624c03a227c5ae4abca2443c28430d.tar.gz | |
Improve Custom's treatment of obsolete options (bug#5742)
* lisp/cus-edit.el (custom-variable-obsolete): New face.
(custom-variable-documentation): Include obsolescence information.
(custom-variable-value-create): Use different face for obsolete items.
(custom-face-documentation): New function.
(custom-face): Use custom-face-documentation.
* lisp/info-look.el (info-lookup-guess-custom-symbol):
Add custom-variable-obsolete face.
Diffstat (limited to 'lisp/info-look.el')
| -rw-r--r-- | lisp/info-look.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/info-look.el b/lisp/info-look.el index f52f48edec2..04a890e2b7a 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el @@ -619,7 +619,8 @@ Return nil if there is nothing appropriate in the buffer near point." beg end) (cond ((and (memq (get-char-property (point) 'face) - '(custom-variable-tag custom-variable-tag-face)) + '(custom-variable-tag custom-variable-obsolete + custom-variable-tag-face)) (setq beg (previous-single-char-property-change (point) 'face nil (line-beginning-position))) (setq end (next-single-char-property-change |