diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-16 15:58:20 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-16 15:58:20 +0200 |
| commit | db416ae04982d7cf5c6af463d0c47c902f8d9119 (patch) | |
| tree | 2fca7a75898f39208a011c2251dc282bce85bd87 /lisp | |
| parent | b381929c9150376e1bc722aa309a9626ef3b394b (diff) | |
| download | emacs-db416ae04982d7cf5c6af463d0c47c902f8d9119.tar.gz emacs-db416ae04982d7cf5c6af463d0c47c902f8d9119.tar.bz2 emacs-db416ae04982d7cf5c6af463d0c47c902f8d9119.zip | |
Clean up emacs-news--buttonize
* lisp/textmodes/emacs-news-mode.el (emacs-news--buttonize):
Remove unnecessary check left over from previous version.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/emacs-news-mode.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/textmodes/emacs-news-mode.el b/lisp/textmodes/emacs-news-mode.el index 5099a7435f6..b56cf13adb0 100644 --- a/lisp/textmodes/emacs-news-mode.el +++ b/lisp/textmodes/emacs-news-mode.el @@ -122,14 +122,13 @@ (while (re-search-forward "'\\([^-][^ \t\n]+\\)'" nil t) ;; Filter out references to key sequences. (let ((string (match-string 1))) - (unless (key-valid-p string) - (when-let ((symbol (intern-soft string))) - (when (or (boundp symbol) - (fboundp symbol)) - (buttonize-region (match-beginning 1) (match-end 1) - (lambda (symbol) - (describe-symbol symbol)) - symbol)))))) + (when-let ((symbol (intern-soft string))) + (when (or (boundp symbol) + (fboundp symbol)) + (buttonize-region (match-beginning 1) (match-end 1) + (lambda (symbol) + (describe-symbol symbol)) + symbol))))) ;; Do manual references. (goto-char (point-min)) (search-forward "\f" nil t) |