diff options
| -rw-r--r-- | lisp/textmodes/texnfo-upd.el | 15 |
1 files 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 () |