Function: bs--insert-one-entry

bs--insert-one-entry is a byte-compiled function defined in bs.el.gz.

Signature

(bs--insert-one-entry BUFFER)

Documentation

Generate one entry for buffer BUFFER in Buffer Selection Menu.

It goes over all columns described in bs-attributes-list and evaluates corresponding string. Inserts string in current buffer; normally *buffer-selection*.

Source Code

;; Defined in /usr/src/emacs/lisp/bs.el.gz
(defun bs--insert-one-entry (buffer)
  "Generate one entry for buffer BUFFER in Buffer Selection Menu.
It goes over all columns described in `bs-attributes-list'
and evaluates corresponding string.  Inserts string in current buffer;
normally *buffer-selection*."
  (let ((string "")
	(to-much 0)
        (apply-args (append (list bs--buffer-coming-from bs-current-list))))
    (with-current-buffer buffer
      (dolist (column bs-attributes-list)
	(let* ((min (bs--get-value (nth 1 column)))
	       (new-string (bs--format-aux (bs--get-value (nth 4 column) ; fun
							  apply-args)
					   (nth 3 column)                ; align
					   (- min to-much)))
	       (len (string-width new-string)))
	  (setq string (concat string new-string))
	  (when (> len min)
	    (setq to-much (- len min))))))
    (insert string)))