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
a17ea90d
Commit
a17ea90d
authored
Apr 26, 2001
by
Johan Sundström
Browse files
Bugfix.
parent
3924724d
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
a17ea90d
Thu Apr 26 13:10:48 2001 Johan Sundstrm <jhs@idonex.se>
* commands1.el (lyskom-get-least-used-mark-types-alist): Bugfix;
lyskom-set-alist isn't a destructive operation!
* utilities.el (lyskom-set-alist): Clarified docstring regarding
the above.
2001-04-25 Joel Rosdahl <joel@rosdahl.net>
* utilities.el (lyskom-compute-char-classes): Portability:
...
...
src/commands1.el
View file @
a17ea90d
...
...
@@ -1976,7 +1976,9 @@ increasing number of marks per mark type (and, when equal, by mark type)."
(
type
(
mark->mark-type
mark
))
(
tcnt
(
assq
type
cnt-alist
)))
(
when
tcnt
(
setq
tcnt
(
cdr
tcnt
)))
(
lyskom-set-alist
cnt-alist
type
(
if
(
null
tcnt
)
1
(
1+
tcnt
))))
(
setq
cnt-alist
(
lyskom-set-alist
cnt-alist
type
(
if
(
null
tcnt
)
1
(
1+
tcnt
)))))
(
setq
mark-list
(
cdr
mark-list
)))
;; Sort the list, least-used, lowest number of mark type first:
...
...
src/utilities.el
View file @
a17ea90d
...
...
@@ -266,7 +266,8 @@ of \(current-time\)."
time
))
(
defun
lyskom-set-alist
(
alist
item
value
)
"Modify an alist ALIST to set item ITEM to the value VALUE."
"Modifies (non-destructively) an alist ALIST to set item
ITEM to the value VALUE."
(
let
((
pair
(
assq
item
alist
)))
(
if
pair
(
progn
(
setcdr
pair
value
)
alist
)
...
...
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