usr/src/contrib/emacs-18.57/lisp/x-menu.elc


(defmacro caar (conscell) (byte-code "ÁÁ\bDD\87" [conscell car] 3))

(defmacro cdar (conscell) (byte-code "ÁÂ\bDD\87" [conscell cdr car] 3))

(defun x-menu-mode nil "\
Major mode for creating permanent menus for use with X.
These menus are implemented entirely in Lisp; popup menus, implemented
with x-popup-menu, are implemented using XMenu primitives." (byte-code "ÅÆ!\88ÅÇ!\88ÅÈ!\88ÅÃ!\88ÅÉ!\88Á\89\10\88Á\89\12\88Ê\89\13\88Ë\89\14\87" [buffer-read-only t truncate-lines x-process-mouse-hook mode-line-buffer-identification make-local-variable x-menu-items-per-line x-menu-item-width x-menu-items-alist x-menu-assoc-buffer x-menu-pick-entry ("MENU: %32b")] 7))

(defvar x-menu-max-width 0)

(defvar x-menu-items-per-line 0)

(defvar x-menu-item-width 0)

(defvar x-menu-items-alist nil)

(defvar x-menu-assoc-buffer nil)

(defvar x-menu-item-spacing 1 "\
*Minimum horizontal spacing between objects in a permanent X menu.")

(defun x-menu-create-menu (name) "\
Create a permanent X menu.  Returns an item which should be used as a
menu object whenever referring to the menu." (byte-code "pÄ
!\19\18     q\88Å \88\b\89\13\88\bq\88      *\87" [old buf name x-menu-assoc-buffer get-buffer-create x-menu-mode] 4))

(defun x-menu-change-associated-buffer (menu buffer) "\
Change associated buffer of MENU to BUFFER.  BUFFER should be a buffer
object." (byte-code "p\18 q\88\v\89\12\88\bq)\87" [old menu x-menu-assoc-buffer buffer] 2))

(defun x-menu-add-item (menu item binding) "\
Adds to MENU an item with name ITEM, associated with BINDING.
Following a sequence of calls to x-menu-add-item, a call to x-menu-compute
should be performed before the menu will be made available to the user.

BINDING should be a function of one argument, which is the numerical
button/key code as defined in x-menu.el." (byte-code "pÆ\19\18
q\88Ç\v\f\"\89\11\83\17