Function: pr-menu-lock

pr-menu-lock is a byte-compiled function defined in printing.el.gz.

Signature

(pr-menu-lock ENTRY INDEX HORIZONTAL STATE PATH)

Source Code

;; Defined in /usr/src/emacs/lisp/printing.el.gz
(defun pr-menu-lock (entry index horizontal state path)
  (when pr-menu-lock
    (or (and pr-menu-position (eq state pr-menu-state))
	(setq pr-menu-position (pr-menu-position entry index horizontal)
	      pr-menu-state    state))
    (let* ((menu   (pr-menu-lookup path))
	   (result (x-popup-menu pr-menu-position menu)))
      (and result
	   (let ((command (lookup-key menu (vconcat result))))
	     (if (fboundp command)
		 (funcall command)
	       (eval command)))))
    (setq pr-menu-position nil)))