Commit bee01e39 authored by Johan Sundström's avatar Johan Sundström
Browse files

Fix for bug 625.

parent 3450c702
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.
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment