Prefix till kom-recover gör att cachen töms

src/ChangeLog

@@ -19,6 +19,11 @@ Thu Jul 23 15:03:10 1998  Peter Liljenberg  <petli@lysator.liu.se>
 	(lyskom-sv-edit-mode-map): Se ovan.
 
 
+Thu Jul 16 12:57:57 1998  David Kgedal  <davidk@lysator.liu.se>
+
+	* lyskom-rest.el (kom-recover): Anropar clear-all-caches nr man
+	anropar med prefixargument.
+
 Wed Jul  8 13:12:48 1998  David Kagedal  <davidk@lysator.liu.se>
 
 	* startup.el (lyskom): Den frgade inte om man ville fortstta med

src/lyskom-rest.el

@@ -163,7 +163,8 @@ assoc list."
 
 (defun kom-recover (&optional refetch)
   "Try to recover from an error.
-If the optional argument REFETCH is non-nil, `lyskom-refetch' is called."
+If the optional argument REFETCH is non-nil, all caches are cleared and
+`lyskom-refetch' is called."
   (interactive "p")
   (lyskom-init-parse lyskom-buffer)
   (setq lyskom-call-data nil)
@@ -175,7 +176,9 @@ If the optional argument REFETCH is non-nil, `lyskom-refetch' is called."
       (++ i)))
   (setq lyskom-number-of-pending-calls 0)
   (setq lyskom-is-parsing nil)
-  (if refetch (lyskom-refetch))
+  (when refetch
+    (clear-all-caches)
+    (lyskom-refetch))
   (lyskom-tell-internat 'kom-tell-recover)
   (lyskom-end-of-command))