mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

; Improve documentation of last change

Browse source 
* lisp/doc-view.el (doc-view-register-alist)
(doc-view-page-to-register, doc-view-jump-to-register): Doc fixes.

* etc/NEWS:
* doc/emacs/misc.texi (DocView Navigation): Improve wording.
(Bug#73293)
This commit is contained in:
Eli Zaretskii 2024-09-28 12:11:57 +03:00
parent fb3aa69356
commit 9c994537cf
3 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/doc-view.el
View file

@ -2476,11 +2476,12 @@ See the command `doc-view-mode' for more information on this mode."
(defvar-local doc-view-register-alist nil
"Register alist containing only doc-view registers for current buffer.
Each doc-view register entry is of the form (doc-view . ALIST) where
ALIST has the keys `buffer', `file', and `page'. `buffer' is the buffer
the `file' is visiting. `page' is the page number to be show.")
ALIST has the keys `buffer', `file', and `page'. The value of `buffer'
is the buffer which visits the file specified by the value of `file'.
The value of `page' is the page stored in the register.")
(defun doc-view-page-to-register (register)
"Store the current page to the register REGISTER."
"Store the current page to the specified REGISTER."
(interactive
(let ((register-alist doc-view-register-alist))
(list (register-read-with-preview "Page to register: "))))
@ -2493,7 +2494,7 @@ the `file' is visiting. `page' is the page number to be show.")
(setq doc-view-register-alist register-alist)))
(defun doc-view-jump-to-register (register)
"Jump to the register REGISTER."
"Jump to the specified REGISTER."
(interactive
(let ((register-alist doc-view-register-alist))
(list (register-read-with-preview "Jump to register: "))))