;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Fri Aug 12 02:58:08 1994 ;;; from file /home/fsf/rms/e19/lisp/menu-bar.el ;;; emacs version 19.25.93.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/home/fsf/rms/e19/lisp/menu-bar.el' was compiled for Emacs 19")) (byte-code " \" !#!! B#!1!  B#!E! B#######################?@A# BC# DE# FG# HI# JK# LM# NO# PQ# RS# TU# VW# XY# Z[# \\]# ^_#`abc#`dbc#`ebc#`fbg#`hbc#`ibj#`kbl?#mnopqr%`sbc#`tbc#`ubv#" [lookup-key global-map [menu-bar] define-key [menu-bar] make-sparse-keymap "menu-bar" boundp menu-bar-help-menu "Help" (help) menu-bar-final-items [menu-bar help] menu-bar-edit-menu "Edit" [menu-bar edit] menu-bar-file-menu "File" [menu-bar file] [exit-emacs] ("Exit Emacs" . save-buffers-kill-emacs) [separator-compare] ("--") [epatch] ("Apply Patch" . menu-bar-epatch-menu) [ediff] ("Compare" . menu-bar-ediff-menu) [emerge] ("Emerge" . menu-bar-emerge-menu) [separator-misc] ("--") [calendar] ("Calendar" . calendar) [rmail] ("Read Mail" . rmail) [gnus] ("Read Net News" . gnus) [separator-frames] ("--") [delete-frame] ("Delete Frame" . delete-frame) [make-frame] ("Make New Frame" . make-frame) [separator-buffers] ("--") [bookmark] ("Bookmarks" . menu-bar-bookmark-map) [print-buffer] ("Print Buffer" . print-buffer) [kill-buffer] ("Kill Buffer" . kill-this-buffer) [insert-file] ("Insert File" . insert-file) [revert-buffer] ("Revert Buffer" . revert-buffer) [write-file] ("Save Buffer As..." . write-file) [save-buffer] ("Save Buffer" . save-buffer) [dired] ("Open Directory..." . dired) [open-file] ("Open File..." . find-file) menu-bar-ediff-menu [window] ("This Window And Next Window" . compare-windows) [query-replace] ("Query Replace" . query-replace) [re-search-back] ("Regexp Search Backwards" . re-search-backward) [search-back] ("Search Backwards" . search-backward) [re-search-fwd] ("Regexp Search" . re-search-forward) [search-fwd] ("Search" . search-forward) [separator-misc] ("--") [spell] ("Spell" . ispell-menu-map) [fill] ("Fill" . fill-region) [separator-edit] ("--") [clear] ("Clear" . delete-region) [choose-next-paste] ("Choose Next Paste >" . mouse-menu-choose-yank) [paste] ("Paste" . yank) [copy] ("Copy" . kill-ring-save) [cut] ("Cut" . kill-region) [undo] ("Undo" . undo) put fill-region menu-enable mark-active kill-region kill-ring-save yank (x-selection-exists-p) delete-region undo (if (eq last-command (quote undo)) pending-undo-list (consp buffer-undo-list)) query-replace buffer-read-only autoload ispell-menu-map "ispell" nil t keymap clipboard-kill-region clipboard-kill-ring-save clipboard-yank (or (x-selection-exists-p) (x-selection-exists-p (quote CLIPBOARD)))] 6) (defalias 'clipboard-yank #[nil " )" [t x-select-enable-clipboard yank] 1 "\ Reinsert the last stretch of killed text, or the clipboard contents." nil]) (defalias 'clipboard-kill-ring-save #[(beg end) " \f\")" [t x-select-enable-clipboard kill-ring-save beg end] 3 "\ Copy region to kill ring, and save in the X clipboard." "r"]) (defalias 'clipboard-kill-region #[(beg end) " \f\")" [t x-select-enable-clipboard kill-region beg end] 3 "\ Kill the region, and save it in the X clipboard." "r"]) (defalias 'menu-bar-enable-clipboard #[nil " B# B# B# # # # # # #" [define-key menu-bar-edit-menu [paste] "Paste" clipboard-yank [copy] "Copy" clipboard-kill-ring-save [cut] "Cut" clipboard-kill-region global-map [f20] [f16] [f18] [cut] [copy] [paste]] 5 "\ Make CUT, PASTE and COPY (keys and menu bar items) use the clipboard. Do the same for the keys of the same name." nil]) (byte-code " # # # # # # # # # # # #" [define-key menu-bar-help-menu [emacs-version] ("Show Version" . emacs-version) [report-emacs-bug] ("Send Bug Report" . report-emacs-bug) [emacs-tutorial] ("Emacs Tutorial" . help-with-tutorial) [man] ("Man..." . manual-entry) [describe-variable] ("Describe Variable..." . describe-variable) [describe-function] ("Describe Function..." . describe-function) [describe-key] ("Describe Key..." . describe-key) [list-keybindings] ("List Keybindings" . describe-bindings) [command-apropos] ("Command Apropos..." . command-apropos) [describe-mode] ("Describe Mode" . describe-mode) [info] ("Info" . info) [emacs-news] ("Emacs News" . view-emacs-news)] 4) (defalias 'kill-this-buffer #[nil "p!" [kill-buffer] 2 "\ Kills the current buffer." nil]) (byte-code "\"#####" [defalias kill-this-buffer-enabled-p #[nil " \n\n@!\" T\nA V*" [0 buffer-list buffers count string-match "^ " buffer-name 1] 5] put save-buffer menu-enable (buffer-modified-p) revert-buffer (or revert-buffer-function revert-buffer-insert-file-contents-function (and (buffer-file-name) (or (buffer-modified-p) (not (verify-visited-file-modtime (current-buffer)))))) delete-frame (let ((frames (frame-list)) (count 0)) (while frames (if (cdr (assq (quote visibility) (frame-parameters (car frames)))) (setq count (1+ count))) (setq frames (cdr frames))) (> count 1)) kill-this-buffer (kill-this-buffer-enabled-p) advertised-undo (and (not (eq t buffer-undo-list)) (if (eq last-command (quote undo)) (and (boundp (quote pending-undo-list)) pending-undo-list) buffer-undo-list))] 4) (defvar yank-menu-length 100 "\ *Maximum length of an item in the menu for \\[mouse-menu-choose-yank].") (defalias 'mouse-menu-choose-yank #[(event) "\f\" BD\"\n)\n\f t&!)!+" [0 count mapcar #[(string) "G V\f O B T" [string yank-menu-length 0 count] 3] kill-ring menu x-popup-menu event "Yank Menu" "Choose Next Yank" arg kill-ring-yank-pointer message "The next yank will insert the selected text." current-kill] 6 "\ Pop up a menu of the kill-ring for selection with the mouse. The kill-ring-yank-pointer is moved to the selected element. A subsequent \\[yank] yanks the choice just selected." "e"]) (byte-code "# #!\"" [put mouse-menu-choose-yank menu-enable kill-ring define-key global-map [menu-bar buffer] ("Buffers" . menu-bar-buffers) defalias menu-bar-buffers make-sparse-keymap "Buffers"] 4) (defvar complex-buffers-menu-p nil "\ *Non-nil says, offer a choice of actions after you pick a buffer. This applies to the Buffers menu from the menu bar.") (defvar buffers-menu-max-size 10 "\ *Maximum number of entries which may appear on the Buffers menu. If this is 10, then only the ten most-recently-selected buffers are shown. If this is nil, then all buffers are shown. A large number or nil slows down menu responsiveness.") (byte-code "!\"\"\"\"!%\f‡" [boundp list-buffers-directory nil defalias menu-bar-select-buffer #[nil " !" [switch-to-buffer last-command-event] 2 nil nil] menu-bar-select-frame #[nil " ! ! !" [make-frame-visible last-command-event raise-frame select-frame] 2 nil nil] menu-bar-update-buffers #[nil " \"^ ^ Ɖ \n 9 V9\nG V9 \nơ\nΉƉn@!H=e@!G]AN\n@!H=׉\"!!ڂۊq݂)!q)%BB@@GV@@G)Av\"Z]\"PBBC-B A \"B$B/B PPBBBBF[[[B#," [lookup-key current-global-map [menu-bar buffer] frame-or-buffer-changed-p buffer-list frame-list nil frames-menu buffers-menu frames buffers buffers-menu-max-size 1 "Select Buffer" 0 head alist maxlen maxbuf tail buffer-name 32 elt format "%%%ds %%s%%s %%s" buffer-modified-p "*" " " buffer-read-only "%" buffer-file-name list-buffers-directory "" mapcar #[(pair) " A! @‰BEä" [buffer-name pair nil menu-bar-select-buffer] 4] list-buffers make-string 2 8 "List All Buffers" "Select Frame" #[(frame) "!AÉBEĤ" [frame name frame-parameters nil menu-bar-select-frame] 4] keymap define-key [menu-bar buffer] "Buffers" "Buffers and Frames" "Frames" undefined] 11] add-hook menu-bar-update-hook menu-bar-mode] 3) (defalias 'menu-bar-mode #[(flag) " \nA=?\fłB B)*\f?0!V :K\fEłFáY\fTłUB B) \n\n@!A \n@\fyłzBC\"\n@ BC\")\nA\nb)" [menu-bar-lines default-frame-alist default 0 menu-bar-mode 1 flag prefix-numeric-value parameter frame-list frames height frame-parameters modify-frame-parameters nil] 5 "\ Toggle display of a menu bar on each frame. This command applies to all frames that exist and frames to be created in the future. With a numeric argument, if the argument is negative, turn off menu bars; otherwise, turn on menu bars." "P"]) (provide (quote menu-bar))