Protect lyskom-update-all-prompts from being called recursively

src/ChangeLog

+1999-12-13  David Byers  <davby@ida.liu.se>
+
+	* lyskom-rest.el (lyskom-recursive-prompt-update): New variable.
+	(lyskom-update-all-prompts): Set lyskom-recursive-prompt-update to
+	avoid endlessly recursing into this function (via lyskom-beep,
+	sit-for and the filter function.)
+
 1999-12-10  David Byers  <davby@ida.liu.se>
 
 	* commands1.el (kom-move-text): Supply better defaults for

src/lyskom-rest.el

@@ -2302,13 +2302,16 @@ positions are counted from 0, as they are."
 ;;;                             To-do
 
 
+(defvar lyskom-recursive-prompt-update nil)
 (defun lyskom-update-all-prompts (&optional force-prompt-update)
   "Update the prompts in all buffers"
-  (save-excursion
-    (lyskom-traverse buffer lyskom-buffer-list
-      (set-buffer buffer)
-      (lyskom-update-prompt force-prompt-update))
-    (lyskom-set-default 'lyskom-need-prompt-update nil)))
+  (unless lyskom-recursive-prompt-update
+    (let ((lyskom-recursive-prompt-update t))
+      (save-excursion
+        (lyskom-traverse buffer lyskom-buffer-list
+          (set-buffer buffer)
+          (lyskom-update-prompt force-prompt-update))
+        (lyskom-set-default 'lyskom-need-prompt-update nil)))))
 
 (defun lyskom-update-prompt (&optional force-prompt-update)
   "Print prompt if the client knows which command will be default.