Function: bs-next-config-aux

bs-next-config-aux is a byte-compiled function defined in bs.el.gz.

Signature

(bs-next-config-aux START-NAME LIST)

Documentation

Get the next assoc after START-NAME in list LIST.

Will return the first if START-NAME is at end.

Source Code

;; Defined in /usr/src/emacs/lisp/bs.el.gz
(defun bs-next-config-aux (start-name list)
  "Get the next assoc after START-NAME in list LIST.
Will return the first if START-NAME is at end."
  (let ((assocs list)
	(length (length list))
	pos)
    (while (and assocs (not pos))
      (when (string= (car (car assocs)) start-name)
	(setq pos (- length (length assocs))))
      (setq assocs (cdr assocs)))
    (setq pos (1+ pos))
    (if (eq pos length)
	(car list)
      (nth pos list))))