;ELC ;;; compiled by kwzh@churchy.gnu.ai.mit.edu on Mon Jun 12 20:45:17 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/menu-bar.el ;;; emacs version 19.28.94.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.28.90"))) (error "`menu-bar.el' was compiled for Emacs 19.29 or later")) (byte-code " \" !#!!\nB\n\f B#!7!\nB\n B#!Q!\nB\n B#!k!\nB\n B#!!\nB\n B#!\nB\n!!\nB\n####B#############@#AB#CD#EF!wGH#IJ#KL#MN#OP#QR#ST#UV#WX#YZ#[\\#]^_#" [lookup-key global-map [menu-bar] define-key [menu-bar] make-sparse-keymap "menu-bar" boundp menu-bar-help-menu "Help" current-load-list (help-menu) menu-bar-final-items [menu-bar help-menu] menu-bar-search-menu "Search" [menu-bar search] menu-bar-edit-menu "Edit" [menu-bar edit] menu-bar-tools-menu "Tools" [menu-bar tools] menu-bar-files-menu "Files" [menu-bar files] menu-bar-file-menu vc-menu-map "Version Control" [calendar] ("Display Calendar" . calendar) [rmail] ("Read Mail" . rmail) [gnus] ("Read Net News" . gnus) [separator-vc] ("--") [vc-menu] [separator-compare] ("--") [epatch] ("Apply Patch" . menu-bar-epatch-menu) [ediff-merge] ("Merge" . menu-bar-ediff-merge-menu) [compare] ("Compare" . menu-bar-ediff-menu) [separator-print] ("--") put print-region menu-enable mark-active ps-print-region-with-faces [ps-print-region] ("Postscript Print Region" . ps-print-region-with-faces) [ps-print-buffer] ("Postscript Print Buffer" . ps-print-buffer-with-faces) [print-region] ("Print Region" . print-region) [print-buffer] ("Print Buffer" . print-buffer) [exit-emacs] ("Exit Emacs" . save-buffers-kill-emacs) [separator-exit] ("--") [one-window] ("One Window" . delete-other-windows) [split-window] ("Split Window" . split-window-vertically) fboundp delete-frame [delete-frame] ("Delete Frame" . delete-frame) [make-frame-on-display] ("Open New Display..." . make-frame-on-display) [make-frame] ("Make New Frame" . make-frame) [separator-buffers] ("--") [kill-buffer] ("Kill Current 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)] 5) #@51 Read a string and search for it nonincrementally. (defalias 'nonincremental-search-forward #[(string) " @!\"!" [string "" search-forward search-ring isearch-update-ring nil] 3 (#$ . 2859) "sSearch for string: "]) #@60 Read a string and search backward for it nonincrementally. (defalias 'nonincremental-search-backward #[(string) " @!\"!" [string "" search-backward search-ring isearch-update-ring nil] 3 (#$ . 3093) "sSearch for string: "]) #@63 Read a regular expression and search for it nonincrementally. (defalias 'nonincremental-re-search-forward #[(string) " @!\"!" [string "" re-search-forward regexp-search-ring isearch-update-ring t] 3 (#$ . 3338) "sSearch for regexp: "]) #@72 Read a regular expression and search backward for it nonincrementally. (defalias 'nonincremental-re-search-backward #[(string) " @!\"!" [string "" re-search-backward regexp-search-ring isearch-update-ring t] 3 (#$ . 3595) "sSearch for regexp: "]) #@48 Search forward for the previous search string. (defalias 'nonincremental-repeat-search-forward #[nil " @!" [search-forward search-ring] 2 (#$ . 3863) nil]) #@49 Search backward for the previous search string. (defalias 'nonincremental-repeat-search-backward #[nil " @!" [search-backward search-ring] 2 (#$ . 4027) nil]) #@53 Search forward for the previous regular expression. (defalias 'nonincremental-repeat-re-search-forward #[nil " @!" [re-search-forward regexp-search-ring] 2 (#$ . 4194) nil]) #@54 Search backward for the previous regular expression. (defalias 'nonincremental-repeat-re-search-backward #[nil " @!" [re-search-backward regexp-search-ring] 2 (#$ . 4376) nil]) (byte-code " # # ## # # # # # # # # # # #!g$#$#$#$#$#$#!B25B52BM$#$#$#$#" [define-key menu-bar-search-menu [query-replace-regexp] ("Query Replace Regexp..." . query-replace-regexp) [query-replace] ("Query Replace..." . query-replace) [find-tag] ("Find Tag..." . find-tag) put find-tag menu-enable tags-table-list [bookmark] ("Bookmarks" . menu-bar-bookmark-map) [separator-search] ("--") [nonincremental-repeat-re-search-back] ("Repeat Regexp Backwards" . nonincremental-repeat-re-search-backward) [nonincremental-repeat-search-back] ("Repeat Backwards" . nonincremental-repeat-search-backward) [nonincremental-repeat-re-search-fwd] ("Repeat Regexp" . nonincremental-repeat-re-search-forward) [nonincremental-repeat-search-fwd] ("Repeat Search" . nonincremental-repeat-search-forward) [separator-repeat] ("--") [re-search-back] ("Regexp Search Backwards..." . nonincremental-re-search-backward) [search-back] ("Search Backwards..." . nonincremental-search-backward) [re-search-fwd] ("Regexp Search..." . nonincremental-re-search-forward) [search-fwd] ("Search..." . nonincremental-search-forward) fboundp start-process menu-bar-edit-menu [spell] ("Spell" . ispell-menu-map) [fill] ("Fill" . fill-region) [props] ("Text Properties" . facemenu-menu) [separator-edit] ("--") [clear] ("Clear" . delete-region) [paste] ("Paste Most Recent" . yank) boundp yank-menu "Select Yank" nil current-load-list keymap [select-paste] ("Select and Paste" . yank-menu) [copy] ("Copy" . menu-bar-kill-ring-save) [cut] ("Cut" . kill-region) [undo] ("Undo" . undo)] 4) (defalias 'menu-bar-kill-ring-save #[(beg end) " !\f \"" [mouse-region-match message "Select a region with the mouse does `copy' automatically" kill-ring-save beg end] 3 nil "r"]) (byte-code "########%###" [put fill-region menu-enable mark-active kill-region menu-bar-kill-ring-save yank (x-selection-exists-p) yank-menu (cdr yank-menu) delete-region (and mark-active (not (mouse-region-match))) undo (if (eq last-command (quote undo)) pending-undo-list (consp buffer-undo-list)) query-replace (not 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) #@70 Reinsert the last stretch of killed text, or the clipboard contents. (defalias 'clipboard-yank #[nil " )" [t x-select-enable-clipboard yank] 1 (#$ . 7009) nil]) #@56 Copy region to kill ring, and save in the X clipboard. (defalias 'clipboard-kill-ring-save #[(beg end) " \f\")" [t x-select-enable-clipboard kill-ring-save beg end] 3 (#$ . 7180) "r"]) #@50 Kill the region, and save it in the X clipboard. (defalias 'clipboard-kill-region #[(beg end) " \f\")" [t x-select-enable-clipboard kill-region beg end] 3 (#$ . 7375) "r"]) #@114 Make CUT, PASTE and COPY (keys and menu bar items) use the clipboard. Do the same for the keys of the same name. (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 (#$ . 7559) 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] ("Browse Manuals" . info) [emacs-faq] ("Emacs FAQ" . view-emacs-FAQ) [emacs-news] ("Emacs News" . view-emacs-news)] 4) #@27 Kills the current buffer. (defalias 'kill-this-buffer #[nil "p!" [kill-buffer] 2 (#$ . 8793) nil]) (defalias 'kill-this-buffer-enabled-p #[nil " \n\n@!\" T\nA !?( V*" [0 buffer-list buffers count string-match "^ " buffer-name window-minibuffer-p selected-window 1] 5]) (byte-code "########" [put kill-this-buffer menu-enable (kill-this-buffer-enabled-p) save-buffer (and (buffer-modified-p) (not (window-minibuffer-p (selected-window)))) write-file (not (window-minibuffer-p (selected-window))) find-file (not (window-minibuffer-p (selected-window))) dired (not (window-minibuffer-p (selected-window))) insert-file (not (window-minibuffer-p (selected-window))) 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 (delete-frame-enabled-p)] 4) #@69 Return non-nil if `delete-frame' should be enabled in the menu bar. (defalias 'delete-frame-enabled-p #[nil "  @!\nT A \nV*" [frame-list 0 count frames frame-visible-p 1] 3 (#$ . 9758)]) (put (quote advertised-undo) (quote menu-enable) (quote (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)))) #@46 *Maximum length to display in the yank-menu. (defvar yank-menu-length 20 (#$ . -10176)) (defalias 'menu-bar-update-yank-menu #[(string old) "A@ G\nX  \nĥO \nĥ[OQ G @=8 @G AS BBAB*AG Vc ơ" [yank-menu string yank-menu-length 0 2 "..." nil menu-string front old menu-bar-select-yank kill-ring-max] 6]) (defalias 'menu-bar-select-yank #[nil "`! c" [push-mark last-command-event] 2 nil "*"]) (byte-code " #!\"" [define-key global-map [menu-bar buffer] ("Buffers" . menu-bar-buffers) defalias menu-bar-buffers make-sparse-keymap "Buffers"] 4) #@239 *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. (defvar buffers-menu-max-size 10 (#$ . -10790)) (byte-code "! B B‡" [boundp list-buffers-directory nil current-load-list menu-bar-update-buffers-maxbuf] 2) (defalias 'menu-bar-select-buffer #[nil " !" [switch-to-buffer last-command-event] 2 nil nil]) (defalias 'menu-bar-select-frame #[nil " ! ! !" [make-frame-visible last-command-event raise-frame select-frame] 2 nil nil]) (defalias 'menu-bar-update-buffers-1 #[(elt) "\n\" A @!łƊ @q!Ȃ\") @!6 @q\n)6\f\f!@ˉ\fGVR\fOP\f\f)% @B" [format "%%%ds %%s%%s %%s" menu-bar-update-buffers-maxbuf elt buffer-modified-p "*" " " buffer-read-only "%" buffer-file-name list-buffers-directory "" file file-name-directory 20 "..." -17 nil] 10]) (byte-code "! B‡" [boundp menu-bar-buffers-menu-list-buffers-entry nil current-load-list] 2) (defalias 'menu-bar-update-buffers #[nil " \"p p Ɖ \n 9 V9\nG V9 \nơ\n\"\f@@!@GVxOOQz)AV\f@AH=@AG]A\f@AH=!B@@GV@@G)ABBAZ]\"P\"C.B A+ \"B6BAB bbBBBBFmmmB#," [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" mapcar list tail 0 menu-bar-update-buffers-maxbuf maxlen alist head buffer-name name 27 12 "..." -12 32 elt menu-bar-update-buffers-1 menu-bar-buffers-menu-list-buffers-entry list-buffers "" make-string 2 8 "List All Buffers" #[(pair) " A! @‰BEä" [buffer-name pair nil menu-bar-select-buffer] 4] "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]) (byte-code "\"! BŇ" [add-hook menu-bar-update-hook menu-bar-update-buffers boundp menu-bar-mode nil current-load-list] 3) #@235 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. (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 (#$ . 13122) "P"]) (provide (quote menu-bar))