Mercurial > emacs

changeset 7432:d7a5151c87b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(texinfo-every-node-update, texinfo-all-menus-update): Bind mark-active to t.
author Richard M. Stallman <rms@gnu.org>
date Tue, 10 May 1994 06:55:29 +0000
parents a0f1b8c25adf
children cc5e8709ab89
files lisp/textmodes/texnfo-upd.el
diffstat 1 files changed, 12 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/texnfo-upd.el	Tue May 10 06:39:04 1994 +0000
+++ b/lisp/textmodes/texnfo-upd.el	Tue May 10 06:55:29 1994 +0000
@@ -248,13 +248,19 @@
             (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 @@
   (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 ()