Function: menu-bar-buffer-vector

menu-bar-buffer-vector is a byte-compiled function defined in menu-bar.el.gz.

Signature

(menu-bar-buffer-vector ALIST)

Documentation

Turn ((name . buffer) ...) into a menu.

Source Code

;; Defined in /usr/src/emacs/lisp/menu-bar.el.gz
(defun menu-bar-buffer-vector (alist)
  "Turn ((name . buffer) ...) into a menu."
  (let ((buffers-vec (make-vector (length alist) nil))
        (i (length alist)))
    (dolist (pair alist)
      (setq i (1- i))
      (aset buffers-vec i
            (cons (car pair)
                  (let ((buf (cdr pair)))
                    (lambda ()
                      (interactive)
                      (funcall menu-bar-select-buffer-function buf))))))
    buffers-vec))