Gecko [ 122.154.134.11 ]

Name	Size	Permission
awk-mode.elc	4.27 KB	-rw-r--r--
fast-lock.elc	17.08 KB	-rw-r--r--
iso-acc.elc	12.05 KB	-rw-r--r--
iso-insert.elc	11.71 KB	-rw-r--r--
iso-swed.elc	3.85 KB	-rw-r--r--
keyswap.el	1.37 KB	-rw-r--r--
lazy-lock.elc	24.77 KB	-rw-r--r--
old-whitespace.elc	23.48 KB	-rw-r--r--
options.elc	3.84 KB	-rw-r--r--
resume.elc	2.34 KB	-rw-r--r--
rnews.elc	25.96 KB	-rw-r--r--
rnewspost.elc	11.6 KB	-rw-r--r--
sc.elc	764 B	-rw-r--r--
scribe.elc	9.89 KB	-rw-r--r--
swedish.elc	2.64 KB	-rw-r--r--
vc-mcvs.elc	15.26 KB	-rw-r--r--
x-menu.elc	4.05 KB	-rw-r--r--

Code Editor : x-menu.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:39 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/obsolete/x-menu.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`x-menu.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#@187 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.
(defalias 'x-menu-mode #[nil "\304\305!\210\304\306!\210\304\307!\210\304\302!\210\304\310!\210\311\211\312\313\211\207" [buffer-read-only 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 t x-menu-pick-entry ("MENU: %32b")] 3 (#$ . 613)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\306B\302\306!\204-�\303\306\304\"\210\307B\302\307!\204<�\303\307\310\"\210\311B\302\311!\204K�\303\311\310\"\210\310\207" [current-load-list x-menu-max-width default-boundp set-default 0 x-menu-items-per-line x-menu-item-width x-menu-items-alist nil x-menu-assoc-buffer] 3)
#@68 *Minimum horizontal spacing between objects in a permanent X menu.
(defvar x-menu-item-spacing 1 (#$ . -1540))
#@114 Create a permanent X menu.
Returns an item which should be used as a
menu object whenever referring to the menu.
(defalias 'x-menu-create-menu #[(name) "p\304!	q\210\305 \210\n\nq\210	*\207" [name buf old x-menu-assoc-buffer get-buffer-create x-menu-mode] 3 (#$ . 1658)])
#@79 Change associated buffer of MENU to BUFFER.
BUFFER should be a buffer object.
(defalias 'x-menu-change-associated-buffer #[(menu buffer) "p	q\210\nq)\207" [old menu buffer x-menu-assoc-buffer] 1 (#$ . 1940)])
#@320 Add 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.
(defalias 'x-menu-add-item #[(menu item binding) "p\306\nq\210\307\f\"\211\203�
\241\210\202�\310\f
BC\"	q\210*\207" [elt old menu item x-menu-items-alist binding nil assoc append] 4 (#$ . 2159)])
#@107 Delete from MENU the item named ITEM.
Call `x-menu-compute' before making the menu available to the user.
(defalias 'x-menu-delete-item #[(menu item) "p\305\nq\210\306\f\"\211\203�\305\240\210	q\210*\207" [elt old menu item x-menu-items-alist nil assoc] 3 (#$ . 2692)])
#@169 Compute all necessary parameters for MENU.
This must be called whenever a menu is modified before it is made
available to the user.  This also creates the menu itself.
(defalias 'x-menu-activate #[(menu) "p\306	!\210\307\310 S\311\307
\2039�@@\2030�@B\f@@G]A\211\204�\312!*\f\\\313\f\245]\314 \210
\203\210�\311\203\201�T\211X\203\201�\315\316\317\f!\320Q@@\"c\210A\211\204^�)\321c\210\202Q�)\322\311\323 \324ed\"TZ]!\210eb\210)\306!)\207" [buf menu buffer-read-only x-menu-max-width x-menu-item-width x-menu-items-alist pop-to-buffer nil frame-width 0 reverse 1 erase-buffer format "%" int-to-string "s" 10 shrink-window window-height count-lines items-tail items-head x-menu-item-spacing x-menu-items-per-line items] 7 (#$ . 2976)])
#@56 Internal function for dispatching on mouse/menu events
(defalias 'x-menu-pick-entry #[(position event) "Si	\245^\306e`\"\307i!\203�\310\202�\311Z\n_\\\211
8A\211\203.�\f!\210,\312
!\207" [x-menu-items-per-line x-menu-item-width x y item x-menu-items-alist count-lines zerop 0 1 pop-to-buffer litem event x-menu-assoc-buffer] 4 (#$ . 3773)])
(provide 'x-menu)

${this.title}

Code Editor : x-menu.elc