From 1ff3a40d526c686f9d468bb83f82181e060dea34 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 10 May 1994 06:55:29 +0000 Subject: [PATCH] (texinfo-every-node-update, texinfo-all-menus-update): Bind mark-active to t. --- lisp/textmodes/texnfo-upd.el | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el index 8fbb7482773..d43d1c50466 100644 --- a/lisp/textmodes/texnfo-upd.el +++ b/lisp/textmodes/texnfo-upd.el @@ -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 () -- 2.39.5