Portability: don't use cdar.

src/ChangeLog

 2001-04-25  Joel Rosdahl  <joel@rosdahl.net>
 
+	* utilities.el (lyskom-compute-char-classes): Portability:
+	don't use cdar.
+
+	* commands1.el (lyskom-allocate-mark-type): Ditto.
+
 	* commands2.el (kom-list-marks): Wider date/time field.
 	(lyskom-print-mark-summary-line): Ditto.
 	(lyskom-list-summary): Ditto.

src/commands1.el

@@ -1962,7 +1962,7 @@ If no such existed either, nil is returned."
       (when (and used
 		 (< (length used) 256)
 		 (< (length list) 256))
-	(cdar used)))))
+	(cdr (car used))))))
 
 
 (defun lyskom-get-least-used-mark-types-alist ()

src/utilities.el

@@ -423,11 +423,11 @@ All other characters are unique."
 	    (setq cls-to-strings (cons (list cls str) cls-to-strings)))))
       (let ((res nil))
 	(while cls-to-strings
-	  (let ((lst (cdar cls-to-strings)))
+	  (let ((lst (cdr (car cls-to-strings))))
 	    (if (> (length lst) 1)
 		(while lst
 		  (setq res (cons (cons (string-to-char (car lst))
-					(cdar cls-to-strings))
+					(cdr (car cls-to-strings)))
 				  res))
 		  (setq lst (cdr lst)))))
 	  (setq cls-to-strings (cdr cls-to-strings)))