Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Peter Liljenberg
lyskom-elisp-client
Commits
3b12c247
Commit
3b12c247
authored
Jul 30, 2002
by
Per Cederqvist
Browse files
cadr, caar and cdar are not portable to all Emacsen.
parent
b9c51395
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
3b12c247
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.
...
...
src/utilities.el
View file @
3b12c247
...
...
@@ -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
(
ca
r
(
c
ar
how
))
)
;; either one of the above
(
what-text
(
cd
r
(
c
ar
how
))
)
(
constraint-not-met
nil
))
(
if
(
or
(
eq
applies-p
'-
)
(
not
(
functionp
applies-p
)))
(
setq
compare-value
applies-p
)
...
...
src/vars.el.in
View file @
3b12c247
...
...
@@ -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
))))
(
ca
r
(
c
dr
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
))))
(
ca
r
(
c
dr
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
))))
(
ca
r
(
c
dr
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
))))))
(
ca
r
(
c
dr
recpt-and-buffer
))))))
)
(
add-recipient-or-xref
add-recipient-or-xref
(
lambda
(
buffer
argument
text
)
nil
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment