mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-17 c4001ccd1864293b64aa37d83a9d9457eb875e70
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305\306\307#\203*\310\311\300!\205>\203*\312\313!\203*\313\314!\210\315\316\306\317\320\321\320\303&\207" [async-bytecomp-allowed-packages require cl-lib server shell async-bytecomp nil t magit boundp fboundp async-bytecomp-package-mode 1 custom-declare-group with-editor "Use the Emacsclient as $EDITOR." :group external] 8)
16 #@47 Search for a suitable Emacsclient executable.
17 (defalias 'with-editor-locate-emacsclient #[0 "\301\302 \303\304\"G\"\206\305\306\307\310\"\210\207" [emacs-version with-editor-locate-emacsclient-1 with-editor-emacsclient-path split-string "\\." nil display-warning with-editor "Cannot determine a suitable Emacsclient\n\nDetermining an Emacsclient executable suitable for the\ncurrent Emacs instance failed.  For more information\nplease see https://github.com/magit/magit/wiki/Emacsclient."] 5 (#$ . 797)])
18 #@19 
19
20 (fn PATH DEPTH)
21 (defalias 'with-editor-locate-emacsclient-1 #[514 "\303\304\305\"\306#\307\310\311\305#P\312    \227\313\232\203\314\202\315\316\317\320\302!\205*\321\322\n\"C\323\324\325\n!\"\244\326\327\330E\244\"\331\332\333\334\335    !\336\"\337\340%$\206T\341V\205T\342S\"\207" [emacs-version invocation-name debian-emacs-flavor cl-subseq split-string "\\." 0 "^" mapconcat identity locate-file-internal "remacs" "remacsclient" "emacsclient" cl-mapcan #[257 "\301\302\303\304\305\306!\307\"\310\311%\"\207" [exec-suffixes cl-mapcar make-byte-code 257 "\300P\207" vconcat vector [] 3 "\n\n(fn E)"] 8 "\n\n(fn V)"] boundp format ".%s" cl-mapcon #[257 "\300\301\302!\303#\262\211\304P\305PE\207" [mapconcat identity reverse "." "-" ".emacs"] 5 "\n\n(fn V)"] reverse "" "-snapshot" ".emacs-snapshot" make-byte-code 257 "\3021\300\303!\304\305\306#)\266\2030\207\210\304\207" vconcat vector [inhibit-changing-match-data (error) with-editor-emacsclient-version nil t string-match] 8 "\n\n(fn EXEC)" 1 with-editor-locate-emacsclient-1] 14 (#$ . 1312)])
22 #@13 
23
24 (fn EXEC)
25 (defalias 'with-editor-emacsclient-version #[257 "\301!\3021\303\304\305\"@!A@0\202\210\306)\207" [default-directory file-name-directory (error) split-string process-lines "--version" nil] 5 (#$ . 2397)])
26 (defalias 'with-editor-emacsclient-path #[0 "    \203Z\305    !B\262\306\n    \"\307!\211\232\204\"\305\310!!B\262\266 \311=\203Z\306\312    \"\313!\2039\211B\262\210\314    \315\316\317#)\266\203\203Z\306\320    \"\313!\203Y\211B\262\210\321\322\323#\207" [exec-path invocation-directory invocation-name system-type inhibit-changing-match-data directory-file-name expand-file-name file-chase-links file-name-directory darwin "bin" file-directory-p "Cellar" nil t string-match "../../../bin" cl-remove-duplicates :test equal] 8])
27 (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\315\316\306\307\310\317&    \210\300\320\302\303\321DD\322\306\307\310\323&\210\324\320\325\326#\210\300\327\302\303\330DD\331\306\307\310\323&\210\324\327\325\326#\210\300\332\302\303\333DD\334\306\307\310\335&\207" [custom-declare-variable with-editor-emacsclient-executable funcall function #[0 "\300 \207" [with-editor-locate-emacsclient] 1] "The Emacsclient executable used by the `with-editor' macro." :group with-editor :type (choice (string :tag "Executable") (const :tag "Don't use Emacsclient" nil)) with-editor-sleeping-editor #[0 "\300\207" [#1="sh -c 'echo \"WITH-EDITOR: $$ OPEN $0 IN $(pwd)\"; sleep 604800 & sleep=$!; trap \"kill $sleep; exit 0\" USR1; trap \"kill $sleep; exit 1\" USR2; wait $sleep'"] 1 #1#] "The sleeping editor, used when the Emacsclient cannot be used.\n\nThis fallback is used for asynchronous processes started inside\nthe macro `with-editor', when the process runs on a remote machine\nor for local processes when `with-editor-emacsclient-executable'\nis nil (i.e. when no suitable Emacsclient was found, or the user\ndecided not to use it).\n\nWhere the latter uses a socket to communicate with Emacs' server,\nthis substitute prints edit requests to its standard output on\nwhich a process filter listens for such requests.  As such it is\nnot a complete substitute for a proper Emacsclient, it can only\nbe used as $EDITOR of child process of the current Emacs instance.\n\nSome shells do not execute traps immediately when waiting for a\nchild process, but by default we do use such a blocking child\nprocess.\n\nIf you use such a shell (e.g. `csh' on FreeBSD, but not Debian),\nthen you have to edit this option.  You can either replace \"sh\"\nwith \"bash\" (and install that), or you can use the older, less\nperformant implementation:\n\n  \"sh -c '\\\n  echo \\\"WITH-EDITOR: $$ OPEN $0 IN $(pwd)\\\"; \\\n  trap \\\"exit 0\\\" USR1; \\\n  trap \\\"exit 1\" USR2; \\\n  while true; do sleep 1; done'\"\n\nNote that the unit seperator character () right after the file\nname ($0) is required.\n\nAlso note that using this alternative implementation leads to a\ndelay of up to a second.  The delay can be shortened by replacing\n\"sleep 1\" with \"sleep 0.01\", or if your implementation does\nnot support floats, then by using \"nanosleep\" instead." :package-version (with-editor . "2.8.0") string with-editor-finish-query-functions #[0 "\300\207" [nil] 1] "List of functions called to query before finishing session.\n\nThe buffer in question is current while the functions are called.\nIf any of them returns nil, then the session is not finished and\nthe buffer is not killed.  The user should then fix the issue and\ntry again.  The functions are called with one argument.  If it is\nnon-nil then that indicates that the user used a prefix argument\nto force finishing the session despite issues.  Functions should\nusually honor that and return non-nil." hook put permanent-local t with-editor-cancel-query-functions #[0 "\300\207" [nil] 1] "List of functions called to query before canceling session.\n\nThe buffer in question is current while the functions are called.\nIf any of them returns nil, then the session is not canceled and\nthe buffer is not killed.  The user should then fix the issue and\ntry again.  The functions are called with one argument.  If it is\nnon-nil then that indicates that the user used a prefix argument\nto force canceling the session despite issues.  Functions should\nusually honor that and return non-nil." with-editor-mode-lighter #[0 "\300\207" [#2=" WE"] 1 #2#] "The mode-line lighter of the With-Editor mode." (choice (const :tag "No lighter" "") string)] 10)
28 #@364 Alist of filename patterns vs corresponding `server-window'.
29
30 Each element looks like (REGEXP . FUNCTION).  Files matching
31 REGEXP are selected using FUNCTION instead of the default in
32 `server-window'.
33
34 Note that when a package adds an entry here then it probably
35 has a reason to disrespect `server-window' and it likely is
36 not a good idea to change such entries.
37 (defvar with-editor-server-window-alist nil (#$ . 6911))
38 #@241 List of regexps for filenames `server-visit' should not remember.
39 When a filename matches any of the regexps, then `server-visit'
40 does not add it to the variable `file-name-history', which is
41 used when reading a filename in the minibuffer.
42 (defvar with-editor-file-name-history-exclude nil (#$ . 7338))
43 (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&    \207" [custom-declare-variable with-editor-shell-command-use-emacsclient funcall function #[0 "\300\207" [t] 1] "Whether to use the emacsclient when running shell commands.\n\nThis affects `with-editor-shell-command-async' and, if the input\nends with \"&\" `with-editor-shell-command' .\n\nIf `shell-command-with-editor-mode' is enabled, then it also\naffects `shell-command-async' and, if the input ends with \"&\"\n`shell-command'.\n\nThis is a temporary kludge that lets you choose between two\npossible defects, the ones described in the issues #23 and #40.\n\nWhen t, then use the emacsclient.  This has the disadvantage that\n`with-editor-mode' won't be enabled because we don't know whether\nthis package was involved at all in the call to the emacsclient,\nand when it is not, then we really should.  The problem is that\nthe emacsclient doesn't pass a long any environment variables to\nthe server.  This will hopefully be fixed in Emacs eventually.\n\nWhen nil, then use the sleeping editor.  Because in this case we\nknow that this package is involved, we can enable the mode.  But\nthis makes it necessary that you invoke $EDITOR in shell scripts\nlike so:\n\n  eval \"$EDITOR\" file\n\nAnd some tools that do not handle $EDITOR properly also break." :package-version (with-editor . "2.7.1") :group with-editor :type boolean] 10)
44 (defvar with-editor-pre-finish-hook nil)
45 (defvar with-editor-pre-cancel-hook nil)
46 (defvar with-editor-post-finish-hook nil)
47 (defvar with-editor-post-finish-hook-1 nil)
48 (defvar with-editor-post-cancel-hook nil)
49 (defvar with-editor-post-cancel-hook-1 nil)
50 (defvar with-editor-cancel-alist nil)
51 (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\207" [put with-editor-pre-finish-hook permanent-local t with-editor-pre-cancel-hook with-editor-post-finish-hook with-editor-post-cancel-hook] 4)
52 (defvar with-editor-show-usage t)
53 (defvar with-editor-cancel-message nil)
54 (defvar with-editor-previous-winconf nil)
55 (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\302\305\306#\210\304\303\305\306#\207" [make-variable-buffer-local with-editor-show-usage with-editor-cancel-message with-editor-previous-winconf put permanent-local t] 4)
56 #@19 For internal use.
57 (defvar with-editor--pid nil (#$ . 9929))
58 (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local with-editor--pid put permanent-local t] 4)
59 #@46 Finish the current edit session.
60
61 (fn FORCE)
62 (defalias 'with-editor-finish #[257 "\303\304\"\205P\305\301!\205    \n\306\307!\210\310\311!\210\312\311\313\"\210\314\315!r\211q\210\316\317\320\321\322!\323\"\324$\216\325\300!\210\305\301!\203H    \203H\325\301!\210\306\300!*\262\266\203\207" [with-editor-post-finish-hook git-commit-post-finish-hook default-directory run-hook-with-args-until-failure with-editor-finish-query-functions boundp run-hooks with-editor-pre-finish-hook with-editor-return nil accept-process-output 0.1 generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 make-local-variable] 11 (#$ . 10114) "P"])
63 #@46 Cancel the current edit session.
64
65 (fn FORCE)
66 (defalias 'with-editor-cancel #[257 "\304\305\"\205Q\306!\203\211 \262    \307\n\310\311!\210\312\313!\210\314\307\315\"\210\316\317!r\211q\210\320\321\322\323\324!\325\"\326$\216\327\301!\210\310\301!\210*\210)\266\330\206N\331!\262\207" [with-editor-cancel-message with-editor-post-cancel-hook default-directory with-editor-cancel-alist run-hook-with-args-until-failure with-editor-cancel-query-functions functionp nil run-hooks with-editor-pre-cancel-hook with-editor-return t accept-process-output 0.1 generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 make-local-variable message "Canceled by user"] 12 (#$ . 10823) "P"])
67 #@15 
68
69 (fn CANCEL)
70 (defalias 'with-editor-return #[257 "    \n \305\306\307\310#\210\203R\311 \210\203<\211\2038\211@\3121(\313\314\"0\202,\210\202-\210\315!\210A\266\202\202\210\202b\3161G\317\f!0\202K\210\202L\210\320 \210\202b\311 \210\203_\321 \210\202b\320 \210\211\203~\322\323\324\211\211\325\n\203w\326\202x\327&\210)\205\216\330!\331 =\205\216\332!\207" [with-editor-previous-winconf server-buffer-clients default-directory with-editor--pid buffer-file-name remove-hook kill-buffer-query-functions with-editor-kill-buffer-noop t save-buffer (error) server-send-string "-error Canceled by user" delete-process (error) delete-file kill-buffer server-done process-file "kill" nil "-s" "USR2" "USR1" window-configuration-frame selected-frame set-window-configuration] 13 (#$ . 11586)])
71 (defvar with-editor-mode-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\303#\210\301\306\303#\210\301\307\310#\210\301\311\310#\210\301\312\310#\210\301\313\310#\210\301\314\310#\210\211\207" [make-sparse-keymap define-key "" with-editor-finish [remap server-edit] [remap evil-save-and-close] [remap evil-save-modified-and-close] " " with-editor-cancel [remap kill-buffer] [remap ido-kill-buffer] [remap iswitchb-kill-buffer] [remap evil-quit]] 5))
72 #@101 Non-nil if With-Editor mode is enabled.
73 Use the command `with-editor-mode' to change this variable.
74 (defvar with-editor-mode nil (#$ . 12891))
75 (make-variable-buffer-local 'with-editor-mode)
76 #@72 Edit a file as the $EDITOR of an external process.
77
78 (fn &optional ARG)
79 (defalias 'with-editor-mode #[256 "\302 \303=\203 ?\202\304!\305V\211\204\306\307!\210\310\311\312\313\314$\210    \203)\315 \210\316\317\2033\320\2024\321\"\210\322\323!\203X\302 \203H\211\302 \232\203X\324\325\326\203S\327\202T\330#\266\210\331 \210\207" [with-editor-mode with-editor-show-usage current-message toggle prefix-numeric-value 0 user-error "With-Editor mode cannot be turned off" add-hook kill-buffer-query-functions with-editor-kill-buffer-noop nil t with-editor-usage-message run-hooks with-editor-mode-hook with-editor-mode-on-hook with-editor-mode-off-hook called-interactively-p any " in current buffer" message "With-Editor mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 13087) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
80 (defvar with-editor-mode-hook nil)
81 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\210\303\306\312\313#\207" [with-editor-mode-map with-editor-mode-hook variable-documentation put "Hook run after entering or leaving `with-editor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode with-editor-mode with-editor-mode-lighter boundp nil permanent-local t] 6)
82 (defalias 'with-editor-kill-buffer-noop #[0 "\300\301\302!!\207" [user-error substitute-command-keys "Don't kill this buffer.  Instead cancel using \\[with-editor-cancel]"] 3])
83 (defalias 'with-editor-usage-message #[0 "\300\301\302\303\302\304p\305BBE#\207" [run-with-timer 0.01 nil lambda with-current-buffer ((message (substitute-command-keys "Type \\[with-editor-finish] to finish, or \\[with-editor-cancel] to cancel")))] 8])
84 #@19 For internal use.
85 (defvar with-editor--envvar nil (#$ . 14880))
86 #@279 Use the Emacsclient as $EDITOR while evaluating BODY.
87 Modify the `process-environment' for processes started in BODY,
88 instructing them to use the Emacsclient as $EDITOR.  If optional
89 ENVVAR is a literal string then bind that environment variable
90 instead.
91
92 (fn [ENVVAR] BODY...)
93 (defalias 'with-editor '(macro . #[128 "\300\301@;\203\211A\262\242\202\302D\303B\304BBB\207" [let with-editor--envvar (or with-editor--envvar "EDITOR") ((process-environment process-environment)) (with-editor--setup)] 5 (#$ . 14951)]))
94 (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-editor lisp-indent-function defun put edebug-form-spec (body)] 5)
95 #@288 Use the Emacsclient as the editor while evaluating BODY.
96 Modify the `process-environment' for processes started in BODY,
97 instructing them to use the Emacsclient as editor.  ENVVAR is the
98 environment variable that is exported to do so, it is evaluated
99 at run-time.
100
101 (fn [ENVVAR] BODY...)
102 (defalias 'with-editor* '(macro . #[385 "\300\301D\302B\303BBB\207" [let with-editor--envvar ((process-environment process-environment)) (with-editor--setup)] 6 (#$ . 15618)]))
103 (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-editor* lisp-indent-function defun put edebug-form-spec (sexp body)] 5)
104 (defalias 'with-editor--setup #[0 "\203\n\306    !\203\n\307 Q\fB\211\207\310\311\312\"\204\313\314!\204@\315!\203=\316\317\320 \"\315!\203=\321!\210\322 \210\n\307\323! ?\205T\324\323\325\"!PR\fB \203g\326\325\"P\fB\327 P\fB\211\207" [with-editor-emacsclient-executable default-directory with-editor--envvar with-editor-sleeping-editor process-environment server-use-tcp file-remote-p "=" featurep make-network-process (:family local) t process-live-p server-running-p format "server%s" emacs-pid server-force-delete server-start shell-quote-argument " --socket-name=" expand-file-name "EMACS_SERVER_FILE=" "ALTERNATE_EDITOR=" server-process server-name server-socket-dir server-auth-dir] 8])
105 (defalias 'with-editor-server-window #[0 "\203\f\303\304    \"A\206 \n\207" [buffer-file-name with-editor-server-window-alist server-window cl-find-if #[257 "\211@\302\303\304#)\207" [buffer-file-name inhibit-changing-match-data nil t string-match] 8 "\n\n(fn CONS)"]] 3])
106 #@104 Honor `with-editor-server-window-alist' (which see).
107
108 (fn FN &optional NEXT-BUFFER KILLED-ONE FILEPOS)
109 (defalias 'server-switch-buffer--with-editor-server-window-alist #[1025 "r\206pq\210\203\303 \304 )#)\207" [with-editor-mode with-editor-previous-winconf server-window current-window-configuration with-editor-server-window] 8 (#$ . 17238)])
110 (advice-add 'server-switch-buffer :around 'server-switch-buffer--with-editor-server-window-alist)
111 #@523 When called inside a `with-editor' form and the Emacsclient
112 cannot be used, then give the process the filter function
113 `with-editor-process-filter'.  To avoid overriding the filter
114 being added here you should use `with-editor-set-process-filter'
115 instead of `set-process-filter' inside `with-editor' forms.
116
117 When the `default-directory' is located on a remote machine,
118 then also manipulate PROGRAM and PROGRAM-ARGS in order to set
119 the appropriate editor environment variable.
120
121 (fn FN NAME BUFFER PROGRAM &rest PROGRAM-ARGS)
122 (defalias 'start-file-process--with-editor-process-filter #[1156 "\204\f\303%\207\304    !\203(\305\232\204 B\262\305\262\306\nQB\262\303%\307\310\"\210\311\312    #\210\211\207" [with-editor--envvar default-directory with-editor-sleeping-editor apply file-remote-p "env" "=" set-process-filter with-editor-process-filter process-put default-dir] 11 (#$ . 17699)])
123 (advice-add 'start-file-process :around 'start-file-process--with-editor-process-filter)
124 #@474 Like `set-process-filter' but keep `with-editor-process-filter'.
125 Give PROCESS the new FILTER but keep `with-editor-process-filter'
126 if that was added earlier by the adviced `start-file-process'.
127
128 Do so by wrapping the two filter functions using a lambda, which
129 becomes the actual filter.  It calls `with-editor-process-filter'
130 first, passing t as NO-STANDARD-FILTER.  Then it calls FILTER,
131 which may or may not insert the text into the PROCESS' buffer.
132
133 (fn PROCESS FILTER)
134 (defalias 'with-editor-set-process-filter #[514 "\300\301!\302=\203\303\304\305B\306BBB\202\"\207" [set-process-filter process-filter with-editor-process-filter lambda (proc str) (proc str) ((with-editor-process-filter proc str t))] 8 (#$ . 18700)])
135 (defvar with-editor-filter-visit-hook nil)
136 #@15 
137
138 (fn STRING)
139 (defalias 'with-editor-output-filter #[257 "\302 \303\304\305\306\307!\310\"\311$\216\312\313\"\203\\\314\315\"\314\316\"\314\311\"\317!\204-\320\"\262\2038\321!P\262r\322!q\210\323\315!\210\324\325!\210\326 \206N\327p!\210\330\331!\210)\332\266\203\202])\207" [default-directory with-editor--pid match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "^WITH-EDITOR: \\([0-9]+\\) OPEN \\([^]+?\\)\\(?: IN \\([^ ]+?\\)\\)? ?$" match-string 1 2 file-name-absolute-p expand-file-name file-remote-p find-file-noselect with-editor-mode run-hooks with-editor-filter-visit-hook with-editor-server-window switch-to-buffer kill-local-variable server-window nil] 8 (#$ . 19480)])
140 #@95 Listen for edit requests by child processes.
141
142 (fn PROCESS STRING &optional NO-DEFAULT-FILTER)
143 (defalias 'with-editor-process-filter #[770 "\301\302\"\303!\210)\211?\205\304\"\207" [default-directory process-get default-dir with-editor-output-filter internal-default-process-filter] 6 (#$ . 20245)])
144 (advice-add 'server-visit-files :after 'server-visit-files--with-editor-file-name-history-exclude)
145 #@36 
146
147 (fn FILES PROC &optional NOWAIT)
148 (defalias 'server-visit-files--with-editor-file-name-history-exclude #[770 "\211\205+\211@\211@\211\302\303\304\305\306\307!\310\"\311\312%\"\203\"\313    \"\266A\266\202\202\207" [with-editor-file-name-history-exclude file-name-history cl-find-if make-byte-code 257 "\211\300\302\303\304#)\207" vconcat vector [inhibit-changing-match-data nil t string-match] 8 "\n\n(fn REGEXP)" delete] 14 (#$ . 20656)])
149 #@339 Teach subsequent commands to use current Emacs instance as editor.
150
151 Set and export the environment variable ENVVAR, by default
152 "EDITOR".  The value is automatically generated to teach
153 commands to use the current Emacs instance as "the editor".
154
155 This works in `shell-mode', `term-mode' and `eshell-mode'.
156
157 (fn &optional (ENVVAR "EDITOR"))
158 (defalias 'with-editor-export-editor #[128 "\211\203 \211A\262\242\202\301\203\302\303\304GTD\"\210\305\306\307\"\203U\310p!\311!b\210\312\313\314\315!#\"\210\316\317\"\2045\305\307!\203J\320\321\"\210\202Q\322\323\324\325\326$\210\210\202l\305\327!\203h\330\331\324\"\210\332\"\210\202l\333\334!\210\335\336\"\207" [with-editor-sleeping-editor "EDITOR" signal wrong-number-of-arguments with-editor-export-editor derived-mode-p comint-mode term-mode get-buffer-process process-mark process-send-string format " export %s=%s\n" shell-quote-argument accept-process-output 0.1 with-editor-set-process-filter with-editor-emulate-terminal add-hook comint-output-filter-functions with-editor-output-filter nil t eshell-mode add-to-list eshell-preoutput-filter-functions setenv error "Cannot export environment variables in this buffer" message "Successfully exported %s"] 10 (#$ . 21117) (byte-code "\300 C\207" [with-editor-read-envvar] 1)])
159 #@64 Like `with-editor-export-editor' but always set `$GIT_EDITOR'.
160 (defalias 'with-editor-export-git-editor #[0 "\300\301!\207" [with-editor-export-editor "GIT_EDITOR"] 2 (#$ . 22423) nil])
161 #@63 Like `with-editor-export-editor' but always set `$HG_EDITOR'.
162 (defalias 'with-editor-export-hg-editor #[0 "\300\301!\207" [with-editor-export-editor "HG_EDITOR"] 2 (#$ . 22615) nil])
163 #@82 Like `term-emulate-terminal' but also handle edit requests.
164
165 (fn PROCESS STRING)
166 (defalias 'with-editor-emulate-terminal #[514 "\300!\205\n\301\"\207" [with-editor-output-filter term-emulate-terminal] 5 (#$ . 22804)])
167 (defvar with-editor-envvars '("EDITOR" "GIT_EDITOR" "HG_EDITOR"))
168 #@73 
169
170 (fn &optional (PROMPT "Set environment variable") (DEFAULT "EDITOR"))
171 (defalias 'with-editor-read-envvar #[128 "\211\203 \211A\262\242\202\301\203\211A\262\242\202\302\203+\303\304\305\306G\\D\"\210\307\2038\310\311#\202;\312P\313\211\211\211&\211\314\230\203P\315\316!\202Q\211\262\207" [with-editor-envvars "Set environment variable" "EDITOR" signal wrong-number-of-arguments with-editor-read-envvar 2 completing-read format "%s (%s): " ": " nil "" user-error "Nothing selected"] 11 (#$ . 23098)])
172 (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable shell-command-with-editor-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Shell-Command-With-Editor mode is enabled.\nSee the `shell-command-with-editor-mode' command\nfor a description of this minor mode." :set custom-set-minor-mode :initialize custom-initialize-default :group shell-command-with-editor :type boolean] 12)
173 #@708 Teach `shell-command' to use current Emacs instance as editor.
174
175 Teach `shell-command', and all commands that ultimately call that
176 command, to use the current Emacs instance as editor by executing
177 "EDITOR=CLIENT COMMAND&" instead of just "COMMAND&".
178
179 CLIENT is automatically generated; EDITOR=CLIENT instructs
180 COMMAND to use to the current Emacs instance as "the editor",
181 assuming no other variable overrides the effect of "$EDITOR".
182 CLIENT may be the path to an appropriate emacsclient executable
183 with arguments, or a script which also works over Tramp.
184
185 Alternatively you can use the `with-editor-async-shell-command',
186 which also allows the use of another variable instead of
187 "EDITOR".
188
189 (fn &optional ARG)
190 (defalias 'shell-command-with-editor-mode #[256 "\300 \301\302\303=\203\304\302!?\202\305!\306V\"\210\307\310\304\302!\203$\311\202%\312\"\210\313\314!\203O\315\302!\210\300 \203=\211\300 \232\203O\316\317\320\304\302!\203J\321\202K\322#\266\210\323 \210\304\302!\207" [current-message set-default shell-command-with-editor-mode toggle default-value prefix-numeric-value 0 run-hooks shell-command-with-editor-mode-hook shell-command-with-editor-mode-on-hook shell-command-with-editor-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Shell-Command-With-Editor mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 24073) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
191 (defvar shell-command-with-editor-mode-hook nil)
192 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [shell-command-with-editor-mode-map shell-command-with-editor-mode-hook variable-documentation put "Hook run after entering or leaving `shell-command-with-editor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode shell-command-with-editor-mode nil boundp] 6)
193 #@743 Like `async-shell-command' but with `$EDITOR' set.
194
195 Execute string "ENVVAR=CLIENT COMMAND" in an inferior shell;
196 display output, if any.  With a prefix argument prompt for an
197 environment variable, otherwise the default "EDITOR" variable
198 is used.  With a negative prefix argument additionally insert
199 the COMMAND's output at point.
200
201 CLIENT is automatically generated; ENVVAR=CLIENT instructs
202 COMMAND to use to the current Emacs instance as "the editor",
203 assuming it respects ENVVAR as an "EDITOR"-like variable.
204 CLIENT may be the path to an appropriate emacsclient executable
205 with arguments, or a script which also works over Tramp.
206
207 Also see `async-shell-command' and `shell-command'.
208
209 (fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER ENVVAR)
210 (defalias 'with-editor-async-shell-command #[1025 "\211\211\206\302    \303 \210\304#+\207" [with-editor--envvar process-environment "EDITOR" with-editor--setup async-shell-command] 8 (#$ . 26015) (with-editor-shell-command-read-args "Async shell command: " t)])
211 #@189 Like `shell-command' or `with-editor-async-shell-command'.
212 If COMMAND ends with "&" behave like the latter,
213 else like the former.
214
215 (fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER ENVVAR)
216 (defalias 'with-editor-shell-command #[1025 "\300\301\"\203\302$\207\303#\207" [string-match "&[     ]*\\'" with-editor-async-shell-command shell-command] 9 (#$ . 27032) (with-editor-shell-command-read-args "Shell command: ")])
217 #@31 
218
219 (fn PROMPT &optional ASYNC)
220 (defalias 'with-editor-shell-command-read-args #[513 "\305\306\211\206    \307=\205\310\306\311\"\211\205\312!\262$\211\2044\313\306\311\314#)\266\203\211\262\203<\315 !\316W\202= \f\205H \205H\317 F\207" [buffer-file-name major-mode inhibit-changing-match-data current-prefix-arg shell-command-default-error-buffer read-shell-command nil dired-mode dired-get-filename t file-relative-name "&[     ]*\\'" string-match prefix-numeric-value 0 with-editor-read-envvar] 11 (#$ . 27461)])
221 #@56 
222
223 (fn FN COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER)
224 (defalias 'shell-command--shell-command-with-editor-mode #[1026 "\306\307\"    \204 \n\203\310\311\312\313#)\266\203\204%#\202y\f\203J \203J\314!\204J    \2069\315\316 \210#*\202y\317\320\321    \206S\315\322!$$\210\3231w\324\206j\325\326!!\327\330\"\210\211\2620\202y\210\311)\207" [shell-mode-hook with-editor--envvar shell-command-with-editor-mode inhibit-changing-match-data with-editor-shell-command-use-emacsclient with-editor-emacsclient-executable remove with-editor-export-editor "&\\'" nil t string-match file-remote-p "EDITOR" with-editor--setup apply format "%s=%s %s" shell-quote-argument (error) get-buffer-process get-buffer "*Async Shell Command*" set-process-filter #[514 "\300\"\210\301\302#\207" [comint-output-filter with-editor-process-filter t] 6 "\n\n(fn PROC STR)"] default-directory process-environment with-editor-sleeping-editor] 11 (#$ . 27998)])
225 (advice-add 'shell-command :around 'shell-command--shell-command-with-editor-mode)
226 #@86 Debug configuration issues.
227 See info node `(with-editor)Debugging' for instructions.
228 (defalias 'with-editor-debug #[0 "r\306\307!q\210\310p!\210\311 \210\3121 \206\313    \314 *0\202$\210\202%\210\315\316\317\320!\"\315\321\322\n \"\f#\323\315\324 \"\315\325=\"\315\326>\"\327\315\330\331 \"\315\332?\"\315\333@\"\315\334A\"\315\335B\"\261\f\210B\203\210\336B!\203\210\337B\340\341#\211\203\204\211@\315\342\"c\210A\266\202\202q\210\202\227\315\343@\203\223\344\202\224\345\"c\210\315\346C\"c\210\336C!\203\302\337C\340\341#\211\203\276\211@\315\342\"c\210A\266\202\202\253\210\202\321\315\343@\203\315\345\202\316\344\"c\210(\347\350!\351\211DE\352 *\353\315\354\211\205\353\355!#\315\356\211\205\367\355!#\315\357\211\205\355!#\261\266\360\315\361\362\363!\"\315\364F\"\261\210\315\365!c\210\366 \211\205W\211@\315\367\370!@#c\210\371!\203P\337\372\373#\211\203O\211@\315\374\355!#c\210A\266\202\2029\210A\266\202\202\262)\207" [with-editor--envvar process-environment invocation-name invocation-directory emacs-version system-type get-buffer-create "*with-editor-debug*" pop-to-buffer erase-buffer (error) "EDITOR" with-editor--setup format "with-editor: %s\n" locate-library "with-editor.el" "emacs: %s (%s)\n" expand-file-name "system:\n" "  system-type: %s\n" "  system-configuration: %s\n" "  system-configuration-options: %s\n" "server:\n" "  server-running-p: %s\n" server-running-p "  server-process: %S\n" "  server-use-tcp: %s\n" "  server-name: %s\n" "  server-socket-dir: %s\n" file-accessible-directory-p directory-files nil "^[^.]" "    %s\n" "    %s: not an accessible directory\n" "WARNING" "ERROR" "  server-auth-dir: %s\n" default-value with-editor-emacsclient-executable :error with-editor-locate-emacsclient "with-editor-emacsclient-executable:\n" " value:   %s (%s)\n" with-editor-emacsclient-version " default: %s (%s)\n" " funcall: %s (%s)\n" "path:\n" "  $PATH: %S\n" getenv "PATH" "  exec-path: %s\n" "  with-editor-emacsclient-path:\n" with-editor-emacsclient-path "    %s (%s)\n" file-attributes file-directory-p t "emacsclient\\(?:[^w]\\|\\'\\)" "      %s (%s)\n" system-configuration system-configuration-options server-process server-use-tcp server-name server-socket-dir server-auth-dir warning-minimum-log-level warning-minimum-level exec-path] 14 (#$ . 29058) nil])
229 (defconst with-editor-font-lock-keywords '(("(\\(with-\\(?:git-\\)?editor\\)\\_>" (1 'font-lock-keyword-face))))
230 (byte-code "\301\302\"\210\303\304!\207" [with-editor-font-lock-keywords font-lock-add-keywords emacs-lisp-mode provide with-editor] 3)