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
lyskom-elisp-client
lyskom-elisp-client
Commits
3924724d
Commit
3924724d
authored
Apr 25, 2001
by
Joel Rosdahl
Browse files
Portability: don't use cdar.
parent
744ca068
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
3924724d
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
View file @
3924724d
...
...
@@ -1962,7 +1962,7 @@ If no such existed either, nil is returned."
(
when
(
and
used
(
<
(
length
used
)
256
)
(
<
(
length
list
)
256
))
(
cdar
used
)))))
(
cd
r
(
c
ar
used
)))))
)
(
defun
lyskom-get-least-used-mark-types-alist
()
...
...
src/utilities.el
View file @
3924724d
...
...
@@ -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
(
cd
r
(
c
ar
cls-to-strings
)))
)
(
if
(
>
(
length
lst
)
1
)
(
while
lst
(
setq
res
(
cons
(
cons
(
string-to-char
(
car
lst
))
(
cdar
cls-to-strings
))
(
cd
r
(
c
ar
cls-to-strings
))
)
res
))
(
setq
lst
(
cdr
lst
)))))
(
setq
cls-to-strings
(
cdr
cls-to-strings
)))
...
...
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