;ELC ;;; compiled by jwz@thalidomide on Sun May 15 00:45:23 1994 ;;; from file /th/jwz/emacs19/lisp/prim/cmdloop.el ;;; emacs version 19.10 Lucid (beta23). ;;; 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.")) (fset 'recursion-depth #[nil " \\" [command-loop-level minibuffer-depth] 2 "\ Return the current depth in recursive edits."]) (fset 'top-level #[nil "\"" [throw top-level nil] 3 "\ Exit all recursive editing levels." nil]) (fset 'exit-recursive-edit #[nil " V\"!!" [recursion-depth 0 throw exit nil error gettext "No recursive edit is in progress"] 3 "\ Exit from the innermost recursive edit or minibuffer." nil]) (fset 'abort-recursive-edit #[nil " V\"!!" [recursion-depth 0 throw exit t error gettext "No recursive edit is in progress"] 3 "\ Abort the command that requested this recursive edit or minibuffer input." nil]) (fset 'keyboard-quit #[nil "\"" [signal quit nil] 3 "\ Signal a `quit' condition." nil]) (defvar last-error nil "\ >>>Doc.") (fset 'command-error #[(error-object) " \n !\n=\nA@!\nA@GU\nA@H!ҪӪ\"\n\" !!!*" [t nil debug-on-error inhibit-quit quit-flag standard-output standard-input executing-macro zmacs-deactivate-region discard-input error-object last-error message ding undefined-keystroke-sequence vectorp 0 button-event-p undefined-click undefined-key command-error display-error noninteractive gettext "Emacs exiting." kill-emacs -1] 5]) (fset 'describe-last-error #[nil " \" \"" ["*Help*" princ "Last error was:\n" standard-output display-error last-error] 4 "\ Redisplay the last error-message. See the variable `last-error'." nil]) (byte-code "M\"" [truncate-command-history-for-gc #[nil " \ná) \ná)" [30 command-history tail nil values] 3] add-hook pre-gc-hook] 3) (fset 'display-error #[(error-object stream) "Í) \"" [error-object type error (byte-code ": 9 N:A : At\"l) N N : @9\"m @N @N\"] AZ)ȇ" [error-object type error-conditions tail throw error nil display-error #[(error-object stream) "@A= @\" A N! \" \nʪ\" @\" Ac+" [error-object t first tail type error princ stream gettext error-message ": " ", " prin1 nil] 5]] 5) #[(error-object stream) "! \" \"" [princ gettext "Peculiar error " stream prin1 error-object] 3] stream] 3 "\ Display `error-object' on `stream' in a user-friendly way."]) (byte-code "##" [put file-error display-error #[(error-object stream) "A @ \" A\nƪ \" @ \"e*" [error-object t first tail princ stream ": " ", " nil] 3] undefined-keystroke-sequence #[(error-object stream) "\nA@! \"! \"" [princ key-description error-object stream gettext " not defined."] 3]] 4) (defvar teach-extended-commands-p nil "\ *If true, then `\\[execute-extended-command]' will teach you keybindings. Any time you execute a command with \\[execute-extended-command] which has a shorter keybinding, you will be shown the alternate binding before the command executes.") (fset 'execute-extended-command #[(prefix-arg) "=êĚŪ\":@@\"! )\nt \"   AЪ \"#$!) \"" [prefix-arg read-command - "- M-x " (4) "C-u M-x " format "%d M-x " "M-x " this-command teach-extended-commands-p where-is-internal current-local-map keys message "M-x %s (bound to key%s: %s)" "s" "" mapconcat key-description sort #[(x y) "G GW" [x y] 2] ", " sit-for 2 command-execute t] 10 "\ Read a command name from the minibuffer using 'completing-read'. Then call the specified command using 'command-execute' and return its return value. If the command asks for a prefix argument, supply the value of the current raw prefix argument, or the value of PREFIX-ARG when called from Lisp." "P"]) (fset 'y-or-n-p-minibuf #[(prompt) "! ;lj  $!*  !%\"!!!== #== #!  !%\" GU!*\n ," ["" pre gettext "(y or n) " yn nil event t inhibit-quit cursor-in-echo-area message "%s%s%s" prompt next-command-event quit-flag "%s%s%s%s" single-key-description signal quit key-press-event-p event-key key event-to-character char 121 32 "%s%sYes" 110 delete "%s%sNo" button-release-event-p ding y-or-n-p discard-input 0 "Please answer y or n. "] 8 "\ Ask user a \"y or n\" question. Return t if answer is \"y\". Takes one argument, which is the string to display to ask the question. It should end in a space; `y-or-n-p' adds `(y or n) ' to it. No confirmation of the answer is requested; a single character is enough. Also accepts Space to mean yes, or Delete to mean no."]) (fset 'yes-or-no-p-minibuf #[(prompt) "!P ; #!ȉj !lj^\" !!!I +" [prompt gettext "(yes or no) " "" ans p read-string nil t "yes" "no" ding yes-or-no-p discard-input message "Please answer yes or no." sleep-for 2] 5 "\ Ask user a yes-or-no question. Return t if answer is yes. Takes one argument, which is the string to display to ask the question. It should end in a space; `yes-or-no-p' adds `(yes or no) ' to it. The user must confirm the answer with RET, and can edit it until it has been confirmed."]) (byte-code "\"\"" [define-function yes-or-no-p yes-or-no-p-minibuf y-or-n-p y-or-n-p-minibuf] 3) (fset 'read-char #[nil " \n!\n!\n!!!\n\"\n!+" [t next-command-event event inhibit-quit event-to-character button-release-event-p error gettext "Key read has no ASCII equivalent %S" deallocate-event] 3 "\ Read a character from the command input (keyboard or macro). If a mouse click is detected, an error is signalled. The character typed is returned as an ASCII value. This is most likely the wrong thing for you to be using: consider using the `next-command-event' function instead."]) (fset 'read-quoted-char #[(&optional prompt) " W U ! \" \n$!\n\"* J X X _ Z\\ T 1 # !# V\nى ى \"-" [0 nil event char code count 3 help-form inhibit-quit prompt message gettext "%s-" next-command-event event-to-character t error "key read cannot be inserted in a buffer: %S" quit-flag 48 55 8 format "%s %c" unread-command-event 259 logand 255] 6 "\ Like `read-char', except that if the first character read is an octal digit, we read up to two more octal digits and return the character represented by the octal number consisting of those digits. Optional argument PROMPT specifies a string to use to prompt the user."]) (fset 'redraw-mode-line #[(&optional all) " q) !" [all other-buffer set-buffer-modified-p buffer-modified-p] 2 "\ Force the mode-line of the current buffer to be redisplayed. With optional non-nil ALL then force then force redisplay of all mode-lines."]) (define-function 'force-mode-line-update 'redraw-mode-line) (fset 'momentary-string-display #[(string pos &optional exit-char message) " Ɏ\nb !` V Х!!`\nV\nb!)!!\" )!=." [exit-char 32 nil buffer-modified-p buffer-file-name insert-end name modified buffer-read-only ((byte-code " |)\n !" [insert-end pos name buffer-file-name set-buffer-modified-p modified] 2)) pos insert-before-markers string window-end recenter window-height 2 move-to-window-line 0 message gettext "Type %s to continue editing." single-key-description next-command-event event event-to-character unread-command-event] 4 "\ Momentarily display STRING in the buffer at POS. Display remains until next character is typed. If the char is EXIT-CHAR (optional third arg, default is SPC) it is swallowed; otherwise it is then available as input (as a command if nothing else). Display MESSAGE (optional fourth arg) in the echo area. If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."])