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

Oops.

parent 442018dd
......@@ -673,8 +673,8 @@ 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 . ((nil . lyskom-get-last-read-text)
(t . lyskom-get-last-read-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))
(listp . lyskom-prompt-for-text-no)
......@@ -811,7 +811,8 @@ its first argument and remaining list items appended to the argument list."
(setq default (or default new-default)))))
((or (eq compare-value current-prefix-arg) ;; a text-no strategy
(funcall strategy-pred current-prefix-arg))
(and (functionp strategy-pred)
(funcall strategy-pred current-prefix-arg)))
(setq text-no (lyskom-evaluate-text-no-strategy
what-text prompt default constraint))
; (lyskom-insert (format "cmp: %s\npred: %s\ntext-no: %s\n\n"
......
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