Current File : //kunden/usr/share/emacs/27.2/lisp/files-x.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@216 Read file-local variable using PROMPT and completion.
Intended to be used in the `interactive' spec of
`add-file-local-variable', `delete-file-local-variable',
`add-dir-local-variable', `delete-dir-local-variable'.
(defalias 'read-file-local-variable #[(prompt) "\304 \2119\205\305!\205\306!\307\203\310\311	#\202#\310\312	\"\n\313\314\211\211\314&\211;\2055\315!+\207" [default prompt obarray variable variable-at-point boundp symbol-name completing-read format "%s (default %s): " "%s: " #[(sym) "\301!\206\302N\206\303>\207" [sym custom-variable-p safe-local-variable (mode eval coding unibyte)] 2] nil intern] 10 (#$ . 409)])
#@158 Read value of file-local VARIABLE using completion.
Intended to be used in the `interactive' spec of
`add-file-local-variable' and `add-dir-local-variable'.
(defalias 'read-file-local-variable-value #[(variable) "\306\267\202]	9\205\307	!\310\n\203\311\312\n#\202 \311\313\"\314\315\211\211\n\315&\211;\2056\316\317\320\321\f#!*\207\322\311\323\"!\207
9\205G\307
!\324\n\203U\311\312\n#\202Y\311\313\"\n\")\207\311\325\326=\203i\327\202q\330!\205qJ\"\327\331\311\313\"\315\327\332\n&*\207" [variable major-mode default obarray value buffer-file-coding-system #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (mode 6 eval 56 coding 63)) symbol-name completing-read format "Add %s with value (default %s): " "Add %s with value: " #[(sym) "\302\303!\304\305\306#)\207" [sym inhibit-changing-match-data "-mode\\'" symbol-name nil t string-match] 7] nil intern replace-regexp-in-string "-mode\\'" "" read--expression "Add %s with expression: " read-coding-system "%S" unibyte t boundp read-from-minibuffer set-variable-value-history minibuffer-completing-symbol read-expression-map] 10 (#$ . 1071)])
#@169 Read per-directory file-local variable's mode using completion.
Intended to be used in the `interactive' spec of
`add-dir-local-variable', `delete-dir-local-variable'.
(defalias 'read-file-local-variable-mode #[nil "9\205\304!\305	\203\306\307	\"\202\306\310!\n\311\312\211\211	\312&\211\313\232\203,\312\202@;\203?\314\315!!\203?\315!\202@*\207" [major-mode default obarray mode symbol-name completing-read format "Mode or subdirectory (default %s): " "Mode or subdirectory: " #[(sym) "\303\304!\305\306\307#)\266\203\205(\n>\206'\310\304!\305\306\307#)\266\203?\207" [sym inhibit-changing-match-data minor-mode-list "-mode\\'" symbol-name nil t string-match "-minor-mode\\'"] 7] nil "nil" fboundp intern] 10 (#$ . 2248)])
(defalias 'modify-file-local-variable-message #[(variable value op) "\306\307!	\310\267\202\n\202#\202#	9\203\"\311	!\203\"	J\202#
\312=\203Q	\313\267\202<\314\302!\202\201\314\303!\202\201	9\203M\315	!\203M\314	!\202\201\202\201	\316=\203\317\320\"\321\322\323\324#)\266\203\203u\202{\325\326P!)\202\201\f=\204\230=\204\230\f\232?\205\236\327\330\331\332!\"+\207" [not-value variable major-mode buffer-file-coding-system old-value op make-symbol "" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (mode 10 coding 14)) boundp delete #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (mode 48 coding 54)) default-value default-boundp mode format "%S" "-mode\\'" nil t string-match intern "-mode" message "%s" substitute-command-keys "For this change to take effect revisit file using \\[revert-buffer]" value string inhibit-changing-match-data new-value] 7])
#@593 Modify file-local VARIABLE in Local Variables depending on operation OP.

If OP is `add-or-replace' then delete all existing settings of
VARIABLE (except `mode' and `eval') and add a new file-local VARIABLE
with VALUE to the Local Variables list.

If there is no Local Variables list in the current file buffer and OP
is not `delete' then this function adds the first line containing the
string `Local Variables:' and the last line containing the string `End:'.

If OP is `delete' then delete all existing settings of VARIABLE
from the Local Variables list ignoring the input argument VALUE.
(defalias 'modify-file-local-variable #[(variable value op &optional interactive) "\3062*
`\307\211\204\310\306\311\312!\"\210~\210db\210\313\314d\315Ze]\316#\210\317\320\321\307\317#)\204m
\322=\203?\310\306\nb\210\311\323!\"\210db\210\324-\206I\325-.\326`\211\327c\210`\"\210*\317\nb\210\320\321\307\317#)\204m\310\306\311\330!\"\210\331 \332\224{/`\333 {0\334\335/!P1\3350!\336P2\337y\210`\212\317\3401\3412Q\307\317#)\204\253\212\342\343/0#c\210)\344 \210\345 )
\346>\203\352
\347=\203\3133\350>\203\313	b\210\202\352\nb\210\340\342\351132$	\317#\203\352\332\224\332\225T|\210`\202\316
\347=\203
3\352=\203\375\nb\210\202
\204
	b\210\202
\203
b\210\342\353/340%c\210,5\205(
\35434
#+0\207" [replaced-pos end beg enable-local-variables case-fold-search op exit nil throw message "File-local variables are disabled" search-backward "\n\f" 3000 move t search-forward "Local Variables:" delete "Local Variables not found" plain ";; " comment-region "\nLocal Variables:\nEnd:\n" "Can't add file-local variables" line-beginning-position 0 line-end-position "^" regexp-quote "$" 1 re-search-forward "[ 	]*End:[ 	]*" format "%sEnd:%s\n" beginning-of-line point-marker (add-or-replace delete) add-or-replace (mode eval) "%s%S:.*%s" mode "%s%S: %S%s\n" modify-file-local-variable-message comment-start comment-style prefix suffix prefix-re suffix-re variable value interactive] 6 (#$ . 3995)])
#@419 Add file-local VARIABLE with its VALUE to the Local Variables list.

This command deletes all existing settings of VARIABLE (except `mode'
and `eval') and adds a new file-local VARIABLE with VALUE to the
Local Variables list.

If there is no Local Variables list in the current file buffer
then this function adds the first line containing the string
`Local Variables:' and the last line containing the string `End:'.
(defalias 'add-file-local-variable #[(variable value &optional interactive) "\303=\203\304\305\"\210\306	\307\n$\207" [variable value interactive lexical-binding user-error "The `%s' variable must be set at the start of the file" modify-file-local-variable add-or-replace] 5 (#$ . 6040) (let ((variable (read-file-local-variable "Add file-local variable"))) (if (equal variable 'lexical-binding) (user-error "The `%s' variable must be set at the start of the file" variable)) (list variable (read-file-local-variable-value variable) t))])
#@75 Delete all settings of file-local VARIABLE from the Local Variables list.
(defalias 'delete-file-local-variable #[(variable &optional interactive) "\302\303\304	$\207" [variable interactive modify-file-local-variable nil delete] 5 (#$ . 7008) (list (read-file-local-variable "Delete file-local variable") t)])
#@481 Modify file-local VARIABLE in the -*- line depending on operation OP.

If OP is `add-or-replace' then delete all existing settings of
VARIABLE (except `mode' and `eval') and add a new file-local VARIABLE
with VALUE to the -*- line.

If there is no -*- line at the beginning of the current file buffer
and OP is not `delete' then this function adds the -*- line.

If OP is `delete' then delete all existing settings of VARIABLE
from the -*- line ignoring the input argument VALUE.
(defalias 'modify-file-local-variable-prop-line #[(variable value op &optional interactive) "\3062\307
`\307\211\204\310\306\311\312!\"\210~\210eb\210\313 \211\203+\314 \315	!\202\262\f\316=\203;\310\306\nb\210\311\317!\"\210eb\210\320
!\204J\320\321!\203M\322y\210\3236\206T\324\325 \3077869\326 \210\212\320:!\205\211\327\225b\205\211\330;!\205\211\327\224b\205\2118\325 \232\205\211`\2117)\203\2407b\210\331c\210\314 \314 \332c\210\202\261\333`\332c\210\314 \314 \334c\210`\"\210,\320\335!\203\366<\336=\203\337\f\337>\203\313\322\224\322\225|\210\f\340=\203\271
\322\224b\210\341\342=\"c\210\202\271
\343\224b\210\341\344<=#c\210\322\224b\210\345c\210\202\271
\f\346>\203T
\f\340=\203
<\347>\203
	b\210\202T
\nb\210`	W\203T
\320\350!\204%
\310\306\311\351!\"\210\327\225b\210\352\353\322!!>\214`	}\210\307?\354p!\210*\355\307w\210><=\203P
\327\224`|\210`)\202
\f\340=\203\271
<\336=\203g
\nb\210\202x
\204q
	b\210\202x
\203x
b\210\212\356\307x\210`Sf)\357=\204\233
`\360\n!\232\204\233
\360\n!\360	!V\204\233
\361c\210`Sf\362=\204\246
\363c\210\341\364<=#c\210\307f\362=\204\271
\363c\210@\205\305
\365<=\f#+0\207" [replaced-pos end beg enable-local-variables op file-auto-mode-skip exit nil throw message "File-local variables are disabled" set-auto-mode-1 point-marker copy-marker delete "The -*- line not found" looking-at "<\\?xml[^>\n]*>$" 1 plain ";;; " line-beginning-position comment-normalize-vars 0 re-search-forward "  -*-" "-*-" comment-region "-*-\n" "[ 	]*\\([^ 	\n
:;]+\\)\\([ 	]*-\\*-\\)" mode (add-or-replace delete) add-or-replace format "%S" 2 "; %S: %S; " " mode: " (add-or-replace delete) (mode eval) "[ 	]*\\([^ 	\n:]+\\)[ 	]*:[ 	]*" "Malformed -*- line" intern match-string read " 	;" " 	" 59 marker-position ";" 32 " " "%S: %S;" modify-file-local-variable-message comment-start ce line-beg comment-style comment-start-skip comment-end-skip variable value key read-circle interactive] 5 (#$ . 7326)])
#@300 Add file-local VARIABLE with its VALUE to the -*- line.

This command deletes all existing settings of VARIABLE (except `mode'
and `eval') and adds a new file-local VARIABLE with VALUE to
the -*- line.

If there is no -*- line at the beginning of the current file buffer
then this function adds it.
(defalias 'add-file-local-variable-prop-line #[(variable value &optional interactive) "\303	\304\n$\207" [variable value interactive modify-file-local-variable-prop-line add-or-replace] 5 (#$ . 9802) (let ((variable (read-file-local-variable "Add -*- file-local variable"))) (list variable (read-file-local-variable-value variable) t))])
#@63 Delete all settings of file-local VARIABLE from the -*- line.
(defalias 'delete-file-local-variable-prop-line #[(variable &optional interactive) "\302\303\304	$\207" [variable interactive modify-file-local-variable-prop-line nil delete] 5 (#$ . 10446) (list (read-file-local-variable "Delete -*- file-local variable") t)])
#@531 Modify directory-local VARIABLE in .dir-locals.el depending on operation OP.

If OP is `add-or-replace' then delete all existing settings of
VARIABLE (except `mode' and `eval') and add a new directory-local VARIABLE
with VALUE to the MODE alist where MODE can be a mode name symbol or
a subdirectory name.

If .dir-locals.el was not found and OP is not `delete' then create
this file in the current directory.

If OP is `delete' then delete all existing settings of VARIABLE
from the MODE alist ignoring the input argument VALUE.
(defalias 'modify-dir-local-variable #[(mode variable value op) "\3062\n
\204\307\306\310\311!\"\210\312 \205 \313\312 !?\205 \314\312 !\211;\203/\315\316	!!@\202M	:\203J\317	8\203D\315\316	@!!@\202M	A@\202M\320\n!\321\203`;\204`\307\306\310\322!\"\210
\323=\203w\203p\324!\204w\307\306\310\325!\"\210\321%\326!\210)~\210eb\210\3271\227`\321&\330p!)`|0\202\233\210\202\234\210\331'\f\"\211(\203\336'
\323=\203\271\332)(A\"\202\323)*B)\333>\203\313(A\202\322\332)(A\"BB\334'\f\"B\202\351')*BD\fB)\334\335!+\"+\336c\210\337c\210\340\341\342\f\343\"!p\"\210eb\210\344 +0\207" [enable-local-variables dir-or-cache dir-locals-file variables-file variables op exit throw message "Directory-local variables are disabled" buffer-file-name file-remote-p dir-locals-find-file last dir-locals--all-files 2 expand-file-name nil "Directory locals were not set from a file" delete file-exists-p "No .dir-locals.el file was found" find-file (error) read assoc assq-delete-all (mode eval) assoc-delete-all file-name-directory ";;; Directory Local Variables\n" ";;; For more information see (info \"(emacs) Directory Variables\")\n\n" princ dir-locals-to-string sort #[(a b) "@\204\302\207	@\204\303\207@9\203	@;\203\302\207	@9\203*@;\203*\303\207@	@\231\207" [a b t nil] 2] indent-sexp auto-insert read-circle mode mode-assoc variable value dir-locals-directory-cache] 6 (#$ . 10777)])
#@70 Output alists of VARIABLES to string in dotted pair notation syntax.
(defalias 'dir-locals-to-string #[(variables) "\301\302\303\304\305#\"\207" [variables format "(%s)" mapconcat #[(mode-variables) "\301\302@\301\303\304\305A\306#\"#\207" [mode-variables format "(%S . %s)" "(%s)" mapconcat #[(variable-value) "\302\303@\304A!\305\306
\206\307\310Q\305\311\312#)\266\203\211\203)\313\314#\202*\266\203#\207" [variable-value inhibit-changing-match-data format "(%S . %s)" pp-to-string nil "\\(?:" "[ 	\n
]+" "\\)\\'" t string-match substring 0] 12] "\n"] 9] "\n"] 6 (#$ . 12753)])
#@73 Add directory-local VARIABLE with its VALUE and MODE to .dir-locals.el.
(defalias 'add-dir-local-variable #[(mode variable value) "\303	\n\304$\207" [mode variable value modify-dir-local-variable add-or-replace] 5 (#$ . 13357) (let (variable) (list (read-file-local-variable-mode) (setq variable (read-file-local-variable "Add directory-local variable")) (read-file-local-variable-value variable)))])
#@70 Delete all MODE settings of file-local VARIABLE from .dir-locals.el.
(defalias 'delete-dir-local-variable #[(mode variable) "\302	\303\304$\207" [mode variable modify-dir-local-variable nil delete] 5 (#$ . 13765) (list (read-file-local-variable-mode) (read-file-local-variable "Delete directory-local variable"))])
#@46 Copy file-local variables to .dir-locals.el.
(defalias 'copy-file-locals-to-dir-locals #[nil "\305\211\205\"\n@\211@\236\204\306\f	@	A#\210\nA\211\204\305*\207" [file-local-variables-alist elt --dolist-tail-- dir-local-variables-alist major-mode nil add-dir-local-variable] 5 (#$ . 14087) nil])
#@61 Copy directory-local variables to the Local Variables list.
(defalias 'copy-dir-locals-to-file-locals #[nil "\303\211\205\n@\304	@	A\"\210\nA\211\204\303*\207" [dir-local-variables-alist elt --dolist-tail-- nil add-file-local-variable] 4 (#$ . 14399) nil])
#@49 Copy directory-local variables to the -*- line.
(defalias 'copy-dir-locals-to-file-locals-prop-line #[nil "\303\211\205\n@\304	@	A\"\210\nA\211\204\303*\207" [dir-local-variables-alist elt --dolist-tail-- nil add-file-local-variable-prop-line] 4 (#$ . 14671) nil])
#@57 Non-nil means enable use of connection-local variables.
(defvar enable-connection-local-variables t (#$ . 14951))
#@282 Alist of connection-local variable settings in the current buffer.
Each element in this list has the form (VAR . VALUE), where VAR
is a connection-local variable (a symbol) and VALUE is its value.
The actual value in the buffer may differ from VALUE, if it is
changed by the user.
(defvar connection-local-variables-alist nil (#$ . 15072))
(byte-code "\301\302!\210\302B\301\207" [ignored-local-variables make-variable-buffer-local connection-local-variables-alist] 2)
#@327 Alist mapping connection profiles to variable lists.
Each element in this list has the form (PROFILE VARIABLES).
PROFILE is the name of a connection profile (a symbol).
VARIABLES is a list that declares connection-local variables for
PROFILE.  An element in VARIABLES is an alist whose elements are
of the form (VAR . VALUE).
(defvar connection-local-profile-alist nil (#$ . 15550))
#@497 Alist mapping connection criteria to connection profiles.
Each element in this list has the form (CRITERIA PROFILES).
CRITERIA is a plist identifying a connection and the application
using this connection.  Property names might be `:application',
`:protocol', `:user' and `:machine'.  The property value of
`:application' is a symbol, all other property values are
strings.  All properties are optional; if CRITERIA is nil, it
always applies.
PROFILES is a list of connection profiles (symbols).
(defvar connection-local-criteria-alist nil (#$ . 15940))
#@77 Normalize plist CRITERIA according to properties.
Return a reordered plist.
(defalias 'connection-local-normalize-criteria #[(criteria) "\300\301\302\303\304\"\"\207" [apply append mapcar #[(property) "\302	\"\205\303	\"\205	\303	\"D\207" [criteria property plist-member plist-get] 4] (:application :protocol :user :machine)] 5 (#$ . 16500)])
(put 'connection-local-normalize-criteria 'byte-optimizer 'byte-compile-inline-expand)
#@178 Return the connection profiles list for CRITERIA.
CRITERIA is a plist identifying a connection and the application
using this connection, see `connection-local-criteria-alist'.
(defalias 'connection-local-get-profiles #[(criteria) "\306	\306\211\203O@\f\307\211\f\203=
\203=\310\n@\f@\"\2033\311\n@\f@\"\311\f\f@\"\232\fAA\211\f\204
\203G\312\nA\"*A\211\204\n*\313!)\207" [profiles connection-local-criteria-alist crit-alist --dolist-tail-- criteria match nil t plist-member plist-get append delete-dups crit] 5 (#$ . 16944)])
(put 'connection-local-get-profiles 'byte-optimizer 'byte-compile-inline-expand)
#@492 Add PROFILES for CRITERIA.
CRITERIA is a plist identifying a connection and the application
using this connection, see `connection-local-criteria-alist'.
PROFILES are the names of connection profiles (a symbol).

When a connection to a remote server is opened and CRITERIA
matches to that server, the connection-local variables from
PROFILES are applied to the corresponding process buffer.  The
variables for a connection profile are defined using
`connection-local-set-profile-variables'.
(defalias 'connection-local-set-profiles #[(criteria &rest profiles) "<\204\n\306\307\"\210	\310\211\203)@\211\f\236\204\"\306\311\312\n!\"\210A\211\204*\313\314\315\316\317\"\")\320
\"\211\203M\321\314A	\"!\241\202V\321	!B
B\211*\207" [criteria profiles profile --dolist-tail-- connection-local-profile-alist connection-local-criteria-alist error "Wrong criteria `%s'" nil "No such connection profile `%s'" symbol-name apply append mapcar #[(property) "\302	\"\205\303	\"\205	\303	\"D\207" [criteria property plist-member plist-get] 4] (:application :protocol :user :machine) assoc delete-dups slot] 6 (#$ . 17585)])
#@56 Return the connection-local variable list for PROFILE.
(defalias 'connection-local-get-profile-variables #[(profile) "	\236A\207" [profile connection-local-profile-alist] 2 (#$ . 18734)])
(put 'connection-local-get-profile-variables 'byte-optimizer 'byte-compile-inline-expand)
#@554 Map the symbol PROFILE to a list of variable settings.
VARIABLES is a list that declares connection-local variables for
the connection profile.  An element in VARIABLES is an alist
whose elements are of the form (VAR . VALUE).

When a connection to a remote server is opened, the server's
connection profiles are found.  A server may be assigned a
connection profile using `connection-local-set-profiles'.  Then
variables are set in the server's process buffer according to the
VARIABLES list of the connection profile.  The list is processed
in order.
(defalias 'connection-local-set-profile-variables #[(profile variables) "	\236\n\203\n\f\241\210\202\fB\211	B\f*\207" [profile connection-local-profile-alist #1=#:p variables #2=#:v] 2 (#$ . 19020)])
#@219 Read connection-local variables according to CRITERIA.
Store the connection-local variables in buffer local
variable`connection-local-variables-alist'.

This does nothing if `enable-connection-local-variables' is nil.
(defalias 'hack-connection-local-variables #[(criteria) "\205\247	\306\306\211\203Y
@	\307\211\203F\203F\310\f@@\"\203<\311\f@@\"\311	@\"\232AA\211\204\203Q\312\n\fA\"*
A\211\204*\313\n!*\306\211\203\235
@\211\211\236A)\306\211\203\225
@\211@\236\204\216B
A\211\204{*
A\211\204f*\314\315\306\")\207" [enable-connection-local-variables criteria profiles connection-local-criteria-alist crit-alist --dolist-tail-- nil t plist-member plist-get append delete-dups :all hack-local-variables-filter match crit profile connection-local-profile-alist variable connection-local-variables-alist enable-local-variables] 5 (#$ . 19791)])
#@143 Apply connection-local variables identified by CRITERIA.
Other local variables, like file-local and dir-local variables,
will not be changed.
(defalias 'hack-connection-local-variables-apply #[(criteria) "\303!\210\304	!\305 )\207" [criteria connection-local-variables-alist file-local-variables-alist hack-connection-local-variables copy-tree hack-local-variables-apply] 2 (#$ . 20714)])
#@75 Return a connection-local criteria, which represents `default-directory'.
(defalias 'connection-local-criteria-for-default-directory #[nil "\301!\205\302\303\304\301\305\"\306\301\307\"\310\301\311\"\257\207" [default-directory file-remote-p :application tramp :protocol method :user user :machine host] 10 (#$ . 21111)])
(put 'connection-local-criteria-for-default-directory 'byte-optimizer 'byte-compile-inline-expand)
#@121 Apply connection-local variables according to `default-directory'.
Execute BODY, and unwind connection-local variables.
(defalias 'with-connection-local-variables '(macro . #[(&rest body) "\301\302\303\304\305\306\307B\310BBFBBB\207" [body if (file-remote-p default-directory) let ((enable-connection-local-variables t) (old-buffer-local-variables (buffer-local-variables)) connection-local-variables-alist) (hack-connection-local-variables-apply (connection-local-criteria-for-default-directory)) unwind-protect progn ((dolist (variable connection-local-variables-alist) (let ((elt (assq (car variable) old-buffer-local-variables))) (if elt (set (make-local-variable (car elt)) (cdr elt)) (kill-local-variable (car variable))))))] 8 (#$ . 21546)]))
(byte-code "\300\301\302\303#\210\304\305!\207" [put with-connection-local-variables edebug-form-spec t provide files-x] 4)