;ELC ;;; compiled by tlyu@portnoy on Sat Feb 10 19:59:08 1996 ;;; from file /afs/sipb.mit.edu/project/sipbsrc/src/lib/elisp/vm-5.95beta/vm-minibuf.el ;;; emacs version 19.25.92.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 "`/afs/sipb.mit.edu/project/sipbsrc/src/lib/elisp/vm-5.95beta/vm-minibuf.el' was compiled for Emacs 19")) (byte-code "!\"\"" [provide vm-minibuf defalias vm-minibuffer-complete-word #[(&optional exiting) "` m g>0xm+u`6w`x` b { !P\n\"\"\"l \"  O\"S} O) =A=?C!C bcC?C!C G GZV b \f[OcCA?CcC\fU?C!!C\"\"!C0 b\f!!C:cC?C!. " [nil completion word-prefix-regexp word diff end beg c-list trimmed-c-list opoint (9 10 32) " \n" "^ \n" "^" regexp-quote vm-delete-non-matching-strings vm-minibuffer-completion-table mapcar list try-completion vm-completion-auto-correct -1 i 0 t last-command vm-minibuffer-complete-word exiting vm-minibuffer-completion-message "[Complete, but not unique]" vm-completion-auto-space " " "[Sole completion]" completion-auto-help "[Ambiguous]" vm-minibuffer-show-completions sort car string-lessp delete-char "[No match]"] 10 nil nil] vm-minibuffer-complete-word-and-exit #[nil "! " [vm-minibuffer-complete-word t exit-minibuffer] 2 nil nil]] 3) (defalias 'vm-minibuffer-completion-message #[(string &optional seconds) "db` )! d|*" [nil t inhibit-quit omax " " string sit-for seconds 2] 2 "\ Briefly display STRING to the right of the current minibuffer input. Optional second arg SECONDS specifies how long to keep the message visible; the default is 2 seconds. A keypress causes the immediate erasure of the STRING, and return of control to the calling program."]) (defalias (quote vm-minibuffer-replace-word) #[(word) "dbx`d|\nc" ["^ \n" nil word] 2]) (defalias 'vm-minibuffer-show-completions #[(list) "!q !p! c D#eb)" [get-buffer-create " *Completions*" nil buffer-read-only use-local-map make-sparse-keymap display-buffer erase-buffer "Possible completions are:\n" t vm-show-list list vm-minibuffer-replace-word current-local-map minibuffer-local-map] 5 "\ Display LIST in a multi-column listing in the \" *Completions*\" buffer. LIST should be a list of strings."]) (defalias 'vm-show-list #[(list &optional function keymaps) " \f C‰ \n \f  DEEF@ m \f# \f# \f# # # \f# # # \f# # # \f#APp!) \f\f@G]\f T A\f\\\f!Z\f]\n \n  \nU \\ \n U)\f_ B S)k`@cF `\"TA\nU`c0 1 )0. " [keymaps current-local-map nil keymap command start w i q list-length columns rows longest tab-stops buffer-read-only function vm-mouse-support-possible-p lambda (e) (interactive "e") let ((string (vm-mouse-get-mouse-track-string e))) and string vm-mouse-xemacs-mouse-p define-key button1 button2 button3 vm-mouse-fsfemacs-mouse-p [down-mouse-1] ignore [drag-mouse-1] [mouse-1] [drag-mouse-2] [down-mouse-2] [mouse-2] [drag-mouse-3] [down-mouse-3] [mouse-3] vm-get-buffer-window list 0 3 1 window-width 2 vm-mouse-set-mouse-track-highlight "\n" tab-stop-list tab-to-tab-stop] 13 "\ Display LIST in a multi-column listing in the current buffer at point. The current buffer must be displayed in some window at the time this function is called. LIST should be a list of strings. Optional second argument FUNCTION will be called if the mouse is clicked on one of the strings in the current buffer. The string clicked upon will be passed to FUNCTION as its sole argument. Optional third argument KEYMAPS specifies a lists of keymaps where the FUNCTION should be bound to the mouse clicks. By default the local keymap of the current buffer is used."]) (byte-code "\"\"\"\"" [defalias vm-minibuffer-completion-help #[nil "`mg>'xm\"u`-w`x`b\f {\n!P  \" \"V !Y!." [nil word-prefix-regexp word end beg c-list opoint (9 10 32) " \n" "^ \n" "^" regexp-quote vm-delete-non-matching-strings vm-minibuffer-completion-table sort string-lessp vm-minibuffer-show-completions vm-minibuffer-completion-message " [No match]"] 7 nil nil] vm-keyboard-read-string #[(prompt completion-list &optional multi-word) " !\n  # # #\n$ #!+" [copy-keymap minibuffer-local-map multi-word completion-list vm-minibuffer-completion-table vm-completion-auto-space define-key " " vm-minibuffer-complete-word " " "?" vm-minibuffer-completion-help " " vm-minibuffer-complete-word-and-exit read-string prompt] 4] vm-read-string #[(prompt completion-list &optional multi-word) "@:\f\"R R 7!/!/!7\n # J c؞APۏTc \"#4  \"Q! !%\"%  \"Q!!%! \"%" [t 0 nil "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" form done char string xxx help-form input-buffer echo-keystrokes cursor-in-echo-area ((byte-code "!" [input-buffer kill-buffer] 2)) get-buffer-create " *password*" erase-buffer vm-unsaved-message "%s%s" prompt vm-truncate-string buffer-size read-char (13 10) ((8 delete-char -1) (127 delete-char -1) (21 delete-region 1 (point)) (24 delete-region 1 (point)) (17 quoted-insert 1) (22 quoted-insert 1)) error-data (eval form) ((error)) confirm buffer-string " [Mismatch... try again.]" ding sit-for 2 throw return-value " [Retype to confirm...]" ""] 10)] 2 "\ Read and return a password from the minibuffer, prompting with PROMPT. Optional second argument CONFIRM non-nil means that the user will be asked to type the password a second time for confirmation and if there is a mismatch, the process is repeated. Line editing keys are: C-h, DEL rubout C-u, C-x line kill C-q, C-v literal next"]) (defalias 'vm-keyboard-read-file-name #[(prompt &optional dir default must-match initial history) "JŽŏ*" [history oldvalue ((byte-code " L‡" [history oldvalue nil] 2)) nil (byte-code " \n \f &" [read-file-name prompt dir default must-match initial history] 7) ((wrong-number-of-arguments (byte-code "J  %*  %" [history nil file file-name-history read-file-name prompt dir default must-match initial] 7)))] 3 "\ Like read-file-name, except HISTORY's value is unaltered."]) (defalias 'vm-read-file-name #[(prompt &optional dir default must-match initial history) " W , ! ! !, \n \f& G