%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\301\302!\204 \303\304\"\210\301\207" [invocation-name fboundp msdos-remember-default-colors error "%s: Loading pc-win.el but not compiled for MS-DOS"] 3)
#@71 A list of MS-DOS console colors, their indices and 16-bit RGB values.
(defvar msdos-color-values '(("black" 0 0 0 0) ("blue" 1 0 0 52480) ("green" 2 8704 35584 8704) ("cyan" 3 0 52736 53504) ("red" 4 45568 8704 8704) ("magenta" 5 35584 0 35584) ("brown" 6 40960 20992 11520) ("lightgray" 7 48640 48640 48640) ("darkgray" 8 26112 26112 26112) ("lightblue" 9 0 0 65535) ("lightgreen" 10 0 65535 0) ("lightcyan" 11 0 65535 65535) ("lightred" 12 65535 0 0) ("lightmagenta" 13 65535 0 65535) ("yellow" 14 65535 65535 0) ("white" 15 65535 65535 65535)) (#$ . 577))
(defvar default-frame-alist nil)
#@48 Initial setup of faces for the MS-DOS display.
(defalias 'msdos-face-setup #[0 "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\311\312!\210\311\313!\210\311\314!\210\300\312\310\"\210\300\313\315\"\210\316\312\317\"\210\316\313\317\"\210\316\314\304\"\207" [set-face-foreground bold "yellow" italic "red" bold-italic "lightred" underline "white" make-face msdos-menu-active-face msdos-menu-passive-face msdos-menu-select-face "lightgray" set-face-background "blue"] 3 (#$ . 1175)])
#@83 Handle the reverse-video frame parameter on MS-DOS frames.
(fn FRAME PARAMETERS)
(defalias 'msdos-handle-reverse-video #[514 "\301\236\206 \301\236A\205; \302!\303\236A\304\236A\305\236A\232\203) \306\305BC\"\210\307\236A\232\2059 \306\307BC\"\266\203\207" [default-frame-alist reverse frame-parameters foreground-color background-color mouse-color modify-frame-parameters cursor-color] 9 (#$ . 1689)])
(defalias 'msdos-setup-initial-frame #[0 "\303 \"\210\304!\210\303\n\"\210\305\306!\"\210\307!\210\310!\207" [terminal-frame default-frame-alist initial-frame-alist modify-frame-parameters msdos-remember-default-colors msdos-handle-reverse-video frame-parameters frame-set-background-mode face-set-after-frame-default] 4])
#@331 Create a frame on MS-DOS display.
Optional frame parameters PARAMETERS specify the frame parameters.
Parameters not specified by PARAMETERS are taken from
`default-frame-alist'. If either PARAMETERS or `default-frame-alist'
contains a `reverse' parameter, handle that. Value is the new frame
created.
(fn &optional PARAMETERS)
(defalias 'msdos-create-frame-with-faces #[256 "\300!\301C\302\303\304\305\306\"\307\"\310$\216\311 p\302\303\312\305\306\"\313\"\314$\216\315\316\"\210\317\320!\"\210\321\322\"\204@ \323\322\324#\210\325!\210\326!\210\324\240\210)\266)\207" [make-terminal-frame nil make-byte-code 0 "\301\242?\205 \302\300!\207" vconcat vector [delete-frame] 2 selected-frame "\302\300!\203 \303\300\304\"\210\305\301!\205 \301q\207" [frame-live-p select-frame norecord buffer-live-p] 3 select-frame norecord msdos-handle-reverse-video frame-parameters terminal-parameter terminal-initted set-terminal-parameter t frame-set-background-mode face-set-after-frame-default] 12 (#$ . 2444)])
#@78 SKIP: real doc in xfaces.c.
(fn PATTERN &optional FACE FRAME MAXIMUM WIDTH)
(defalias 'x-list-fonts #[1281 "\211\203 \211\247\203 \211\300U\203 \301C\207\302C\207" [1 "ms-dos" "no-such-font"] 7 (#$ . 3475)])
#@49 SKIP: real doc in xfns.c.
(fn &optional FRAME)
(defalias 'x-display-pixel-width #[256 "\300!\207" [frame-width] 3 (#$ . 3693)])
#@49 SKIP: real doc in xfns.c.
(fn &optional FRAME)
(defalias 'x-display-pixel-height #[256 "\300!\207" [frame-height] 3 (#$ . 3829)])
#@49 SKIP: real doc in xfns.c.
(fn &optional FRAME)
(defalias 'x-display-planes #[256 "\300\207" [4] 2 (#$ . 3967)])
#@49 SKIP: real doc in xfns.c.
(fn &optional FRAME)
(defalias 'x-display-color-cells #[256 "\300\207" [16] 2 (#$ . 4086)])
#@49 SKIP: real doc in xfns.c.
(fn &optional FRAME)
(defalias 'x-server-max-request-size #[256 "\300\207" [1000000] 2 (#$ . 4211)])
#@49 SKIP: real doc in xfns.c.
(fn &optional FRAME)
(defalias 'x-server-vendor #[256 "\300\207" ["GNU"] 2 (#$ . 4345)])
#@49 SKIP: real doc in xfns.c.
(fn &optional FRAME)
(defalias 'x-server-version #[256 "\300\207" [(1 0 0)] 2 (#$ . 4467)])
#@49 SKIP: real doc in xfns.c.
(fn &optional FRAME)
(defalias 'x-display-screens #[256 "\300\207" [1] 2 (#$ . 4592)])
#@49 SKIP: real doc in xfns.c.
(fn &optional FRAME)
(defalias 'x-display-mm-height #[256 "\300\207" [245] 2 (#$ . 4712)])
#@49 SKIP: real doc in xfns.c.
(fn &optional FRAME)
(defalias 'x-display-mm-width #[256 "\300\207" [322] 2 (#$ . 4836)])
#@49 SKIP: real doc in xfns.c.
(fn &optional FRAME)
(defalias 'x-display-backing-store #[256 "\300\207" [not-useful] 2 (#$ . 4959)])
#@49 SKIP: real doc in xfns.c.
(fn &optional FRAME)
(defalias 'x-display-visual-class #[256 "\300\207" [static-color] 2 (#$ . 5094)])
(byte-code "\300\301M\210\302\301M\207" [x-display-save-under ignore x-get-resource] 2)
#@34 SKIP: real doc in common-win.el.
(defvar x-display-name "pc" (#$ . 5318))
#@34 SKIP: real doc in common-win.el.
(defvar x-colors (mapcar 'car msdos-color-values) (#$ . 5398))
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\207" [cl-generic-define-method gui-backend-get-selection nil (_selection-symbol _target-type &context (window-system pc)) #[514 "\3001 \301 0\207\302\303\"\210\304\207" [(debug error) w16-get-clipboard-data message "w16-get-clipboard-data:%s" nil] 6 "Return the value of the current selection.\nConsult the selection. Treat empty strings as if they were unset.\n\n(fn SELECTION-SYMBOL TARGET-TYPE)"] gui-backend-selection-exists-p (selection &context (window-system pc)) #[257 "\300!\207" [w16-selection-exists-p] 3 "\n\n(fn SELECTION)"] gui-backend-selection-owner-p (selection &context (window-system pc)) #[257 "\300!\207" [w16-selection-owner-p] 3 "\n\n(fn SELECTION)"]] 6)
#@18
(fn SELECTION)
(defalias 'w16-selection-owner-p #[257 "\205+ \3021 \303 0\202 \304\305\"\210\306\262\211\204 \307\202) \211 \232\203( \211\202) \306\262\207" [select-enable-clipboard gui--last-selected-text-clipboard (debug error) w16-get-clipboard-data message "w16-get-clipboard-data: %S" nil t] 5 (#$ . 6279)])
(byte-code "\300\301\302\303\302\304%\210\305\306M\210\307\306M\210\310\306M\210\311\306M\210\312\306M\210\313\306M\207" [cl-generic-define-method gui-backend-set-selection nil (selection value &context (window-system pc)) #[514 "\211\204\f \300!\205 \301\207\3021 \303!0\202 \304\305\"\262\210\211\207" [w16-selection-owner-p t (debug error) w16-set-clipboard-data message "w16-set-clipboard-data: %S"] 6 "\n\n(fn SELECTION VALUE)"] query-fontset ignore iconify-or-deiconify-frame set-frame-font set-mouse-color set-cursor-color set-border-color] 6)
#@93 The last help message received via `show-help-function'.
This is used by `msdos-show-help'.
(defvar msdos-last-help-message nil (#$ . 7166))
#@62 The content of the echo area before help echo was displayed.
(defvar msdos-previous-message nil (#$ . 7313))
#@73 Function installed as `show-help-function' on MS-DOS frames.
(fn HELP)
(defalias 'msdos-show-help #[257 "\305 ?\205Q ?\205Q \211;\203= \306\307\310#\262 \2041 \211\311 \230\2041 \n;\203. \n\311 \230\2041 \311 \211\312\211 \313\314\"*\207 ;\203N \312\313\314 \"\210\312\211)\207\313\312!\207" [cursor-in-echo-area msdos-previous-message msdos-last-help-message message-log-max message-truncate-lines window-minibuffer-p replace-regexp-in-string "\n" ", " current-message nil message "%s"] 5 (#$ . 7428)])
#@128 Terminal initialization function for the MS-DOS "internal" terminal.
Errors out because it is not supposed to be called, ever.
(defalias 'terminal-init-internal #[0 "\300\301\302 \"\207" [error "terminal-init-internal called for window-system `%s'" window-system] 3 (#$ . 7949)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\313\314!\210\313\315!\207" [cl-generic-define-method window-system-initialization nil (&context (window-system pc) &optional _display) #[256 "\304 \305=\204
\306\307\304 \"\210\310!\210 \211@\311 \210\2031 \312@A@AA#\210A\262@\262\202 \266\313 \210\314 \210\315 \210\316\317\320\321\"\210\322\323\324\"\210\325\326 \210\327\330!\207" [terminal-frame msdos-color-values show-help-function split-window-keep-point window-system pc error "`msdos-initialize-window-system' called, but window-system is `%s'" msdos-setup-keyboard tty-color-clear tty-color-define clear-face-cache msdos-face-setup msdos-setup-initial-frame msdos-show-help add-hook after-init-hook dos-codepage-setup standard-display-8bit 127 255 t menu-bar-enable-clipboard run-hooks terminal-init-msdos-hook] 7 "Initialization function for the `pc' \"window system\".\n\n(fn &optional DISPLAY)"] frame-creation-function (params &context (window-system pc)) #[257 "\300!\207" [msdos-create-frame-with-faces] 3 "\n\n(fn PARAMS)"] handle-args-function (args &context (window-system pc)) #[257 "\300!\207" [tty-handle-args] 3 "\n\n(fn ARGS)"] provide pc-win term/pc-win] 6)
Zerion Mini Shell 1.0