[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master db416ae049 2/2: Clean up emacs-news--buttonize
From: |
Lars Ingebrigtsen |
Subject: |
master db416ae049 2/2: Clean up emacs-news--buttonize |
Date: |
Sat, 16 Apr 2022 09:58:39 -0400 (EDT) |
branch: master
commit db416ae04982d7cf5c6af463d0c47c902f8d9119
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Clean up emacs-news--buttonize
* lisp/textmodes/emacs-news-mode.el (emacs-news--buttonize):
Remove unnecessary check left over from previous version.
---
lisp/textmodes/emacs-news-mode.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/lisp/textmodes/emacs-news-mode.el
b/lisp/textmodes/emacs-news-mode.el
index 5099a7435f..b56cf13adb 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)