;ELC ;;; compiled by jwz@thalidomide on Wed May 25 21:54:26 1994 ;;; from file /u/jwz/emacs19/lisp/sunpro/sunpro-menubar.el ;;; emacs version 19.10 Lucid. ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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 "This file was compiled for Emacs 19.")) (byte-code "ÀÁÂÃÄ Æ\"@ÇÈÉʯ  Ì !ˆÍÎMˆÏÐMˆÑÒMˆÓÏÔÕ#ˆÓÑÔÕ#ˆÖ×M‡" [("File" ["New:" sunpro-new-buffer t] ["Clone:" make-screen t] ["Open in New:" find-file-other-screen t] ["Open:" find-file t] ["Include File:" insert-file t] "-----" ["Save" save-buffer t nil] ["Save As:" write-file t] ["Revert Buffer:" revert-buffer t nil] ["Delete Buffer" (kill-buffer nil) t nil] "-----" ["Print Buffer" lpr-buffer t nil] "-----" ["Close" delete-screen t] ["Exit Emacs" save-buffers-kill-emacs t]) ("View" ["Split Window" (split-window) t] ["Unsplit Window" delete-other-windows t]) ("Edit" ["Undo" advertised-undo t] "-----" ["Cut" x-kill-primary-selection t] ["Copy" x-copy-primary-selection t] ["Paste" x-yank-clipboard-selection t] ["Delete" x-delete-primary-selection t] "-----" ["Select Block" mark-paragraph t] ["Select All" mark-whole-buffer t] "-----" ["Cancel Command" (sunpro-menu-quit) t]) ("Find" ["Forward:" sunpro-search-forward t] ["Backward:" sunpro-search-backward t] ["And Replace:" sunpro-query-replace t]) find-menu-item default-menubar ("Options") ("Buffers" "") ("Utilities" ["Execute Macro" call-last-kbd-macro last-kbd-macro] ["Start Macro Recording" start-kbd-macro (not defining-kbd-macro)] ["End Macro Recording" end-kbd-macro defining-kbd-macro]) nil ("Help" ["About Xemacs" about-lucid-emacs t] "-----" ["Editor Documentation" info t] "-----" ["Describe Mode" describe-mode t] ["Command Apropos:" command-apropos t] ["Full Apropos:" apropos t] ["List Keybindings" describe-bindings t] "-----" ["Describe Key:" describe-key t] ["Describe Function:" describe-function t] ["Describe Variable:" describe-variable t] "-----" ["Unix Manual:" manual-entry t] ["Editor Tutorial" help-with-tutorial t] ["Editor News" view-emacs-news t]) sunpro-menubar set-menubar sunpro-new-buffer #[nil "ÀÁÂ!!‡" [switch-to-buffer-other-screen generate-new-buffer "Untitled"] 3 nil nil] sunpro-search-forward #[nil "ÀÁ!«‡ «„ÂÃ!‡ «ƒÅ ‡Æ ‡" [boundp evi-enabled evi-execute-macro "/" isearch-mode isearch-repeat-forward x-isearch-maybe-with-region] 2 nil nil] sunpro-search-backward #[nil "ÀÁ!«‡ «„ÂÃ!‡ «ƒÅ ‡ÆÇ!‡" [boundp evi-enabled evi-execute-macro "?" isearch-mode isearch-repeat-backward x-isearch-maybe-with-region t] 2 nil nil] put isearch-command t sunpro-query-replace #[nil "ÀÁ!«‡ «„ÂÃ!‡ÄÅ!‡" [boundp evi-enabled evi-execute-macro ":s" call-interactively query-replace] 2 nil nil]] 9) (fset 'sunpro-menu-quit #[nil "À ÁU?­… ˆªt‡" [minibuffer-depth 0 abort-recursive-edit] 2 "\ Abort minibuffer input if any."])