Commit 3924724d authored by Joel Rosdahl's avatar Joel Rosdahl
Browse files

Portability: don't use cdar.

parent 744ca068
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.
......
......@@ -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 ()
......
......@@ -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)))
......
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