Function: gnus-add-to-sorted-list

gnus-add-to-sorted-list is an autoloaded and byte-compiled function defined in gnus-range.el.gz.

Signature

(gnus-add-to-sorted-list LIST NUM)

Documentation

Add NUM into sorted LIST by side effect.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-range.el.gz
;;;###autoload
(defun gnus-add-to-sorted-list (list num)
  "Add NUM into sorted LIST by side effect."
  (let* ((top (cons nil list))
	 (prev top))
    (while (and list (< (car list) num))
      (setq prev list
	    list (cdr list)))
    (unless (eq (car list) num)
      (setcdr prev (cons num list)))
    (cdr top)))