mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Clean up emacs-news--buttonize

Browse source 
* lisp/textmodes/emacs-news-mode.el (emacs-news--buttonize):
Remove unnecessary check left over from previous version.
This commit is contained in:
Lars Ingebrigtsen 2022-04-16 15:58:20 +02:00
parent b381929c91
commit db416ae049
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/textmodes/emacs-news-mode.el
View file

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