Fix for bug 625.

src/ChangeLog

+2002-07-13  Johan Sundström  <jhs@lysator.liu.se>
+
+	* utilities.el (lyskom-pick-text-no-strategy-alist): Behave as it
+	used to; comment the last but one seen text when no prefix
+	argument was given. Fixes bug 625.
+
+	(lyskom-get-previous-text): New support function.
+
 2002-07-13  Johan Sundström  <jhs@lysator.liu.se>
 
 	* lyskom-rest.el (kom-view): Hopefully my last plusp sin.

src/utilities.el

@@ -619,6 +619,9 @@ non-negative integer and 0 means the given text-no."
 (defun lyskom-get-last-read-text (&optional arg prompt default constraint)
   (lyskom-default-value 'lyskom-current-text))
 
+(defun lyskom-get-previous-text (&optional arg prompt default constraint)
+  lyskom-previous-text)
+
 (defun lyskom-get-text-at-point (&optional arg prompt default constraint)
   (or (lyskom-text-at-point)
        (lyskom-get-string 'no-text-at-point)))
@@ -673,7 +676,9 @@ non-negative integer and 0 means the given text-no."
 	    (lyskom-error (lyskom-get-string 'bad-text-no-prefix) arg)))))))
 
 (defconst lyskom-old-farts-text-prompt-strategy
-  '((t . ((t   . lyskom-get-last-read-text)
+  '((kom-comment-previous . ((t   . lyskom-get-previous-text)
+			     (nil . lyskom-get-previous-text)))
+    (t . ((t   . lyskom-get-last-read-text)
 	  (nil . lyskom-get-last-read-text)
 	  (0   . lyskom-get-text-at-point)
 	  (-     lyskom-get-text-above-point (lambda (&optional args) 1))
@@ -689,7 +694,9 @@ non-negative integer and 0 means the given text-no."
    kom buffer.")
 
 (defvar lyskom-pick-text-no-strategy-alist
-      '((t . ((t   . lyskom-get-text-at-point) ; default for prompts
+      '((kom-comment-previous . ((t   . lyskom-get-previous-text)
+				 (nil . lyskom-get-previous-text)))
+	(t . ((t   . lyskom-get-text-at-point) ; default for prompts
 	      (nil . lyskom-get-text-at-point) ; no prefix arg
 	      (0   . lyskom-prompt-for-text-no)
 	      (-     lyskom-get-text-above-point (lambda (&optional arg) 1))