;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\301\302\207" [top-level (normal-top-level) nil] 1)#@47 Non-nil once command line has been processed. (defvar command-line-processed nil (#$ . 148)) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\316\317&\210\320\321\322\"\210\320\323\322\"\210\306\322\310\311\324DD\325\314\326%\207" [custom-declare-group initialization nil "Emacs start-up procedure." :group environment custom-declare-variable initial-buffer-choice funcall function #[0 "\300\207" [nil] 1 #1=""] "Buffer to show after starting Emacs.\nIf the value is nil and `inhibit-startup-screen' is nil, show the\nstartup screen. If the value is a string, switch to a buffer\nvisiting the file or directory that the string specifies. If the\nvalue is a function, call it with no arguments and switch to the buffer\nthat it returns. If t, open the `*scratch*' buffer.\n\nWhen `initial-buffer-choice' is non-nil, the startup screen is\ninhibited.\n\nIf you use `emacsclient' with no target file, then it obeys any\nstring or function value that this variable has." :type (choice (const :tag "Startup screen" nil) (directory :tag "Directory" :value "~/") (file :tag "File" :value "~/.emacs") (const :tag "Remember Mode notes buffer" remember-notes) (function :tag "Function") (const :tag "Lisp scratch buffer" t)) :version "23.1" defvaralias inhibit-splash-screen inhibit-startup-screen inhibit-startup-message #[0 "\300\207" [nil] 1 #1#] "Non-nil inhibits the startup screen.\n\nThis is for use in your personal init file (but NOT site-start.el),\nonce you are familiar with the contents of the startup screen." boolean] 8) (defvar startup-screen-inhibit-startup-screen nil) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\313%\207" [custom-declare-variable inhibit-startup-echo-area-message funcall function #[0 "\300\207" [nil] 1 #1=""] "Non-nil inhibits the initial startup echo area message.\n\nThe startup message is in the echo area as it provides information\nabout GNU Emacs and the GNU system in general, which we want all\nusers to see. As this is the least intrusive startup message,\nthis variable gets specialized treatment to prevent the message\nfrom being disabled site-wide by systems administrators, while\nstill allowing individual users to do so.\n\nSetting this variable takes effect only if you do it with the\ncustomization buffer or if your init file contains a line of this\nform:\n (setq inhibit-startup-echo-area-message \"YOUR-USER-NAME\")\nIf your init file is byte-compiled, use the following form\ninstead:\n (eval \\='(setq inhibit-startup-echo-area-message \"YOUR-USER-NAME\"))\nThus, someone else using a copy of your init file will see the\nstartup message unless he personally acts to inhibit it." :type (choice (const :tag "Don't inhibit") (string :tag "Enter your user name, to inhibit")) inhibit-default-init #[0 "\300\207" [nil] 1 #1#] "Non-nil inhibits loading the `default' library." boolean inhibit-startup-buffer-menu #[0 "\300\207" [nil] 1 #1#] "Non-nil inhibits display of buffer list when more than 2 files are loaded."] 6)#@232 Alist of command-line switches. Elements look like (SWITCH-STRING . HANDLER-FUNCTION). HANDLER-FUNCTION receives the switch string as its sole argument; the remaining command-line args are in the variable `command-line-args-left'. (defvar command-switch-alist nil (#$ . 3232)) (byte-code "\300\301\302\303#\210\304\301!\207" [defvaralias argv command-line-args-left "List of command-line args not yet processed.\nThis is a convenience alias, so that one can write (pop argv)\ninside of --eval command line arguments in order to access\nfollowing arguments." internal-make-var-non-special] 4)#@46 List of command-line args not yet processed. (defvar command-line-args-left nil (#$ . 3829))#@32 Current command-line argument. (defvar argi nil (#$ . 3927)) (internal-make-var-non-special 'argi)#@398 List of functions to process unrecognized command-line arguments. Each function should access the dynamically bound variables `argi' (the current argument) and `command-line-args-left' (the remaining arguments). The function should return non-nil only if it recognizes and processes `argi'. If it does so, it may consume successive arguments by altering `command-line-args-left' to remove them. (defvar command-line-functions nil (#$ . 4032))#@122 Default directory to use for command line arguments. This is normally copied from `default-directory' when Emacs starts. (defvar command-line-default-directory nil (#$ . 4483))#@446 Alist of X Windows options. Each element has the form (NAME NUMARGS HANDLER FRAME-PARAM VALUE) where NAME is the option name string, NUMARGS is the number of arguments that the option accepts, HANDLER is a function to call to handle the option. FRAME-PARAM (optional) is the frame parameter this option specifies, and VALUE is the value which is given to that frame parameter (most options use the argument for this, so VALUE is not present). (defconst command-line-x-option-alist '(("-bw" 1 x-handle-numeric-switch border-width) ("-d" 1 x-handle-display) ("-display" 1 x-handle-display) ("-name" 1 x-handle-name-switch) ("-title" 1 x-handle-switch title) ("-T" 1 x-handle-switch title) ("-r" 0 x-handle-switch reverse t) ("-rv" 0 x-handle-switch reverse t) ("-reverse" 0 x-handle-switch reverse t) ("-reverse-video" 0 x-handle-switch reverse t) ("-fn" 1 x-handle-switch font) ("-font" 1 x-handle-switch font) ("-fs" 0 x-handle-initial-switch fullscreen fullboth) ("-fw" 0 x-handle-initial-switch fullscreen fullwidth) ("-fh" 0 x-handle-initial-switch fullscreen fullheight) ("-mm" 0 x-handle-initial-switch fullscreen maximized) ("-ib" 1 x-handle-numeric-switch internal-border-width) ("-g" 1 x-handle-geometry) ("-lsp" 1 x-handle-numeric-switch line-spacing) ("-geometry" 1 x-handle-geometry) ("-fg" 1 x-handle-switch foreground-color) ("-foreground" 1 x-handle-switch foreground-color) ("-bg" 1 x-handle-switch background-color) ("-background" 1 x-handle-switch background-color) ("-ms" 1 x-handle-switch mouse-color) ("-nbi" 0 x-handle-switch icon-type nil) ("-iconic" 0 x-handle-iconic) ("-xrm" 1 x-handle-xrm-switch) ("-cr" 1 x-handle-switch cursor-color) ("-vb" 0 x-handle-switch vertical-scroll-bars t) ("-hb" 0 x-handle-switch horizontal-scroll-bars t) ("-bd" 1 x-handle-switch) ("--border-width" 1 x-handle-numeric-switch border-width) ("--display" 1 x-handle-display) ("--name" 1 x-handle-name-switch) ("--title" 1 x-handle-switch title) ("--reverse-video" 0 x-handle-switch reverse t) ("--font" 1 x-handle-switch font) ("--fullscreen" 0 x-handle-initial-switch fullscreen fullboth) ("--fullwidth" 0 x-handle-initial-switch fullscreen fullwidth) ("--fullheight" 0 x-handle-initial-switch fullscreen fullheight) ("--maximized" 0 x-handle-initial-switch fullscreen maximized) ("--internal-border" 1 x-handle-numeric-switch internal-border-width) ("--geometry" 1 x-handle-geometry) ("--foreground-color" 1 x-handle-switch foreground-color) ("--background-color" 1 x-handle-switch background-color) ("--mouse-color" 1 x-handle-switch mouse-color) ("--no-bitmap-icon" 0 x-handle-no-bitmap-icon) ("--iconic" 0 x-handle-iconic) ("--xrm" 1 x-handle-xrm-switch) ("--cursor-color" 1 x-handle-switch cursor-color) ("--vertical-scroll-bars" 0 x-handle-switch vertical-scroll-bars t) ("--line-spacing" 1 x-handle-numeric-switch line-spacing) ("--border-color" 1 x-handle-switch border-color) ("--smid" 1 x-handle-smid) ("--parent-id" 1 x-handle-parent-id)) (#$ . 4666))#@439 Alist of NS options. Each element has the form (NAME NUMARGS HANDLER FRAME-PARAM VALUE) where NAME is the option name string, NUMARGS is the number of arguments that the option accepts, HANDLER is a function to call to handle the option. FRAME-PARAM (optional) is the frame parameter this option specifies, and VALUE is the value which is given to that frame parameter (most options use the argument for this, so VALUE is not present). (defconst command-line-ns-option-alist '(("-NSAutoLaunch" 1 ns-ignore-1-arg) ("-NXAutoLaunch" 1 ns-ignore-1-arg) ("-macosx" 0 ignore) ("-NSHost" 1 ns-ignore-1-arg) ("-_NSMachLaunch" 1 ns-ignore-1-arg) ("-MachLaunch" 1 ns-ignore-1-arg) ("-NXOpen" 1 ns-ignore-1-arg) ("-NSOpen" 1 ns-handle-nxopen) ("-NXOpenTemp" 1 ns-ignore-1-arg) ("-NSOpenTemp" 1 ns-handle-nxopentemp) ("-GSFilePath" 1 ns-handle-nxopen) ("-name" 1 x-handle-name-switch) ("-title" 1 x-handle-switch title) ("-T" 1 x-handle-switch title) ("-r" 0 x-handle-switch reverse t) ("-rv" 0 x-handle-switch reverse t) ("-reverse" 0 x-handle-switch reverse t) ("-fn" 1 x-handle-switch font) ("-font" 1 x-handle-switch font) ("-ib" 1 x-handle-numeric-switch internal-border-width) ("-g" 1 x-handle-geometry) ("-geometry" 1 x-handle-geometry) ("-fg" 1 x-handle-switch foreground-color) ("-foreground" 1 x-handle-switch foreground-color) ("-bg" 1 x-handle-switch background-color) ("-background" 1 x-handle-switch background-color) ("-itype" 0 x-handle-switch icon-type t) ("-i" 0 x-handle-switch icon-type t) ("-iconic" 0 x-handle-iconic icon-type t) ("-cr" 1 x-handle-switch cursor-color) ("-vb" 0 x-handle-switch vertical-scroll-bars t) ("-hb" 0 x-handle-switch horizontal-scroll-bars t) ("-bd" 1 x-handle-switch) ("--name" 1 x-handle-name-switch) ("--title" 1 x-handle-switch title) ("--reverse-video" 0 x-handle-switch reverse t) ("--font" 1 x-handle-switch font) ("--internal-border" 1 x-handle-numeric-switch internal-border-width) ("--foreground-color" 1 x-handle-switch foreground-color) ("--background-color" 1 x-handle-switch background-color) ("--mouse-color" 1 x-handle-switch mouse-color) ("--icon-type" 0 x-handle-switch icon-type t) ("--iconic" 0 x-handle-iconic) ("--cursor-color" 1 x-handle-switch cursor-color) ("--vertical-scroll-bars" 0 x-handle-switch vertical-scroll-bars t) ("--border-color" 1 x-handle-switch border-width)) (#$ . 7642))#@78 Normal hook run after handling urgent options but before loading init files. (defvar before-init-hook nil (#$ . 9999))#@385 Normal hook run after initializing the Emacs session. It is run after Emacs loads the init file, `default' library, the abbrevs file, and additional Lisp packages (if any), and setting the value of `after-init-time'. There is no `condition-case' around the running of this hook; therefore, if `debug-on-error' is non-nil, an error in one of these functions will invoke the debugger. (defvar after-init-hook nil (#$ . 10124))#@73 Normal hook run after loading init files and handling the command line. (defvar emacs-startup-hook nil (#$ . 10555))#@284 Normal hook run immediately after `emacs-startup-hook'. In new code, there is no reason to use this instead of `emacs-startup-hook'. If you want to execute terminal-specific Lisp code, for example to override the definitions made by the terminal-specific file, see `tty-setup-hook'. (defvar term-setup-hook nil (#$ . 10678)) (make-obsolete-variable 'term-setup-hook "use either `emacs-startup-hook' or `tty-setup-hook' instead." "24.4")#@162 Non-nil means don't run some startup hooks, because we already did. Currently this applies to: `emacs-startup-hook', `term-setup-hook', and `window-setup-hook'. (defvar inhibit-startup-hooks nil (#$ . 11121))#@193 File name, including directory, of user's early init file. See `user-init-file'. The only difference is that `early-init-file' is not set during the course of evaluating the early init file. (defvar early-init-file nil (#$ . 11336))#@192 The brand of keyboard you are using. This variable is used to define the proper function and keypad keys for use under X. It is used in a fashion analogous to the environment variable TERM. (defvar keyboard-type nil (#$ . 11576)) (byte-code "\300\301\302\303#\210\304\301!\207" [make-obsolete-variable keyboard-type nil "28.1" internal-make-var-non-special] 4)#@414 Normal hook run after loading init files and handling the command line. This is very similar to `emacs-startup-hook'. The only difference is that this hook runs after frame parameters have been set up in response to any settings from your init file. Unless this matters to you, use `emacs-startup-hook' instead. (The name of this hook is due to historical reasons, and does not reflect its purpose very well.) (defvar window-setup-hook nil (#$ . 11944)) (byte-code "\300\301\302\303\304DD\305\306\303%\207" [custom-declare-variable initial-major-mode funcall function #[0 "\300\207" [lisp-interaction-mode] 1 ""] "Major mode command symbol to use for the initial `*scratch*' buffer." :type] 6)#@613 Identity of user whose init file is or was read. The value is nil if `-q' or `--no-init-file' was specified, meaning do not load any init file. Otherwise, the value may be an empty string, meaning use the init file for the user who originally logged in, or it may be a string containing a user's name meaning use that person's init file. In either of the latter cases, `(concat "~" init-file-user "/")' evaluates to the name of the directory where the init file was looked for. Setting `init-file-user' does not prevent Emacs from loading `site-start.el'. The only way to do that is to use `--no-site-file'. (defvar init-file-user nil (#$ . 12647)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314\315\316\317#\210\300\320\302\303\321DD\322\306\323\324\325&\210\300\326\302\303\327DD\330\310\331\332\333\306\334\324\325& \210\300\335\302\303\336DD\337\310\331\306\340\324\341& \207" [custom-declare-variable site-run-file funcall function #[0 "\300\301!\207" [purecopy "site-start"] 2 #1=""] "File containing site-wide run-time initializations.\nThis file is loaded at run-time before `user-init-file'. It contains\ninits that need to be in place for the entire site, but which, due to\ntheir higher incidence of change, don't make sense to put into Emacs's\ndump file. Thus, the run-time load order is: 1. file described in\nthis variable, if non-nil; 2. `user-init-file'; 3. `default.el'.\n\nDon't use the `site-start.el' file for things some users may not like.\nPut them in `default.el' instead, so that users can more easily\noverride them. Users can prevent loading `default.el' with the `-q'\noption or by setting `inhibit-default-init' in their own init files,\nbut inhibiting `site-start.el' requires `--no-site-file', which\nis less convenient.\n\nThis variable is defined for customization so as to make\nit visible in the relevant context. However, actually customizing it\nis not allowed, since it would not work anyway. The only way to set\nthis variable usefully is to set it while building and dumping Emacs." :type (choice (const :tag "none" nil) string) :initialize custom-initialize-default :set #[514 "\300\301!\207" [error "Customizing `site-run-file' does not work"] 4 "\n\n(fn VARIABLE VALUE)"] make-obsolete-variable system-name "use (system-name) instead" "25.1" mail-host-address #[0 "\300\207" [nil] 1 #1#] "The name of this machine, for use in constructing email addresses.\nIf this is nil, Emacs uses `system-name'." (choice (const nil) string) :group mail user-mail-address #[0 "\301\302!\206\303 \304\206\305 Q\207" [mail-host-address getenv "EMAIL" user-login-name "@" system-name] 3 #1#] "The email address of the current user.\nThis defaults to either: the value of EMAIL environment variable; or\nuser@host, using `user-login-name' and `mail-host-address' (or `system-name')." custom-initialize-delay :set-after (mail-host-address) string auto-save-list-file-prefix #[0 "\302=\203\n \303P\207 \304P\207" [system-type user-emacs-directory ms-dos "auto-save.list/_s" "auto-save-list/.saves-"] 2 #1#] "Prefix for generating `auto-save-list-file-name'.\nThis is used after reading your init file to initialize\n`auto-save-list-file-name', by appending Emacs's pid and the system name,\nif you have not already set `auto-save-list-file-name' yourself.\nDirectories in the prefix will be created if necessary.\nSet this to nil if you want to prevent `auto-save-list-file-name'\nfrom being initialized." (choice (const :tag "Don't record a session's auto save list" nil) string) auto-save] 12) (defvar emacs-basic-display nil) (defvar init-file-debug nil)#@61 Non-nil if there was an error loading the user's init file. (defvar init-file-had-error nil (#$ . 16277)) (defvar normal-top-level-add-subdirs-inode-list nil) (defvar no-blinking-cursor nil)#@50 Non-nil if building Emacs overflowed pure space. (defvar pure-space-overflow nil (#$ . 16473)) (defvar pure-space-overflow-message (purecopy "Warning Warning!!! Pure space overflow !!!Warning Warning\n(See the node Pure Storage in the Lisp manual for details.)\n")) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable tutorial-directory funcall function #[0 "\301\302\303\"!\207" [data-directory file-name-as-directory expand-file-name "tutorials"] 4 ""] "Directory containing the Emacs TUTORIAL files." :group installation :type directory :initialize custom-initialize-delay] 10)#@279 Recursively add all subdirectories of `default-directory' to `load-path'. More precisely, this uses only the subdirectories whose names start with letters or digits; it excludes any subdirectory named `RCS' or `CVS', and any subdirectory that contains a file named `.nosearch'. (defalias 'normal-top-level-add-subdirs-to-load-path #[0 "\302\211C\211\203v\211A\262\242B\262@\303!\304\305!\205\"\305!\211\206.\306!\307\233\262\262 \235\204p B\211\203o\211@\310\311\"\203h\211\312\235\204h\313!\203h\314!\315\314\316\"!\204gC\244\262\210A\266\202\202;\210)\266\202\317\237A!\207" [default-directory normal-top-level-add-subdirs-inode-list nil directory-files fboundp w32-untranslated-canonical-name file-attributes 10 string-match "\\`[[:alnum:]]" ("RCS" "CVS" "rcs" "cvs") file-directory-p expand-file-name file-exists-p ".nosearch" normal-top-level-add-to-load-path] 13 (#$ . 17108)])#@274 This function is called from a subdirs.el file. It assumes that `default-directory' is the directory in which the subdirs.el file exists, and it adds to `load-path' the subdirs of that directory as specified in DIRS. Normally the elements of DIRS are relative. (fn DIRS) (defalias 'normal-top-level-add-to-load-path #[257 "\303 !\203*A\203*\211@\232\204*\n\304>\203#\211\227@\227\232\204*A\262\202\2059\305\306\307\"A\"\241\207" [load-path default-directory system-type directory-file-name (ms-dos windows-nt) append mapcar expand-file-name] 8 (#$ . 18039)]) (defconst startup--xdg-config-default "~/.config/emacs/")#@26 (fn XDG-DIR USER-NAME) (defalias 'startup--xdg-or-homedot #[514 "\302\303=\203\f\304\202 \305Q\306!\204?\307=\203,\310\302P!\203@\311\302P\312\313#\202<\306\302 \303=\2039\314\202:\315Q!\203@\207\306!\203H\207\207" [system-type init-file-user "~" ms-dos "/_emacs.d/" "/.emacs.d/" file-exists-p windows-nt file-directory-p directory-files nil "\\`[._]emacs\\(\\.elc?\\)?\\'" "/_emacs" "/.emacs"] 8 (#$ . 18683)])#@61 Require the native compiler avoiding circular dependencies. (defalias 'startup--require-comp-safely #[0 "\302\303!\205\304\305\306!)\210\307 \304\310#\210\304\211\207" [comp--compilable comp--delayed-sources featurep native-compile nil require comp native--compile-async late] 4 (#$ . 19121)])#@53 Honor pending delayed deferred native compilations. (defalias 'startup--honor-delayed-native-compilations #[0 "\302 \203\f\203\f\303 \210\304\211\207" [comp--delayed-sources comp--compilable native-comp-available-p startup--require-comp-safely t] 2 (#$ . 19424)])#@48 Original value of `native-comp-eln-load-path'. (defvar startup--original-eln-load-path nil (#$ . 19697))#@492 Redirect the user's eln-cache directory to CACHE-DIRECTORY. CACHE-DIRECTORY must be a single directory, a string. This function destructively changes `native-comp-eln-load-path' so that its first element is CACHE-DIRECTORY. If CACHE-DIRECTORY is not an absolute file name, it is interpreted relative to `user-emacs-directory'. For best results, call this function in your early-init file, so that the rest of initialization and package loading uses the updated value. (fn CACHE-DIRECTORY) (defalias 'startup-redirect-eln-cache #[257 "A\302\303! \"B\211\207" [native-comp-eln-load-path user-emacs-directory expand-file-name file-name-as-directory] 4 (#$ . 19808)])#@65 Update the user eln-cache directory due to user customizations. (defalias 'startup--update-eln-cache #[0 " \232\205\302\303!\210\304!\211\207" [native-comp-eln-load-path startup--original-eln-load-path startup-redirect-eln-cache "eln-cache" copy-sequence] 2 (#$ . 20484)])#@204 Emacs calls this function when it first starts up. It sets `command-line-processed', processes the command-line, reads the initialization files, etc. It is the default value of the variable `top-level'. (defalias 'normal-top-level #[0 "\203 \306 !\210\2020\307\310\311!\211\203\211\312P\202\n\262\313 \314\"\315\316!\203c\317 \2043\314\211@\320\321!\211\203Y\322A\"\211\203X\211@\211\323\230\204Q\211(B(A\266\202\202?\210\210\324\325\f\"(B(B\324\326C\"\314\203\233@\262\211D\327\324\330!\307\211\211$)\210\331\"\204\224\211D\327\324\332!\307\211\211$)\210A\262\202k\266E\333>\203\255\334F\335G\202\263\336H\335G\337\314!\210I\203\\E\340=\203\307\341\202\311I\212\342 \211\203\377\211@\211q\210D\203\370E\340=\203\360\343D\307#\324\211\"\262\202\366\343D\307#DA\266\202\202\314)\210\344\211\203\"\211@\211J\211<\203\345\346\347\"\"L\210\210A\266\202\202\210\315\316!\203;\350J\345\346\351\"\"(\210\352(!J\353\211\203Z\211@\211J\211;\203R\343\307#L\210\210A\266\202\202<\266Dr\354q\210\355 \210\211\206l\324\356!D)\210\357\360\361\362\360!C#\210\320\363!\211\203\247D\203\236\3641\231\365\366!!\365\366D!!\2320\202\233\210\314\204\247\367\370PK\"K\210L<\203\306E\340=\203\271\341\202\273I\345\346\371\"L\"L\210D\203\324\372D!D\202\331\373\374\375\"\210M\346\376\"\216\377 )\266\201O\201P\201Q\"\210\201R\314\201S\"\211;\203\201TP\262\202%N\211\203$\211@\201U\201V\"\203\211\262A\266\202\202 \210\211\203/\367K\"\210\210\201W \207" [command-line-processed internal--top-level-message startup--xdg-config-default startup--xdg-config-home-emacs user-emacs-directory native-comp-jit-compilation message t getenv-internal "XDG_CONFIG_HOME" "/emacs/" startup--xdg-or-homedot nil featurep native-compile native-comp-available-p getenv "EMACSNATIVELOADPATH" split-string "" expand-file-name "eln-cache/" "../lisp" load "subdirs.el" string-prefix-p "leim-list.el" (ms-dos windows-nt) "(Unix)" "(Mac)" "(DOS)" set-locale-environment windows-nt utf-8 buffer-list decode-coding-string (load-path exec-path) mapcar make-closure #[257 "\301\300\302#\207" [V0 decode-coding-string t] 5 "\n\n(fn DIR)"] native-comp-eln-load-path #[257 "\301\302\300\303#!\207" [V0 expand-file-name decode-coding-string t] 6 "\n\n(fn DIR)"] copy-sequence (data-directory doc-directory exec-directory installation-directory invocation-directory invocation-name source-directory shared-game-score-directory) "*Messages*" messages-buffer-mode "~/" put user-full-name standard-value default-value "PWD" (error) file-attributes file-name-as-directory delete "PWD=" #[257 "\301\300\302#\207" [V0 decode-coding-string t] 5 "\n\n(fn DIR)"] abbreviate-file-name display-warning initialization "Error setting default-directory" #[0 " \203\306 !\n\2042 \2032\f\307=\203'\310\311 !\312\"\210\313\314 !!\315P\2021\314\316\317 \320 \321 $! \204;\322\323\324\"\210&\204Q'\203Q(\204Q'\325=\203\207\326 \203s)\300=\204s\327\330\331\332\333\"!)\334#\203s\335\332\336\333\337 $\210\340\341!\203|\341 \210\340\342!\203\207\342\343 !\210\340\344!\203\220\344 \210 ?\205\230\322\345!\207" [V0 default-directory auto-save-list-file-name auto-save-list-file-prefix system-type inhibit-startup-hooks abbreviate-file-name ms-dos make-directory file-name-directory t make-temp-name expand-file-name "~" format "%s%d-%s~" emacs-pid system-name run-hooks emacs-startup-hook term-setup-hook pc display-multi-font-p assoc font-xlfd-name face-attribute default :font string-match-p set-face-attribute nil font-spec fboundp frame-notice-user-settings frame-set-background-mode selected-frame font-menu-add-default window-setup-hook frame-initial-frame initial-window-system noninteractive face-font-rescale-alist] 6] command-line native-comp-enable-subr-trampolines path-separator load-path data-directory default-directory system-type eol-mnemonic-unix eol-mnemonic-mac eol-mnemonic-dos locale-coding-system startup--original-eln-load-path process-environment charset-map-path face-font-rescale-alist initial-environment setenv "TERM" "dumb" frame-parameter display "DISPLAY=" string-match "\\`DISPLAY=" startup--honor-delayed-native-compilations] 10 (#$ . 20768)]) (defconst tty-long-option-alist '(("--name" . "-name") ("--title" . "-T") ("--reverse-video" . "-reverse") ("--foreground-color" . "-fg") ("--background-color" . "-bg") ("--color" . "-color")))#@45 Height in pixels of images in the tool-bar. (defconst tool-bar-images-pixel-height 24 (#$ . 25244)) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\307\304\310%\210\300\311\302\311\312\304#\313#\210\306\311\304\312\304\314%\207" [defalias handle-args-function cl-generic-define (args) nil "Method for processing window-system dependent command-line arguments.\nWindow system startup files should add their own function to this\nmethod, which should parse the command line arguments. Those\npertaining to the window system should be processed and removed\nfrom the returned command line.\n\n(fn ARGS)" cl-generic-define-method (args &context (window-system nil)) #[257 "\300!\207" [tty-handle-args] 3 "\n\n(fn ARGS)"] window-system-initialization (&optional _display) "Method for window-system initialization.\nWindow-system startup files should add their own implementation\nto this method. The function should initialize the window system environment\nto prepare for opening the first frame (e.g. open a connection to an X server).\n\n(fn &optional DISPLAY)" #[256 "\300\207" [nil] 2 "\n\n(fn &optional DISPLAY)"]] 6)#@81 Handle the X-like command-line arguments "-fg", "-bg", "-name", etc. (fn ARGS) (defalias 'tty-handle-args #[257 "\305\203@\306\232\204\211A\262\242\211\305\211\307\310\"\203)\311\225\305O\262\312\313\"\307\314\"\203c\315 \"\262\211\316=\203E\317 \"A\202c\211;\203^\317 \"\211\204W\320\321\"\210\211A\210\202c\305\262\322\267\202\371\323\206t\211A\262\242B\nB\202\376\324\206\206\211A\262\242B\nB\202\376\204\231\211A\262\242\262\325;\203\243\202\303\316\305\326\f!\262\307\327\"\211\262\203\277\330I\210\202\254)\266\202B\nB\202\376\331\nB\202\376\204\330\332\262\333\247\203\342\202\362\307\334\"\203\357\335!\202\362\336!B\nB\202\376B\262)\266\202\211\237\244\207" [argi tty-long-option-alist default-frame-alist case-fold-search invocation-name nil "--" string-match "^\\(--[^=]*\\)=" 0 match-string 1 "^--" try-completion t assoc error "Option `%s' is ambiguous" #s(hash-table size 10 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("-fg" 105 "-foreground" 105 "-bg" 123 "-background" 123 "-T" 141 "-name" 141 "-r" 202 "-rv" 202 "-reverse" 202 "-color" 209)) foreground-color background-color title copy-sequence "[.*]" 45 (reverse . t) 8 tty-color-mode "-?[0-9]+" string-to-number intern] 12 (#$ . 26382)])#@266 If needed, display ASCII approximations to curved quotes. Do this by modifying `standard-display-table'. Optional STYLE specifies the desired quoting style, as in `text-quoting-style'. If STYLE is nil, display appropriately for the terminal. (fn &optional STYLE) (defalias 'startup--setup-quote-display #[256 "\211\301\236\211\203\f\211A\202\302\303\304\"\262\304\204\305\305\304\306 \"\250\203V\307\304\310\"\262\310\211\311W\203U\305\304\312W\2039\202>\313\312ZH\"\310X\203MHTI\210\210\211T\262\202'\210\310\211\314W\203\304\315H\316H\317H\320H\314_\203\242\305\304\"\305\304\"\310X\205\235\310X\205\235\262\262H\321U\205\235H\321U\266\202\202\253\322!\203\256\322!\204\273I\210TI\210\266\211T\262\202W\210\310\211\303W\205\375\313HH\211\203\353\206\336\323 \211\324\325\326\"!I\266\202\366\203\364\304I\210\266\211T\262\202\306\207" [standard-display-table ((grave . "`'\"\"") (straight . "''\"\"")) make-vector 4 nil internal-char-font max-char make-char-table 0 132 128 "‘’“”" 2 "‘“" "’”" "`\"" "'\"" 1 char-displayable-p make-display-table vector make-glyph-code homoglyph] 13 (#$ . 27712)])#@611 Load a user init-file. FILENAME-FUNCTION is called with no arguments and should return the name of the init-file to load. If this file cannot be loaded, and ALTERNATE-FILENAME-FUNCTION is non-nil, then it is called with no arguments and should return the name of an alternate init-file to load. If LOAD-DEFAULTS is non-nil, then load default.el after the init-file, unless `inhibit-default-init' is non-nil. This function sets `user-init-file' to the name of the loaded init-file, or to a default value if loading is not possible. (fn FILENAME-FUNCTION &optional ALTERNATE-FILENAME-FUNCTION LOAD-DEFAULTS) (defalias 'startup--load-user-init-file #[769 "\306\211\307=\203\f\310\202 \307\211\3111\344 \205\337 \307\211\2035\312\313!\314\232\2030\315!\2021\316\317#\210\f\307=\203\\\203\\ \204H\211\262\313!\314\232\203U\315!\262\312\316\317#\266\f\307=\203d\211\210\313\f!\320\232\203\246\315\f!\211\321P\322!\203}\211\202\210\322!\203\207\202\210\306\262\203\241\323\f\"\203\237\324\325\f#\210\326\327!\210\266\202\314\313\f!\330\232\203\314\331\305!\203\314\332\333\f! \"\211\203\302\202\314\324\334\f\"\210\326\327!\266\205\337)?\205\337\306*\312\335\316\317#)0\210\202 \336\337\340\341\f@\342NA\203\367\343\202\370\344\345\346 A\347#%\350#\210\307\211+\266\n=\204\307\262\n\262)\205\211)\207" [init-file-debug inhibit-null-byte-detection debug-on-error init-file-user user-init-file comp-eln-to-el-h nil t startup (debug error) load file-name-extension "el" file-name-sans-extension noerror nomessage "elc" ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "eln" boundp gethash file-name-nondirectory "Warning: unknown source file for init file %S" "default" display-warning initialization format-message "An error occurred while loading `%s':\n\n%s%s%s\n\nTo ensure normal operation, you should investigate and remove the\ncause of the error in your initialization file. Start Emacs with\nthe `--debug-init' option to view a complete error backtrace." error-message ": " "" mapconcat #[257 "\300\301\"\207" [prin1-to-string t] 4 "\n\n(fn S)"] ", " :warning inhibit-default-init inhibit-startup-screen init-file-had-error] 18 (#$ . 28920)])#@70 Directory where Emacs's own *.el and *.elc Lisp files are installed. (defvar lisp-directory nil (#$ . 31195))#@99 A subroutine of `normal-top-level'. Amongst another things, it parses the command-line arguments. (defalias 'command-line #[0 "\306C\306C\307 \306\n\306\310\311!\211\203)\211\312\267\210\202*\313\210\202*\306\210\202*\314\210\315\316@\317 #\211\204h\320\321\322A\"B\323\324!\210\325 \210\310\326!\203R\323\327!\210\325 \210\330!\204b\323\331\332\"!\210\325 \210)\266\202w\333\334!!C\335\336D\"D\210E\211\203\216\211\337@F\313#\240\210\211A\262\202y\210\306EA\306G?\205\234\340 \211H\203\255H\341 \232\203\255\342H\204\356\203\356\343\211A\262\242\211I\306\344\345I\"\203\327I\346\225\306O\262\347\350I\"I\344\351\"\203\352I\"\211\313=\203\364I\350\306OI\210\202\211;\203\353\"\211\204\354\355I\"\210\211@\350\306OI\266\202\306\262I\210I\356\232\203'\306H\313GI\357\267\202\325I\211A\262\242D\262\202\336\306\211H1\313J\360\361\362\363#\210\202\336\313J\202\336\313\211KL\364MBM\202\336\306H\202\336\211\206s\211A\262\242\211N;\203\204\365\321N \"!\202\206NN\306\262\202\336\211\206\230\211A\262\242H\306\262\202\336\3061\360\361\362\366#\210\202\336\313O\202\336\313P\202\336\367MBM\202\336\313K\202\336\211\204\317A\262\306\262\202\336IB\262\313\262\211\203\350\354\370I\"\210)\266\202\255\211\203\370\371\"\262E\203E\241\210\266\306QR<\203\372\373\374R!\"\210)\313RH\203o\344\375H\"\2037\376\377\331\201qH\"\201r#\210\202o\201s\321S\201t>\203J\201u\202P\201uHP!!\204o\376\377\331\201vH\342\232\203g\341 \202iH\"\201r#\210T\240\210\211HG\346U\204\215\242N=\203\222\242U=\204\222N\202\246\201uH\201wQ\240\210\201x\242H\"\240\210\201y\201z\201{\"!\210VW\201|\201}!\203\310\201~ \210V\203HX\203H\201\201Y!\203\341Y\204H\201\2002@Z[B\211\211\205;\211@\201s!\2034\201\201!\211\2033\211@\321\"\201s!\205\201\202\321\201\203!\"!\262\203,\201\204\201\200\313\"\210A\266\202\202\210A\266\202\202\355\262\2620\203H\201\205 \210\201\2061\232G?\205\225\\\203v\201|\201\207\201\210\\!\201\211P!!\204v\354\201\212\\\"\210\\]\201\213E!)E\\]\201\214 )\210\360\\\201\215\313#0\210\202\374\323@\354=\203\256\201\216\201\217A\"\202\354\201\220@\201\221N>\203\324\331\201\222A@\201\223\201\224AA\201\225##\202\354\331\201\222@\201\226N\201\223\201\227A\201\225##\320\"\210\325\320!\210\306\\\201\230 \266\201\231\201\232!\210\201\233 \204#G\204L\203\306\211^_\306`\201\234 \210\201\235\201\236!\2037G\2047\201\237 \210G\204D\201\240 \210\313a\201\241 \210\\\201\242=\204W\201\243 \210bc1\203ndd\201\2441\313\211#)\210\201y\201z\201\245#\201z\201\246\"\313#\210\201|\201}!\203\226\201~ \210e\203\255f\203\255r\201\247 q\210\201e )\210G\204\311\201\202g!\203\311\330g!\203\311\201\250g!\210\306hi\203\364j\306i\201\2511\347\201\252\201j!0\202\351\210\306)\232\203\364\373\201j!\210b=\203c=\204\201\253 \210\266\307 \201\231\201\254\201\255\"\210\201\256\201\257!\2035r\201\257q\210k\201\260=\2034l \210)G\204Q\\\204Q\201\233 \204Q\201\261\201\262 \306\313#\210\354\201\263\201\264!Dm\373\201Q!\210\201\265EA!\210Q\203~\201\266N!\204~\201\267\342!\210\306@\211\203\302\211@G\204\273\204\273\211;\203\273\365\321!!\321N!\230\203\273\313\262\376\377\201\270\201\271\321\201\272N\"#\201\273#\210A\266\202\202\201\266G\203\317\201\230\313!\210\201\233 \211\203\211;\203\337\211n\201\274 \210o\203\362\201\275 \266\202\211;\203\201\276\201\277n\"\210\202\f\201\276\201\300!\210\201\230\350!\210\210\201\201p!\205)p;\205)\201\301p!\207" [before-init-time after-init-time default-directory command-line-default-directory abbreviated-home-dir version-control nil current-time getenv "VERSION_CONTROL" #s(hash-table size 6 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("t" 27 "numbered" 27 "nil" 33 "existing" 33 "never" 39 "simple" 39)) t never locate-file "simple" get-load-suffixes external-debugging-output expand-file-name "../lisp" princ "Warning: Could not find simple.el or simple.elc" terpri "EMACSLOADPATH" "The EMACSLOADPATH environment variable is set, please check its value" file-readable-p format "Lisp directory %s not readable?" file-truename file-name-directory mapcar #[257 "\211@;\203\301@!\204@PAB\207\207" [lisp-directory file-name-absolute-p] 3 "\n\n(fn ELT)"] decode-coding-string user-login-name user-real-login-name "" (("--no-init-file") ("--no-site-file") ("--no-x-resources") ("--debug-init") ("--user") ("--iconic") ("--icon-type") ("--quick") ("--no-blinking-cursor") ("--basic-display") ("--dump-file") ("--temacs") ("--seccomp") ("--init-directory" "--no-comp-spawn")) string-match "\\`\\(--[^=]*\\)=" 0 match-string 1 "\\`--." try-completion assoc error "Option `%s' is ambiguous" "-scripteval" #s(hash-table size 21 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("-d" 302 "-display" 302 "-Q" 316 "-quick" 316 "-no-x-resources" 334 "-D" 340 "-basic-display" 340 "-q" 355 "-no-init-file" 355 "-init-directory" 361 "-u" 398 "-user" 398 "-no-site-file" 416 "-no-comp-spawn" 428 "-debug-init" 434 "-iconic" 440 "-nbc" 449 "-no-blinking-cursor" 449 "-dump-file" 455 "-temacs" 455 "-seccomp" 455)) put site-run-file standard-value (nil) (vertical-scroll-bars) file-name-as-directory (nil) (visibility . icon) "Option `%s' doesn't allow an argument" append mapc custom-reevaluate-setting reverse "[~/:\n]" display-warning initialization load-path data-directory standard-output lisp-directory load-history command-line-args locale-coding-system noninteractive init-file-user argi inhibit-x-resources no-blinking-cursor emacs-basic-display initial-frame-alist user-emacs-directory comp-no-spawn init-file-debug user-emacs-directory-warning custom-delayed-init-variables system-type startup--xdg-config-home-emacs startup--xdg-config-default user-init-file early-init-file package-enable-at-startup package--activated package-user-dir package-directory-list initial-window-system window-system menu-bar-mode tab-bar-mode tool-bar-mode internal--text-quoting-flag scalable-fonts-allowed face-ignored-fonts inhibit-startup-screen deactivate-mark transient-mark-mode abbrev-file-name abbrevs-changed mail-host-address user-mail-address major-mode initial-major-mode memory-signal-data server-name server-process x-session-previous-id "Invalid user name %s" :error file-directory-p (windows-nt ms-dos) "~" "User %s has no home directory" "/.config/emacs/" startup--xdg-or-homedot startup--load-user-init-file make-closure #[0 "\301\302\300\242\"\207" [V0 expand-file-name "early-init.el"] 3] featurep native-compile startup--update-eln-cache boundp package-dir-found directory-files file-exists-p package--description-file throw package-activate-all (error) intern symbol-name "-win" "Unsupported window system `%s'" handle-args-function window-system-initialization window-system-initialized apply concat file-error error-conditions "%s: %s" mapconcat #[257 "\300\301\"\207" [prin1-to-string t] 4 "\n\n(fn OBJ)"] ", " error-message #[257 "\300\301\"\207" [prin1-to-string t] 4 "\n\n(fn OBJ)"] kill-emacs run-hooks before-init-hook daemonp frame-initialize fboundp x-create-frame tool-bar-setup startup--setup-quote-display normal-erase-is-backspace-setup-frame pc tty-register-default-colors load #[0 "\300\242\301\242=\203\n\305\207\n\306=\203\307 \310Q\207\n\311=\204 \307 \312Q\207\313\307\305\314#\203*\315\207\313\307\305\316#\203<\317\320\321!D\fB\322\207\315\207" [V0 V1 system-type init-file-user delayed-warnings-list nil ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files "\\`\\.emacs\\(\\.elc?\\)?\\'" "~/.emacs" "\\`_emacs\\(\\.elc?\\)?\\'" initialization format-message "`_emacs' init file is deprecated, please use `.emacs'" "~/_emacs"] 4] #[0 "\301\302\300\242\"\207" [V0 expand-file-name "init.el"] 3] window-buffer quietly-read-abbrev-file (error) custom--standard-value clear-face-cache after-init-hook delayed-warnings-hook get-buffer "*scratch*" fundamental-mode tty-run-terminal-initialization selected-frame substitute-command-keys "Memory exhausted--use \\[save-some-buffers] then exit and restart Emacs" command-line-1 file-accessible-directory-p locate-user-emacs-file format-message "Your `load-path' seems to contain\nyour `user-emacs-directory': %s\nThis is likely to cause problems...\nConsider using a subdirectory instead, e.g.: %s" "lisp" :warning server-start daemon-initialized message "Unable to start daemon: Emacs server named %S already running" "Unable to start the daemon.\nAnother instance of Emacs is running the server, either as daemon or interactively.\nYou can use emacsclient to connect to that Emacs process." emacs-session-restore] 14 (#$ . 31310)])#@487 Apply X resources which specify initial values for Emacs variables. This is called from a window-system initialization function, such as `window-system-initialization' for X, either at startup (prior to reading the init file), or afterwards when the user first opens a graphical frame. This can set the values of `menu-bar-mode', `tool-bar-mode', `tab-bar-mode', and `blink-cursor-mode', as well as the `cursor' face. Changed settings will be marked as "CHANGED outside of Customize". (defalias 'x-apply-session-resources #[0 "\300\301\211\211\203$\211@\302@A@\"\235\203\3038\3048L\210A\266\202\202\266\305\306\211\211\203J\211@\302@A@\"\235\203C\3038\3048!\210A\266\202\202)\266\302\307\310\"\211\205g\311\312\313\314\315\316ECDC#\210\311\312\317\315#\207" [("no" "off" "false" "0") (("menuBar" "MenuBar" menu-bar-mode nil) ("toolBar" "ToolBar" tool-bar-mode nil) ("scrollBar" "ScrollBar" scroll-bar-mode nil) ("cursorBlink" "CursorBlink" blink-cursor-mode nil)) x-get-resource 2 3 ("yes" "on" "true" "1") (("tabBar" "TabBar" tab-bar-mode 1)) "cursorColor" "Foreground" put cursor theme-face changed t :background face-modified] 8 (#$ . 40253)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable initial-scratch-message funcall function #[0 "\300\301!\207" [purecopy ";; This buffer is for text that is not saved, and for Lisp evaluation.\n;; To create a file, visit it with \\[find-file] and enter text in its buffer.\n\n"] 2 ""] "Initial documentation displayed in *scratch* buffer at startup.\nIf this is nil, no message will be displayed." :type (choice (text :tag "Message") (const :tag "none" nil))] 6)#@184 A list of texts to show in the middle part of splash screens. Each element in the list should be a list of strings or pairs `:KEYWORD VALUE', like what `fancy-splash-insert' accepts. (defconst fancy-startup-text (byte-code "\300\301\302\303\304\305\306BB\307\303\310\311\300\312\303\313\314D\315\316\317\303\320\321\322BB\323\303\324\325D\326\303\327\330D\331\300\332\333\300\312\303\334\335D\336\303\337\340D\341BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBC\207" [:face (variable-pitch font-lock-comment-face) "Welcome to " :link "GNU Emacs" #[257 "\301\302\303!)\207" [browse-url-browser-function eww-browse-url browse-url "https://www.gnu.org/software/emacs/"] 3 "\n\n(fn BUTTON)"] ("Browse https://www.gnu.org/software/emacs/") ", one component of the " #[0 "\301=\203\f\302\303\304BB\207\305\306\307BB\207" [system-type gnu/linux "GNU/Linux" #[257 "\301\302\303!)\207" [browse-url-browser-function eww-browse-url browse-url "https://www.gnu.org/gnu/linux-and-gnu.html"] 3 "\n\n(fn BUTTON)"] ("Browse https://www.gnu.org/gnu/linux-and-gnu.html") "GNU" #[257 "\301\302\303!)\207" [browse-url-browser-function eww-browse-url browse-url "https://www.gnu.org/gnu/thegnuproject.html"] 3 "\n\n(fn BUTTON)"] ("Browse https://www.gnu.org/gnu/thegnuproject.html")] 3] " operating system.\n\n" variable-pitch "Emacs Tutorial" #[257 "\300 \207" [help-with-tutorial] 2 "\n\n(fn BUTTON)"] " Learn basic keystroke commands" #[0 "\302\303\"\206\304\305\306\307\"r\211q\210\310\311\"\216\312\313 \"\314\"\210\315\316!\210e`S{*\262\304\230\2030\317\207\320\321Q\207" [current-language-environment tutorial-directory get-language-info tutorial "TUTORIAL" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents expand-file-name nil search-forward "." "" " (" ")"] 6] "\n" "Emacs Guided Tour" #[257 "\301\302\303!)\207" [browse-url-browser-function eww-browse-url browse-url "https://www.gnu.org/software/emacs/tour/"] 3 "\n\n(fn BUTTON)"] ("Browse https://www.gnu.org/software/emacs/tour/") " Overview of Emacs features at gnu.org\n" "View Emacs Manual" #[257 "\300 \207" [info-emacs-manual] 2 "\n\n(fn BUTTON)"] " View the Emacs manual using Info\n" "Absence of Warranty" #[257 "\300 \207" [describe-no-warranty] 2 "\n\n(fn BUTTON)"] " GNU Emacs comes with " (variable-pitch (:slant oblique)) "ABSOLUTELY NO WARRANTY\n" "Copying Conditions" #[257 "\300 \207" [describe-copying] 2 "\n\n(fn BUTTON)"] " Conditions for redistributing and changing Emacs\n" "Ordering Manuals" #[257 "\300 \207" [view-order-manuals] 2 "\n\n(fn BUTTON)"] (" Purchasing printed copies of manuals\n" "\n")] 36) (#$ . 41923))#@186 A list of texts to show in the middle part of the About screen. Each element in the list should be a list of strings or pairs `:KEYWORD VALUE', like what `fancy-splash-insert' accepts. (defconst fancy-about-text (byte-code "\300\301\302\303\304\305\306BB\307\303\310\311\300\312\313\314\313\300\315\316\317\300\320\303\321\322D\323\303\324\325D\326\313\303\327\330D\331\303\332\333D\334\300\335\336\300\320\303\337\340D\341\303\342\343D\344\303\345\346D\347\313\303\350\351D\352\353\313\303\354\355\356BB\357\303\360\361D\362BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBC\207" [:face (variable-pitch font-lock-comment-face) "This is " :link "GNU Emacs" #[257 "\301\302\303!)\207" [browse-url-browser-function eww-browse-url browse-url "https://www.gnu.org/software/emacs/"] 3 "\n\n(fn BUTTON)"] ("Browse https://www.gnu.org/software/emacs/") ", a text editor and more.\nIt's a component of the " #[0 "\301=\203\f\302\303\304BB\207\305\306\307BB\207" [system-type gnu/linux "GNU/Linux" #[257 "\301\302\303!)\207" [browse-url-browser-function eww-browse-url browse-url "https://www.gnu.org/gnu/linux-and-gnu.html"] 3 "\n\n(fn BUTTON)"] ("Browse https://www.gnu.org/gnu/linux-and-gnu.html") "GNU" #[257 "\301\302 )\207" [browse-url-browser-function eww-browse-url describe-gnu-project] 2 "\n\n(fn BUTTON)"] ("Display info on the GNU project.")] 3] " operating system.\n" (variable-pitch font-lock-builtin-face) "\n" #[0 "\300\301\302\"r\211q\210\303\304\"\216\305 c\210\306ed\"\210\307 *\207" [generate-new-buffer #1=" *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] emacs-version fill-region buffer-string] 4] (variable-pitch (:height 0.8)) #[0 "\207" [emacs-copyright] 1] "\n\n" variable-pitch "Authors" #[257 "\301\302\303\"!\210eb\207" [data-directory view-file expand-file-name "AUTHORS"] 5 "\n\n(fn BUTTON)"] " Many people have contributed code included in GNU Emacs\n" "Contributing" #[257 "\300\301!\207" [info "(emacs)Contributing"] 3 "\n\n(fn BUTTON)"] " How to report bugs and contribute improvements to Emacs\n" "GNU and Freedom" #[257 "\301\302 )\207" [browse-url-browser-function eww-browse-url describe-gnu-project] 2 "\n\n(fn BUTTON)"] " Why we developed GNU Emacs, and the GNU operating system\n" "Absence of Warranty" #[257 "\300 \207" [describe-no-warranty] 2 "\n\n(fn BUTTON)"] " GNU Emacs comes with " (variable-pitch (:slant oblique)) "ABSOLUTELY NO WARRANTY\n" "Copying Conditions" #[257 "\300 \207" [describe-copying] 2 "\n\n(fn BUTTON)"] " Conditions for redistributing and changing Emacs\n" "Getting New Versions" #[257 "\300 \207" [describe-distribution] 2 "\n\n(fn BUTTON)"] " How to obtain the latest version of Emacs\n" "Ordering Manuals" #[257 "\300 \207" [view-order-manuals] 2 "\n\n(fn BUTTON)"] " Buying printed manuals from the FSF\n" "Emacs Tutorial" #[257 "\300 \207" [help-with-tutorial] 2 "\n\n(fn BUTTON)"] " Learn basic Emacs keystroke commands" #[0 "\302\303\"\206\304\305\306\307\"r\211q\210\310\311\"\216\312\313 \"\314\"\210\315\316!\210e`S{*\262\304\230\2030\317\207\320\321Q\207" [current-language-environment tutorial-directory get-language-info tutorial "TUTORIAL" generate-new-buffer #1# t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents expand-file-name nil search-forward "." "" " (" ")"] 6] "Emacs Guided Tour" #[257 "\301\302\303!)\207" [browse-url-browser-function eww-browse-url browse-url "https://www.gnu.org/software/emacs/tour/"] 3 "\n\n(fn BUTTON)"] ("Browse https://www.gnu.org/software/emacs/tour/") " See an overview of Emacs features at gnu.org\n" "Emacs Manual" #[257 "\300 \207" [info-emacs-manual] 2 "\n\n(fn BUTTON)"] (" Display the Emacs manual in Info mode")] 59) (#$ . 44599)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\207" [custom-declare-group fancy-splash-screen nil "Fancy splash screen when Emacs starts." :version "21.1" :group initialization custom-declare-variable fancy-splash-image funcall function #[0 "\300\207" [nil] 1 ""] "The image to show in the splash screens, or nil for defaults." :type (choice (const :tag "Default" nil) (file :tag "File"))] 8)#@34 Keymap for splash screen buffer. (defvar splash-screen-keymap (byte-code "\301 \302!\210\303\"\210\304\305\306#\210\304\307\306#\210\304\310\311#\210\304\312\313#\210\207" [button-buffer-map make-sparse-keymap suppress-keymap set-keymap-parent define-key "" scroll-down-command [33554464] " " scroll-up-command "q" exit-splash-screen] 5) (#$ . 48809))#@552 Insert text into the current buffer, with faces. Arguments from ARGS should be either strings; functions called with no args that return a string; pairs `:face FACE', where FACE is a face specification usable with `put-text-property'; or pairs `:link LINK' where LINK is a list of arguments to pass to `insert-button', of the form (LABEL ACTION [HELP-ECHO]), which specifies the button's label, `action' property and help-echo string. FACE and LINK can also be functions, which are evaluated to obtain a face or button specification. (fn &rest ARGS) (defalias 'fancy-splash-insert #[128 "\300\205w@\301=\203!A\262@\262\302!\203p\211 \262\202p@\303=\203WA\262@\302!\2038\211 \262\304@\305\306D\307A@\310\311\312 8\206M\313P\314\315& \266\202p\316@\302!\203e\211 \202f\211\262\305\310\317 %c\210A\262\202\207" [nil :face functionp :link insert-button face link action help-echo "mouse-2, RET: " 2 "Follow this link" follow-link t propertize startup-echo-area-message] 13 (#$ . 49175)]) (defalias 'fancy-splash-image-file #[0 ";\203\207\301 \203=\302 \303X\203\304\305!\203\306\207\307\207\304\310!\204)\304\311!\203+\312\207\304\313!\2033\314\207\304\305!\203;\306\207\307\207\307\207" [fancy-splash-image display-color-p display-planes 8 image-type-available-p xpm "splash.xpm" "splash.pbm" svg imagemagick "splash.svg" png "splash.png"] 2])#@68 Insert the head part of the splash screen into the current buffer. (defalias 'fancy-splash-head #[0 "\300 \301!\211\205 \302!@\303 \205R\211V\205R\304\305\306\307\310\311\312\313\nBEE#c\210\314>\203>\315\316\317\"\320=\203>\321\322\"\262\323`\324!\210`\325\326\327\330\331\332\333\334&\n\210\335c\207" [fancy-splash-image-file create-image image-size window-width propertize " " display space :align-to + 37 -0.5 xpm frame-parameter nil background-mode dark append (:color-symbols (("#000000" . "gray30"))) make-button insert-image face default help-echo "mouse-2, RET: Browse https://www.gnu.org/" action #[257 "\301\302\303!)\207" [browse-url-browser-function eww-browse-url browse-url "https://www.gnu.org/"] 3 "\n\n(fn BUTTON)"] follow-link t "\n\n"] 15 (#$ . 50572)])#@92 Insert the tail part of the splash screen into the current buffer. (fn &optional CONCISE) (defalias 'fancy-startup-tail #[256 "\211\204'\304\305\306\307\310\311\312\313BB\314\310\315\316\317BB\320\310\321\322\323BB\324\310\325\326\327BB\330&\210\304\305\306\331\305\332\333\305\306\334& \210\214``}\210\304\305\335\336\337 \330%\210\340ed\")\210\304\305\341\330$\210 \203\210\342 !\343 !\344\345!\203\206\346\344\347P\350$\211\262\203\206\304\305\351G\352U\203|\353\202}\354\355\310\356\357D\360&\210\266\211\205\316\304\305\306\330\310\361\362D\363&\210\n\204\240 \205\316\364\365\344\211\366\367%\364\370\344\211\366\367%\371\372\373\374\375\344\376 \377\350\201@\201A& \266\304\305\201B\201C#\207" [emacs-copyright auto-save-list-file-prefix user-init-file custom-file fancy-splash-insert :face variable-pitch "\nTo start... " :link "Open a File" #[257 "\300\301!\207" [call-interactively find-file] 3 "\n\n(fn BUTTON)"] ("Specify a new file's name, to edit the file") " " "Open Home Directory" #[257 "\300\301!\207" [dired "~"] 3 "\n\n(fn BUTTON)"] ("Open your home directory, to operate on its files") "\n " "Customize Startup" #[257 "\300\301!\207" [customize-group initialization] 3 "\n\n(fn BUTTON)"] ("Change initialization settings including this screen") " " "Explore Packages" #[257 "\300\301!\207" [call-interactively package-list-packages] 3 "\n\n(fn BUTTON)"] ("Explore, install and remove Emacs packages (requires Internet connection)") "\n" "To quit a partially entered command, type " default "Control-g" ".\n" (variable-pitch font-lock-builtin-face) "\nThis is " emacs-version fill-region (variable-pitch (:height 0.8)) file-name-directory file-name-nondirectory nil file-directory-p directory-files "\\`" t (variable-pitch font-lock-comment-face) 1 "\nAn auto-save file list was found. " "\nAuto-save file lists were found. " "If an Emacs session crashed recently,\ntype " "M-x recover-session RET" #[257 "\300\301!\207" [call-interactively recover-session] 3 "\n\n(fn BUTTON)"] " to recover the files you were editing." "Dismiss this startup screen" #[257 "\203\301\302\303\"\210\304\302!\210\305 \210\306\307\303\"\207" [startup-screen-inhibit-startup-screen customize-set-variable inhibit-startup-screen t customize-mark-to-save custom-save-all quit-windows-on "*GNU Emacs*"] 4 "\n\n(fn BUTTON)"] " " create-image "checked.xpm" :ascent center "unchecked.xpm" insert-button " " :on-glyph :off-glyph checked display follow-link action #[257 "\301\302\"\203\303\302\304#\210\303\305\301\306\"#\210\304\211\207\303\302\307#\210\303\305\301\310\"#\210\307\211\207" [startup-screen-inhibit-startup-screen overlay-get checked overlay-put nil display :off-glyph t :on-glyph] 7 "\n\n(fn BUTTON)"] (variable-pitch (:height 0.9)) " Never show it again."] 18 (#$ . 51365)])#@43 Stop displaying the splash screen buffer. (defalias 'exit-splash-screen #[0 "\300\301!\207" [quit-window t] 2 (#$ . 54201) nil])#@144 Display fancy startup screen. If CONCISE is non-nil, display a concise version of the splash screen in another window. (fn &optional CONCISE) (defalias 'fancy-startup-screen #[256 "\306\307!r\211q\210\310\311 \210 \312\313!\210 \203\fc\210\204 \314 \210 \211\2036\211@\315\316\"\210\317c\210A\266\202\202!\210\317\320x\210`d|\210\317c\210\321!)\210\322!\210\323 \310!\324\320!\210\"\203e#\204e\325\320\326\"\210eb\210\203p\327\202q\330y)\210\203\230\331!\210\332\310\"\211?\206\227\211\333 =\206\227\211\334!=\206\227\335!\207\336!\207" [inhibit-read-only command-line-default-directory default-directory pure-space-overflow pure-space-overflow-message fancy-startup-text get-buffer-create "*GNU Emacs*" t erase-buffer make-local-variable startup-screen-inhibit-startup-screen fancy-splash-head apply fancy-splash-insert "\n" nil fancy-startup-tail use-local-map 22 set-buffer-modified-p view-mode-enter kill-buffer 2 4 display-buffer get-buffer-window selected-window next-window fit-window-to-buffer switch-to-buffer splash-screen-keymap tab-width buffer-read-only view-read-only view-mode] 7 (#$ . 54336)])#@29 Display fancy About screen. (defalias 'fancy-about-screen #[0 "\306 \307 r\310\311\"\216\312!\210\313\314!\210\315\211\316 \210\n\203 c\210\317 \210\f\211\2039\211@\320\321\"\210\322c\210A\266\202\202$\210\323\324!\210eb\210\325 )\210\326 !\210\327\315eb\210\330\331\324\211\332$*\207" [buffer-undo-list inhibit-read-only pure-space-overflow pure-space-overflow-message fancy-about-text splash-screen-keymap fancy-splash-frame internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] select-frame switch-to-buffer "*About GNU Emacs*" t erase-buffer fancy-splash-head apply fancy-splash-insert "\n" set-buffer-modified-p nil force-mode-line-update use-local-map 22 re-search-forward "\n$" 2 tab-width buffer-read-only] 8 (#$ . 55484)])#@183 Return the frame to use for the fancy splash screen. Returning non-nil does not mean we should necessarily use the fancy splash screen, but if we do use it, we put it on this frame. (defalias 'fancy-splash-frame #[0 "\300\301 \302=\203 \303\304\305\"\210\301 \306=\203\303\307\305\"\210\310\311 \312 C\"\211\203>\211@\313!\2037\314\315!!\2047\211\262A\266\202\202 \210\211\206E\312 \207" [nil window-system w32 sit-for 0 t pgtk 0.1 append frame-list selected-frame frame-visible-p window-minibuffer-p frame-selected-window] 6 (#$ . 56298)])#@50 Return t if fancy splash screens should be used. (defalias 'use-fancy-splash-screens-p #[0 "\300 \205:\301 \203\302\303!\204\302\304!\205:\305 \211\2058\306\307 !\211\2056\310\311#A\312!\313Z\211\314\\V\266\202\262\262\207" [display-graphic-p display-color-p image-type-available-p xpm pbm fancy-splash-frame create-image fancy-splash-image-file image-size nil frame-height 2 19] 7 (#$ . 56856)])#@291 Display non-graphic splash screen. If optional argument STARTUP is non-nil, display the startup screen after Emacs starts. If STARTUP is nil, display the About screen. If CONCISE is non-nil, display a concise version of the splash screen in another window. (fn &optional STARTUP CONCISE) (defalias 'normal-splash-screen #[512 "\306\307!r\211q\210\310\311 \210 \312\303!\210\313\f\203 c\210\203#\314\202$\315c\210'\316=\2031\317\2022\320c\210\203I\321 \203C\322 \210\202L\323 \210\202L\324 \210\203w(\203w\325\326(!!\203w\327\326(!\310\330\331\332(!!P\333$\203w\334\335\336\261\210\337)!\210\340\310!\210\333*\203\221+\204\221\341\310\342\"\210\203\232\343\344\333\"\210eb)\210\203\246\345!\207\346!\207" [buffer-read-only command-line-default-directory default-directory tab-width pure-space-overflow pure-space-overflow-message get-buffer-create "*About GNU Emacs*" nil erase-buffer make-local-variable 8 "Welcome to GNU Emacs" "This is GNU Emacs" gnu/linux ", one component of the GNU/Linux operating system.\n" ", a part of the GNU operating system.\n" display-mouse-p normal-mouse-startup-screen normal-no-mouse-startup-screen normal-about-screen file-directory-p file-name-directory directory-files "\\`" regexp-quote file-name-nondirectory t "\n\nIf an Emacs session crashed recently, " "type M-x recover-session RET\nto recover" " the files you were editing.\n" use-local-map set-buffer-modified-p view-mode-enter kill-buffer rename-buffer "*GNU Emacs*" display-buffer switch-to-buffer system-type auto-save-list-file-prefix splash-screen-keymap view-read-only view-mode] 10 (#$ . 57273)]) (defalias 'normal-mouse-startup-screen #[0 "\301c\210\302c\210\303\304\305\306\307\310%\210\311c\210\303\312\305\313\307\310%\210\314c\210\303\315\305\316\307\310%\210\317c\210\303\320\305\321\307\310%\210\322c\210\303\323\305\324\307\310%\210\325c\210\326c\210\303\327\305\330\307\310%\210\331\332!c\210\303\333\305\334\307\310%\210\335c\210\303\336\305\337\307\310%\210\340c\210\214``}\210\341\342 \341\261\210\343ed\")\210c\207" [emacs-copyright "To follow a link, click Mouse-1 on it, or move to it and type RET.\nTo quit a partially entered command, type Control-g.\n" "\nImportant Help menu items:\n" insert-button "Emacs Tutorial" action #[257 "\300 \207" [help-with-tutorial] 2 "\n\n(fn BUTTON)"] follow-link t " Learn basic Emacs keystroke commands\n" "Read the Emacs Manual" #[257 "\300 \207" [info-emacs-manual] 2 "\n\n(fn BUTTON)"] " View the Emacs manual using Info\n" "(Non)Warranty" #[257 "\300 \207" [describe-no-warranty] 2 "\n\n(fn BUTTON)"] " GNU Emacs comes with ABSOLUTELY NO WARRANTY\n" "Copying Conditions" #[257 "\300 \207" [describe-copying] 2 "\n\n(fn BUTTON)"] " Conditions for redistributing and changing Emacs\n" "More Manuals / Ordering Manuals" #[257 "\300 \207" [view-order-manuals] 2 "\n\n(fn BUTTON)"] " How to order printed manuals from the FSF\n" "\nUseful tasks:\n" "Visit New File" #[257 "\300\301!\207" [call-interactively find-file] 3 "\n\n(fn BUTTON)"] substitute-command-keys " Specify a new file's name, to edit the file\n" "Open Home Directory" #[257 "\300\301!\207" [dired "~"] 3 "\n\n(fn BUTTON)"] " Open your home directory, to operate on its files\n" "Customize Startup" #[257 "\300\301!\207" [customize-group initialization] 3 "\n\n(fn BUTTON)"] " Change initialization settings including this screen\n" "\n" emacs-version fill-region] 6])#@67 Show a splash screen suitable for displays without mouse support. (defalias 'normal-no-mouse-startup-screen #[0 "\303!?\206\f\304H\304=\211?\305 \306\307\310#\210\211\262B B\311\312\313\314\315\316#\211\317\232\203.\320\2029\211\2038\321!\2029\322\262\"c\210\323\324\325\326\327\316%\210\330\331!c\210\323\332\325\333\327\316%\210\330\334!c\210\323\335\325\336\327\316%\210\330\337!c\210\323\340\325\341\327\316%\210\330\342!c)\266\343c\210\323\344\325\345\327\316%\210\346\347!\350=\203\225\346\351!\350=\203\225\352c\210\202\232\330\353!c\210\330\354!c\210\355c\210\323\356\325\357\327\316%\210\360c\210\323\361\325\362\327\316%\210\343c\210\323\363\325\364\327\316%\210\365c\210\323\366\325\367\327\316%\210\343c\210\214``}\210\343\370 \343\261\210\371ed\")\210\n\343\261\210\330\372!c\210\323\373\325\374\327\316%\210\330\375!c\210\323\376\325\377\327\316%\210\330\201@!c\210\323\201A\325\201B\327\316%\210\201Cc\207" [keyboard-translate-table minor-mode-overriding-map-alist emacs-copyright char-table-p 8 make-sparse-keymap define-key [8] undefined format "\nGet help %s\n" where-is-internal help-command nil t [8] "C-h (Hold down CTRL and press h)" key-description "M-x help" insert-button "Emacs manual" action #[257 "\300 \207" [info-emacs-manual] 2 "\n\n(fn BUTTON)"] follow-link substitute-command-keys " \\[info-emacs-manual] " "Browse manuals" #[257 "\300 \207" [Info-directory] 2 "\n\n(fn BUTTON)"] " \\[info]\n" "Emacs tutorial" #[257 "\300 \207" [help-with-tutorial] 2 "\n\n(fn BUTTON)"] " \\[help-with-tutorial] Undo changes \\[undo]\n" "Buy manuals" #[257 "\300 \207" [view-order-manuals] 2 "\n\n(fn BUTTON)"] " \\[view-order-manuals] Exit Emacs \\[save-buffers-kill-terminal]" "\n" "Activate menubar" #[257 "\300 \207" [tmm-menubar] 2 "\n\n(fn BUTTON)"] key-binding "\340" tmm-menubar [f10] " F10 or ESC ` or M-`" " \\[tmm-menubar]" "\n(`C-' means use the CTRL key. `M-' means use the Meta (or Alt) key.\nIf you have no Meta key, you may instead type ESC followed by the character.)" "\nUseful tasks:\n" "Visit New File" #[257 "\300\301!\207" [call-interactively find-file] 3 "\n\n(fn BUTTON)"] " " "Open Home Directory" #[257 "\300\301!\207" [dired "~"] 3 "\n\n(fn BUTTON)"] "Customize Startup" #[257 "\300\301!\207" [customize-group initialization] 3 "\n\n(fn BUTTON)"] " " "Open *scratch* buffer" #[257 "\300\301 !\207" [switch-to-buffer get-scratch-buffer-create] 3 "\n\n(fn BUTTON)"] emacs-version fill-region "\nGNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for " "full details" #[257 "\300 \207" [describe-no-warranty] 2 "\n\n(fn BUTTON)"] ".\nEmacs is Free Software--Free as in Freedom--so you can redistribute copies\nof Emacs and modify it; type \\[describe-copying] to see " "the conditions" #[257 "\300 \207" [describe-copying] 2 "\n\n(fn BUTTON)"] ".\nType \\[describe-distribution] for information on " "getting the latest version" #[257 "\300 \207" [describe-distribution] 2 "\n\n(fn BUTTON)"] "."] 7 (#$ . 60710)]) (defalias 'normal-about-screen #[0 "\301\302 \301\303\261\210\304c\210\305\306\307\310\311\312%\210\313c\210\305\314\307\315\311\312%\210\316c\210\305\317\307\320\311\312%\210\321c\210\305\322\307\323\311\312%\210\324c\210\305\325\307\326\311\312%\210\327c\210\305\330\307\331\311\312%\210\332c\210\305\333\307\334\311\312%\210\335c\207" [emacs-copyright "\n" emacs-version "\n\n" "To follow a link, click Mouse-1 on it, or move to it and type RET.\n\n" insert-button "Authors" action #[257 "\301\302\303\"!\210eb\207" [data-directory view-file expand-file-name "AUTHORS"] 5 "\n\n(fn BUTTON)"] follow-link t " Many people have contributed code included in GNU Emacs\n" "Contributing" #[257 "\300\301!\207" [info "(emacs)Contributing"] 3 "\n\n(fn BUTTON)"] " How to report bugs and contribute improvements to Emacs\n\n" "GNU and Freedom" #[257 "\301\302 )\207" [browse-url-browser-function eww-browse-url describe-gnu-project] 2 "\n\n(fn BUTTON)"] " Why we developed GNU Emacs and the GNU system\n" "Absence of Warranty" #[257 "\300 \207" [describe-no-warranty] 2 "\n\n(fn BUTTON)"] " GNU Emacs comes with ABSOLUTELY NO WARRANTY\n" "Copying Conditions" #[257 "\300 \207" [describe-copying] 2 "\n\n(fn BUTTON)"] " Conditions for redistributing and changing Emacs\n" "Getting New Versions" #[257 "\300 \207" [describe-distribution] 2 "\n\n(fn BUTTON)"] " How to get the latest version of GNU Emacs\n" "More Manuals / Ordering Manuals" #[257 "\300 \207" [view-order-manuals] 2 "\n\n(fn BUTTON)"] " Buying printed manuals from the FSF\n"] 6]) (defalias 'startup-echo-area-message #[0 "\300 \203\301\207\302\303!\207" [daemonp "Starting Emacs daemon." substitute-command-keys "For information about GNU Emacs and the GNU system, type \\[about-emacs]."] 2]) (defalias 'display-startup-echo-area-message #[0 "\305 \206b\n\203] \203]\302\306N\203%\n\f\307\232\203 \310 \202!\f\232\206b\3111X\312\313\305\"r\211q\210\314\315\"\216\316 !\210\317\320\321\322\f\307\232\203I\310 \202J\f!!\323Q\324\305#*\2620\202Z\210\324\206b\325\326\327 \")\207" [resize-mini-windows noninteractive inhibit-startup-echo-area-message user-init-file init-file-user t saved-value "" user-login-name (error) generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward "([ \n]*setq[ \n]+inhibit-startup-echo-area-message[ \n]+" regexp-quote prin1-to-string "[ \n]*)" nil message "%s" startup-echo-area-message] 7])#@206 Display startup screen according to display. A fancy display is used on graphic displays, normal otherwise. If CONCISE is non-nil, display a concise version of the startup screen. (fn &optional CONCISE) (defalias 'display-startup-screen #[256 "\300\301!?\205\302 \203\303!\207\304\305\"\207" [get-buffer "*GNU Emacs*" use-fancy-splash-screens-p fancy-startup-screen normal-splash-screen t] 4 (#$ . 66250)])#@102 Display the *About GNU Emacs* buffer. A fancy display is used on graphic displays, normal otherwise. (defalias 'display-about-screen #[0 "\300 \203\301 \207\302\303!\207" [use-fancy-splash-screens-p fancy-about-screen normal-splash-screen nil] 2 (#$ . 66671) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias about-emacs display-about-screen display-splash-screen display-startup-screen] 3)#@49 A subroutine of `command-line'. (fn ARGS-LEFT) (defalias 'command-line-1 #[257 "\306 \210\203 \204\307\310!\203\310 \204\311\312\313\314#\210\315C\211\203\226 \315\211\211\316\317\320\321\f\"\"\322C\322C\323 \211\203Q\211@\324\325@\"\203J\211@B\262A\266\202\2025\210@\211\203q\211@\324\325@\"\203j\211@CB\262A\266\202\202T\210\n\203\224\n@\211A\315\211\nA\203\213\326A\202\345\324\327A\"\203\242A\322\225\315O\262\330\331A\"A\324\332\"\203\345\333A\"\262\211\334=\203\301A\331\315OA\202\345\211;\203\337\211\235\211\204\324\335\336A\"\210\211@\331\315OA\210\202\345\315\262A\337A\f\"\211\262 \203 \203\nB AA!)\210\202 AA!\210\202A\340\267\202X\334B\202\334B\341\206'\n\211A\242!\262\n\342\n!\2039\343\n!\210\202 \210\202\334B\206L\n\211A\242\344!\211@A\345\324\334$\266\203\204i\335\346\315O\"\210\347\334\"\266\202\315\350\351C\"\206\201\n\211A\242\211\262 \315\324\334$\266\203\203\232\n\331\315O\262 \334\262\352\353\f!!\262 \211\203\274\316D\fC\"D \203\336D\262\n\210\202 \203\324   AB\241\210 A\262\n\210\202\nDB\211D\262\n\210\202\353\206\354\n\211A\242!\354\352!!\355!\203\373\211\262\356\315\334#\266\202\353\206\n\211A\242!\352!\354!\357!\203\211\262A\360\232\203.\361!\266\202\362!\266\202\334B\206B\n\211A\242\262\n ;\204N\335\363!\210\364\353 !!\210\202A\365\232\204fA\366\232\203r\204\n\210\nA\202A\367\267\202\207\370\334!\210\202\371\372!\210\202\324\373A\"\203\231\374A!\240\210\202\324\375A\"\203\270\374\330\331A\"!\240\210\374\330\376A\"!\240\210\202\337 \"\211\262 \203\314 A@\n\233\202\337@\"\211\262 \203\341 A@\n\233\202A\377\235\203\334B\206\364\n\211A\242\262\n ;\204\335\201MA\"\210\f\f%\210\202\324\201NA\"\203,\311\312\350\201OA\"\"\210\202A\201P\232\203;\334\262\202E\315\203R@ \211\262\204RA\262\202>\211\204}\324\201QA\"\203h\335\201RA\"\210F\204p\334B\n\n %\210\266\201S\201T !\204\216\370\315!\210)\266\202r\266)G\334=\203\243\201U \210H\203\320\201V\201W!\203\320r\201Wq\210\201X \322U\203\317\201YH!c\210\201Z\315!\210)G\203\"G;\203\344\201[G!\202\201\\G!\203\363G \202G\334=\203\201U \202\335\201]!\201^!\204\335\201_\"\210\201`\242\"B\240\266\211\242G\315I\322V\2036\201a\242@!\210\376U\203P\201b\242A@!\210\201c\201d!\210\202\210\376V\203\210\201e\242A!\201b\211A\262\242!\210\211\211\203~\211@\201a\315\334#\210A\266\202\202i\210\201c\201d!\266\376V\203\221\334\262B\204\253G\204\253 \204\253\201f \204\253J\203\277\205 ?\205K?\205\201g \207\201h\201i\201j\"\210\201k \203I=\204\337\201l\201m\201n\201o\"!I\201p#\203\201q\201n\315\201o\201r $\210\307\201s!\203 \201s \210\201h\201t!\210\334L\201u\322V!\207" [pure-space-overflow noninteractive command-line-args-left command-line-default-directory command-switch-alist command-line-x-option-alist display-startup-echo-area-message fboundp pdumper-stats display-warning initialization "Building Emacs overflowed pure space. (See the node Pure Storage in the Lisp manual for details.)" :warning nil append ("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") mapcar #[257 "\300@P\207" ["-"] 3 "\n\n(fn ELT)"] 0 #[1285 "\204\300!\204\301\302\"\207\303\304!\"\305!\306!\210\242B\240\210\211q\210\242\307U\2047eb\210\242Sy\210\307\240\210\242\310W\204H\311\242S!\210\307\240\207" [file-name-absolute-p message "Ignoring relative file name (%s) due to nil default-directory" expand-file-name command-line-normalize-file-name find-file-noselect file-name-history--add 0 1 move-to-column] 10 "\n\n(fn DISPLAYABLE-BUFFERS DIR LINE COLUMN NAME)"] string-match "^--" "" "\\`\\(--[^=]*\\)=" match-string 1 "\\`--?[^-]" try-completion t error "Option `%s' is ambiguous" assoc #s(hash-table size 13 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("-no-splash" 276 "-f" 282 "-funcall" 282 "-e" 282 "-eval" 320 "-execute" 320 "-L" 370 "-directory" 370 "-l" 482 "-load" 482 "-scriptload" 517 "-scripteval" 517 "-insert" 566)) intern commandp command-execute read-from-string "[ \n]*\\'" "Trailing garbage following expression: %s" eval format "\\`%s" expand-file-name command-line-normalize-file-name file-truename file-regular-p load file-exists-p "-scripteval" command-line--eval-script command-line--load-script "File name omitted from `-insert' option" insert-file-contents "-dump-file" "-seccomp" #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("-kill" 633 "-no-desktop" 640)) kill-emacs message "\"--no-desktop\" ignored because the Desktop package is not loaded" "^\\+[0-9]+\\'" string-to-number "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" 2 ("-find-file" "-file" "-visit") command-line-ns-option-alist argi inhibit-startup-screen path-separator load-path command-line-functions initial-window-system initial-buffer-choice initial-scratch-message face-font-rescale-alist inhibit-x-resources inhibit-startup-buffer-menu inhibit-startup-hooks "File name omitted from `%s' option" "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" "Ignoring obsolete arg %s" "--" "\\`-" "Unknown option `%s'" frame-live-p selected-frame get-scratch-buffer-create get-buffer "*scratch*" buffer-size substitute-command-keys set-buffer-modified-p find-file-noselect functionp "`initial-buffer-choice' must be a string, a function, or t" buffer-live-p "Value returned by `initial-buffer-choice' is not a live buffer: %S" delq switch-to-buffer switch-to-buffer-other-window other-window -1 reverse daemonp list-buffers run-hooks emacs-startup-hook term-setup-hook display-multi-font-p font-xlfd-name face-attribute default :font string-match-p set-face-attribute font-spec frame-notice-user-settings window-setup-hook display-startup-screen] 26 (#$ . 67085)])#@13 (fn FILE) (defalias 'command-line--load-script #[257 "\300\211\301\302\303%\207" [load-with-code-conversion nil t #[514 "rq\210eb\210\300\301!\203\302 \210\303\304\304\305%)\207" [looking-at "#!" delete-line eval-buffer nil t] 8 "\n\n(fn BUFFER FILE)"]] 7 (#$ . 73212)])#@13 (fn FILE) (defalias 'command-line--eval-script #[257 "\300\211\301\302\303%\207" [load-with-code-conversion nil t #[514 "rq\210eb\210\300\301!\203\302y\210\302\211\3031 \304p!\211\2620\202$\210\2020\2030\305\306\"\262\202\307\247\203:\202;\310!\266\202)\207" [looking-at "#!" nil 'end-of-file read eval t kill-emacs 0] 7 "\n\n(fn BUFFER _)"]] 7 (#$ . 73496)])#@78 Collapse multiple slashes to one, to handle non-Emacs file names. (fn FILE) (defalias 'command-line-normalize-file-name #[257 "\301 \302\303\"\216\304\305>\203\306\202\307\"\203 \310\311\312\211$\262\313>\2039\304\314\315#\203L\310\311\312\211$\262\202&\304\316\315#\203L\310\311\312\211$\262\2029)\207" [system-type match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] string-match (ms-dos windows-nt) "^\\([\\/][\\/][\\/]\\)+" "^///+" replace-match "/" t (ms-dos windows-nt) "\\([\\/][\\/]\\)+" 1 "//+"] 7 (#$ . 73880)])