Commit 71c9a5b2 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(lyskom-evaluate-text-no-strategy): first, second and cddr are not

	portable to Emacs 19 without using cl.el.  Use car and cdr
	instead.
parent bee01e39
2002-07-15 Per Cederqvist <ceder@ingate.com>
* utilities.el (lyskom-evaluate-text-no-strategy): first, second
and cddr are not portable to Emacs 19 without using cl.el. Use
car and cdr instead.
2002-07-13 Johan Sundström <jhs@lysator.liu.se>
* utilities.el (lyskom-pick-text-no-strategy-alist): Behave as it
......
......@@ -850,9 +850,9 @@ its first argument and remaining list items appended to the argument list."
(strategy-args '()))
(cond
((listp strategy)
(setq strategy-func (first strategy))
(setq prefix (funcall (second strategy) prefix))
(setq strategy-args (cddr strategy))
(setq strategy-func (car strategy))
(setq prefix (funcall (car (cdr strategy)) prefix))
(setq strategy-args (cdr (cdr strategy)))
(apply strategy-func prefix prompt default constraint
strategy-args))
((functionp strategy)
......
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