Commit a17ea90d authored by Johan Sundström's avatar Johan Sundström
Browse files

Bugfix.

parent 3924724d
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:
......
......@@ -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:
......
......@@ -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)
......
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