emacs-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]