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." ...@@ -673,8 +673,8 @@ non-negative integer and 0 means the given text-no."
(lyskom-error (lyskom-get-string 'bad-text-no-prefix) arg))))))) (lyskom-error (lyskom-get-string 'bad-text-no-prefix) arg)))))))
(defconst lyskom-old-farts-text-prompt-strategy (defconst lyskom-old-farts-text-prompt-strategy
'((t . ((nil . lyskom-get-last-read-text) '((t . ((t . lyskom-get-last-read-text)
(t . lyskom-get-last-read-text) (nil . lyskom-get-last-read-text)
(0 . lyskom-get-text-at-point) (0 . lyskom-get-text-at-point)
(- lyskom-get-text-above-point (lambda (&optional args) 1)) (- lyskom-get-text-above-point (lambda (&optional args) 1))
(listp . lyskom-prompt-for-text-no) (listp . lyskom-prompt-for-text-no)
...@@ -811,7 +811,8 @@ its first argument and remaining list items appended to the argument list." ...@@ -811,7 +811,8 @@ its first argument and remaining list items appended to the argument list."
(setq default (or default new-default))))) (setq default (or default new-default)))))
((or (eq compare-value current-prefix-arg) ;; a text-no strategy ((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 (setq text-no (lyskom-evaluate-text-no-strategy
what-text prompt default constraint)) what-text prompt default constraint))
; (lyskom-insert (format "cmp: %s\npred: %s\ntext-no: %s\n\n" ; (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