diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-18 23:23:42 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-18 23:23:42 +0200 |
| commit | cb202551f702c7b4695bf672420e7fbb14503b69 (patch) | |
| tree | f1691909833e6a28d2f3a9bf9ac7f1d7baf650a9 | |
| parent | b906ef38fc68ea39b914c89c3c5eab5adfd03a2e (diff) | |
| download | emacs-cb202551f702c7b4695bf672420e7fbb14503b69.tar.gz | |
Remove some compat code from descr-text.el
* lisp/descr-text.el (describe-text-properties-1): button.el is
pre-loaded, so remove check for it.
| -rw-r--r-- | lisp/descr-text.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 55f0b7dcb40..d6da4280630 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -141,8 +141,7 @@ otherwise." (wid-field (get-char-property pos 'field)) (wid-button (get-char-property pos 'button)) (wid-doc (get-char-property pos 'widget-doc)) - ;; If button.el is not loaded, we have no buttons in the text. - (button (and (fboundp 'button-at) (button-at pos))) + (button (button-at pos)) (button-type (and button (button-type button))) (button-label (and button (button-label button))) (widget (or wid-field wid-button wid-doc))) |