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

	portable to Emacs 19 without using cl.el.  Use car and cdr
	instead.

src/ChangeLog

+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

src/utilities.el

@@ -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)