Commit 3b12c247 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

cadr, caar and cdar are not portable to all Emacsen.

parent b9c51395
2002-07-30 Per Cederqvist <ceder@ceder.dyndns.org>
cadr, caar and cdar are not portable to all Emacsen.
* vars.el.in (lyskom-button-actions): Don't use cadr.
* utilities.el (lyskom-read-text-no-prefix-arg): Don't use caar or
cdar.
2002-07-29 David Byers <david.byers@swipnet.se>
* utilities.el: Removed lyskom-pick-text-no-strategy-alist.
......
......@@ -734,8 +734,8 @@ its first argument and remaining list items appended to the argument list."
(while (and how (null text-no))
(let* ((strategy-pred nil) ;; when a predicate to test the prefix
(compare-value nil) ;; when a value to compare the prefix to
(applies-p (caar how)) ;; either one of the above
(what-text (cdar how))
(applies-p (car (car how))) ;; either one of the above
(what-text (cdr (car how)))
(constraint-not-met nil))
(if (or (eq applies-p '-) (not (functionp applies-p)))
(setq compare-value applies-p)
......
......@@ -1551,22 +1551,22 @@ appear more than once"
. (lambda (buffer recpt-and-buffer text)
(lyskom-edit-do-add-recipient/copy
'RECPT (car recpt-and-buffer)
(cadr recpt-and-buffer))))
(car (cdr recpt-and-buffer)))))
(lyskom-button-recpt-type-copy
. (lambda (buffer recpt-and-buffer text)
(lyskom-edit-do-add-recipient/copy
'CC-RECPT (car recpt-and-buffer)
(cadr recpt-and-buffer))))
(car (cdr recpt-and-buffer)))))
(lyskom-button-recpt-type-bcc
. (lambda (buffer recpt-and-buffer text)
(lyskom-edit-do-add-recipient/copy
'BCC-RECPT (car recpt-and-buffer)
(cadr recpt-and-buffer))))
(car (cdr recpt-and-buffer)))))
(lyskom-button-recpt-type-sub
. (lambda (buffer recpt-and-buffer text)
(lyskom-edit-sub-recipient/copy
(car recpt-and-buffer)
(cadr recpt-and-buffer))))))
(car (cdr recpt-and-buffer)))))))
(add-recipient-or-xref
add-recipient-or-xref
(lambda (buffer argument text) nil)
......
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