;ELC ;;; compiled by rms@psilocin.gnu.ai.mit.edu on Fri Jun 28 05:55:46 1996 ;;; from file /home/fsf/rms/e19/lisp/tmm.el ;;; emacs version 19.31.3. ;;; 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.29"))) (error "`tmm.el' was compiled for Emacs 19.29 or later")) (byte-code "! B! B B B B BƇ" [require electric tmm-short-cuts current-load-list boundp tmm-old-mb-map nil tmm-old-comp-map tmm-c-prompt tmm-km-list tmm-table-undef] 2) #@252 Text-mode emulation of looking and choosing from a menubar. See the documentation for `tmm-prompt'. X-POSITION, if non-nil, specifies a horizontal position within the menu bar; we make that menu bar item (the one at that position) the default choice. (defalias 'tmm-menubar #[(&optional x-position) "!!5@ \n\n\"\nC\"*A) \n W@\n@:{@A:{@A@;{@A@G\\\\AI\n@+ #*" [run-hooks menu-bar-update-hook tmm-get-keybind [menu-bar] nil menu-bar-item menu-bar menu-bar-final-items list item this-one append delq x-position 0 column tail 1 tmm-prompt] 5 (#$ . 657) nil]) #@225 Text-mode emulation of looking and choosing from a menubar. This command is used when you click the mouse in the menubar on a console which has no window system but does have a mouse. See the documentation for `tmm-prompt'. (defalias 'tmm-menubar-mouse #[(event) " A@)\n8)@!" [tmm-menubar event position 2] 4 (#$ . 1317) "e"]) #@57 String to insert between shortcut and menu item or nil. (defvar tmm-mid-prompt "==>" (#$ . 1656)) #@34 A place to store minibuffer map. (defvar tmm-mb-map nil (#$ . 1760)) #@127 String to insert at top of completion buffer. If this is nil, delete even the usual help text and show just the alternatives. (defvar tmm-completion-prompt "Press PageUp Key to reach this buffer from the minibuffer.\nAlternatively, you can use Up/Down keys (or your History keys) to change\nthe item in the minibuffer, and press RET when you are done, or press the \nmarked letters to pick up your choice. Type C-g or ESC ESC ESC to cancel.\n" (#$ . 1836)) #@546 Text-mode emulation of calling the bindings in keymap. Creates a text-mode menu of possible choices. You can access the elements in the menu in two ways: *) via history mechanism from minibuffer; *) Or via completion-buffer that is automatically shown. The last alternative is currently a hack, you cannot use mouse reliably. MENU is like the MENU argument to `x-popup-menu': either a keymap or an alist of alists. DEFAULT-ITEM, if non-nil, specifies an initial default choice. Its value should be an event that has a binding in MENU. (defalias 'tmm-prompt #[(menu &optional in-popup default-item) " !? \n \f ! \"\fEGUE@AX! @=@:@A;TAd)\"! G\f $ \fZZ 8\n\"P\f\\ZB&*\"AG\nGV\nGO\n\nGO\"A \"\"A @ A(& d\f1 \"d !P 9@ !쏈 !d dc/ !d . " ["Menu bar" nil keymapp menu not-menu choice chosen-string tmm-short-cuts tmm-old-comp-map tmm-old-mb-map tmm-c-prompt tmm-table-undef history-len history out tmm-km-list gl-str run-hooks activate-menubar-hook mapcar #[(elt) "; < \"" [elt gl-str tmm-get-keymap not-menu] 3] 1 0 index-of-default tmm-mid-prompt tmm-add-shortcuts default-item tail reverse car append add-hook minibuffer-setup-hook tmm-add-prompt ((byte-code "\"!q!p!)" [remove-hook minibuffer-setup-hook tmm-add-prompt get-buffer "*Completions*" use-local-map tmm-old-comp-map bury-buffer] 3)) completing-read " (up/down to change, PgUp to menu): " t assoc try-completion in-popup tmm-prompt indirect-function (byte-code "!" [require mouse] 2) ((error)) (x-popup-menu nil choice) ((error)) last-command-event call-interactively] 15 (#$ . 2301)]) #@216 Adds shortcuts to cars of elements of the list. Takes a list of lists with a string as car, returns list with shortcuts added to these cars. Stores a list of all the shortcuts in the free variable `tmm-short-cuts'. (defalias 'tmm-add-shortcuts #[(list) " !\")" [0 next-shortcut-number mapcar #[(elt) "@O%\f\"%\fƔTO C\nWA\n\"\nT\nC KY B \fQAB+" [elt nil b f str 0 1 tmm-short-cuts string-match " \\([^ ]\\)" next-shortcut-number 10 format "%d" tmm-mid-prompt] 4] reverse list] 4 (#$ . 4147)]) (defalias 'tmm-define-keys #[(minibuffer) "\n\" + # # # # #" [mapcar #[(str) " \n# \n#" [define-key current-local-map str tmm-shortcut] 4] tmm-short-cuts minibuffer define-key current-local-map [pageup] tmm-goto-completions [prior] "v" "" next-history-element "" previous-history-element] 4]) (defalias 'tmm-add-prompt #[nil "\"!$ \n \f \f\"!!ы!!!q  \"!!\n!)c)" [remove-hook minibuffer-setup-hook tmm-add-prompt make-local-hook minibuffer-exit-hook add-hook tmm-delete-map nil t selected-window win current-local-map tmm-old-mb-map use-local-map append make-sparse-keymap tmm-define-keys ((byte-code "\n\"Đ !)qbc(b!|" [mapcar car minibuffer-completion-table completions "*Completions*" display-completion-list 1 tmm-completion-prompt search-forward "Possible completions are:\n"] 3)) other-window 1 window-buffer Electric-pop-up-window "*Completions*" tmm-old-comp-map select-window tmm-c-prompt] 5]) (defalias 'tmm-delete-map #[nil "#\f \f!" [remove-hook minibuffer-exit-hook tmm-delete-map t tmm-old-mb-map use-local-map] 4]) #@42 Choose the shortcut that the user typed. (defalias 'tmm-shortcut #[nil " ! 2 ǚ$ \f Q! 2 \" c *" [char-to-string last-command-char nil s c tmm-short-cuts buffer-name "*Completions*" beginning-of-buffer re-search-forward "\\(^\\|[ ]\\)" tmm-mid-prompt choose-completion erase-buffer mapcar #[(elt) "@\nGT@G^O \nP@" [elt 0 tmm-mid-prompt c s] 4] tmm-km-list exit-minibuffer] 5 (#$ . 5871) nil]) (defalias 'tmm-goto-completions #[nil "  ! ! !" [buffer-string tmm-c-prompt erase-buffer switch-to-buffer-other-window "*Completions*" search-forward search-backward] 2 nil nil]) #@383 Prepends (DOCSTRING EVENT BINDING) to free variable `tmm-km-list'. The values are deduced from the argument ELT, that should be an element of keymap, an `x-popup-menu' argument, or an element of `x-popup-menu' argument (when IN-X-MENU is not-nil). This function adds the element only if it is not already present. It uses the free variable `tmm-table-undef' to keep undefined keys. (defalias 'tmm-get-keymap #[(elt &optional in-x-menu) " @ A=\nBBT\n\". <1 !4 != .