;ELC ;;; compiled by jwz@thalidomide on Fri Apr 8 00:20:16 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-minibuf.el ;;; emacs version 19.10 Lucid (beta12). ;;; bytecomp version 2.23; 22-dec-93. ;;; 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.")) (fset 'vm-minibuffer-complete-word #[nil "`mg>xmu`w`x`b { !P\n\"\" \"  O\"Sl O) =A=! bc! G GZV b [OcA?c U!\"\"! b ! c!." [nil completion word-prefix-regexp word diff end beg 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 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]"] 9 nil nil]) (fset '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."]) (fset 'vm-minibuffer-show-completions #[(list) "!qp!p\" c  @G] T Ao\\ !Z  UѪ\\ \nU\n_B\nSm @c\nT A\n Ucg )]eb. " [nil w i q list-length columns rows longest tab-stops get-buffer-create " *Completions*" display-buffer vm-get-buffer-window t erase-buffer "Possible completions are:\n" list 0 3 window-width 2 1 tab-stop-list "\n" tab-to-tab-stop] 9 "\ Display LIST in a multi-column listing in the \" *Completions*\" buffer. LIST should be a list of strings."]) (byte-code "MMM" [vm-minibuffer-completion-help #[nil "`mg>xmu`w`x`b {\n!P  \" \" !!." [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-read-string #[(prompt completion-list &optional multi-word) " !\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 read-string prompt] 4] vm-read-number #[(prompt) " !\"v !)" [nil result string-match "^[ ]*-?[0-9]+" read-string prompt string-to-int] 4]] 2) (fset 'vm-read-password #[(prompt &optional confirm) "" [return-value (byte-code "‰‰ \n  ͎!\nq  \"# >؞Aۏc \"#U  \"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 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"])