Bugfix.

src/ChangeLog

+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

@@ -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

@@ -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)