(let* ((name (symbol-name symbol))
(re (concat "\\_<" (regexp-quote name) "\\_>"))
(news (directory-files data-directory t "\\`NEWS.[1-9]"))
+ (place nil)
(first nil))
(with-temp-buffer
(dolist (f news)
(goto-char (point-min))
(search-forward "\n*")
(while (re-search-forward re nil t)
- (save-excursion
- ;; Almost all entries are of the form "* ... in Emacs NN.MM."
- ;; but there are also a few in the form "* Emacs NN.MM is a bug
- ;; fix release ...".
- (if (not (re-search-backward "^\\*.* Emacs \\([0-9.]+[0-9]\\)"
- nil t))
- (message "Ref found in non-versioned section in %S"
- (file-name-nondirectory f))
- (let ((version (match-string 1)))
- (when (or (null first) (version< version first))
- (setq first version))))))))
+ (let ((pos (match-beginning 0)))
+ (save-excursion
+ ;; Almost all entries are of the form "* ... in Emacs NN.MM."
+ ;; but there are also a few in the form "* Emacs NN.MM is a bug
+ ;; fix release ...".
+ (if (not (re-search-backward "^\\*.* Emacs \\([0-9.]+[0-9]\\)"
+ nil t))
+ (message "Ref found in non-versioned section in %S"
+ (file-name-nondirectory f))
+ (let ((version (match-string 1)))
+ (when (or (null first) (version< version first))
+ (setq place (list f pos))
+ (setq first version)))))))))
+ (make-text-button first nil 'type 'help-news 'help-args place)
first))
(add-hook 'help-fns-describe-function-functions
(defun help-fns--mention-first-release (object)
(let ((first (if (symbolp object) (help-fns--first-release object))))
(when first
- (princ (format " Probably introduced at or before Emacs version %s.\n"
- first)))))
+ (with-current-buffer standard-output
+ (insert (format " Probably introduced at or before Emacs version %s.\n"
+ first))))))
(defun help-fns-short-filename (filename)
(let* ((abbrev (abbreviate-file-name filename))
(define-button-type 'help-theme-def
:supertype 'help-xref
- 'help-function 'find-file
+ 'help-function #'find-file
'help-echo (purecopy "mouse-2, RET: visit theme file"))
(define-button-type 'help-theme-edit
:supertype 'help-xref
- 'help-function 'customize-create-theme
+ 'help-function #'customize-create-theme
'help-echo (purecopy "mouse-2, RET: edit this theme file"))
(define-button-type 'help-dir-local-var-def
;; local variable was defined.
(find-file file))
'help-echo (purecopy "mouse-2, RET: open directory-local variables file"))
-
+(define-button-type 'help-news
+ :supertype 'help-xref
+ 'help-function
+ (lambda (file pos)
+ (pop-to-buffer (find-file-noselect file))
+ (goto-char pos))
+ 'help-echo (purecopy "mouse-2, RET: show corresponding NEWS announcement"))
\f
(defvar bookmark-make-record-function)