andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/help-fns.el: Make hyperlink for the "first release" info

Browse source 
* lisp/help-fns.el (help-fns--first-release): Return a "button".
(help-fns--mention-first-release): Preserve the string's text-properties.

* lisp/help-mode.el (help-news): New button type.
This commit is contained in:
Stefan Monnier 2019-06-02 11:52:41 -04:00
parent 30b0c5bf42
commit e3029eaadf
2 changed files with 27 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
lisp/help-fns.el
View file

@ -592,6 +592,7 @@ FILE is the file where FUNCTION was probably defined."
(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)
@ -600,17 +601,20 @@ FILE is the file where FUNCTION was probably defined."
(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
@ -620,8 +624,9 @@ FILE is the file where FUNCTION was probably defined."
(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))

12
lisp/help-mode.el
View file

@ -287,12 +287,12 @@ The format is (FUNCTION ARGS...).")
(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
@ -302,7 +302,13 @@ The format is (FUNCTION ARGS...).")
;; 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"))
(defvar bookmark-make-record-function)