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> 2002-07-13 Johan Sundström <jhs@lysator.liu.se>
* utilities.el (lyskom-pick-text-no-strategy-alist): Behave as it * 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." ...@@ -850,9 +850,9 @@ its first argument and remaining list items appended to the argument list."
(strategy-args '())) (strategy-args '()))
(cond (cond
((listp strategy) ((listp strategy)
(setq strategy-func (first strategy)) (setq strategy-func (car strategy))
(setq prefix (funcall (second strategy) prefix)) (setq prefix (funcall (car (cdr strategy)) prefix))
(setq strategy-args (cddr strategy)) (setq strategy-args (cdr (cdr strategy)))
(apply strategy-func prefix prompt default constraint (apply strategy-func prefix prompt default constraint
strategy-args)) strategy-args))
((functionp strategy) ((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