procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/help-mode.el (help-news): Use view-file

Browse source
This commit is contained in:
Stefan Monnier 2022-07-21 20:01:36 -04:00
parent d9f05b7e4f
commit 46e07d0a4b
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/help-mode.el
View file

@ -384,8 +384,8 @@ The format is (FUNCTION ARGS...).")
'help-function
(lambda (file pos)
(if help-window-keep-selected
(view-buffer (find-file-noselect file))
(view-buffer-other-window (find-file-noselect file)))
(view-file file)
(view-file-other-window file))
(goto-char pos))
'help-echo (purecopy "mouse-2, RET: show corresponding NEWS announcement"))
@ -408,7 +408,7 @@ Commands:
\\{help-mode-map}"
(setq-local revert-buffer-function
#'help-mode-revert-buffer)
(add-hook 'context-menu-functions 'help-mode-context-menu 5 t)
(add-hook 'context-menu-functions #'help-mode-context-menu 5 t)
(setq-local tool-bar-map
help-mode-tool-bar-map)
(setq-local help-mode--current-data nil)
@ -761,7 +761,7 @@ See `help-make-xrefs'."
;; Additional functions for (re-)creating types of help buffers.
;;;###autoload
(define-obsolete-function-alias 'help-xref-interned 'describe-symbol "25.1")
(define-obsolete-function-alias 'help-xref-interned #'describe-symbol "25.1")
;; Navigation/hyperlinking with xrefs
@ -831,7 +831,7 @@ The help buffers are divided into \"pages\" by the ^L character."
(defun help-goto-previous-page ()
"Go to the previous page (if any) in the current buffer.
(If not at the start of a page, go to the start of the current page.)
\(If not at the start of a page, go to the start of the current page.)
The help buffers are divided into \"pages\" by the ^L character."
(interactive nil help-mode)