mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(texinfo-every-node-update, texinfo-all-menus-update): Bind mark-active to t.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-05-10 06:55:29 +00:00
parent a1017d3916
commit 1ff3a40d52
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/textmodes/texnfo-upd.el
View File

@ -248,13 +248,19 @@ nodes in the buffer before updating the menus."
(sleep-for 2)
(push-mark (point-max) t)
(goto-char (point-min))
(texinfo-update-node t)))
;; Using the mark to pass bounds this way
;; is kludgy, but it's not worth fixing. -- rms.
(let ((mark-active t))
(texinfo-update-node t))))
(message "Updating all menus in %s ... " (buffer-name))
(sleep-for 2)
(push-mark (point-max) t)
(goto-char (point-min))
(texinfo-make-menu t)
;; Using the mark to pass bounds this way
;; is kludgy, but it's not worth fixing. -- rms.
(let ((mark-active t))
(texinfo-make-menu t))
(if master-menu-p
(progn
@ -1270,7 +1276,10 @@ which menu descriptions are indented. Its default value is 32."
(save-excursion
(push-mark (point-max) t)
(goto-char (point-min))
(texinfo-update-node t)
;; Using the mark to pass bounds this way
;; is kludgy, but it's not worth fixing. -- rms.
(let ((mark-active t))
(texinfo-update-node t))
(message "Done...updated every node. You may save the buffer.")))
(defun texinfo-update-the-node ()