Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/vc/vc-mtn.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.

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


(byte-code "\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\306\322\310\303&	\210\312\323\314\315\324DD\325\320\326\306\327\310\303&	\210\330\331\300\304#\210\332\211\203U\211@\331
N\203N\300
N\204N\333\300\331N#\210
A\266\202\2024\210\334\331\300\322#\210\312\300\314\315\335DD\336\320\337\310\303&\210\333\340\341\304#\210\342!\204|\343\340	\"\304\207" [vc-mtn-program vc-handled-backends custom-declare-group vc-mtn nil "VC Monotone (mtn) backend." :version "24.1" :group vc custom-declare-variable vc-mtn-diff-switches funcall function #[0 "\300\207" [t] 1] "String or list of strings specifying switches for monotone diff under VC.\nIf nil, use the value of `vc-diff-switches'.  If t, use no switches." :type (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1="") string)) "23.1" vc-mtn-annotate-switches #[0 "\300\207" [nil] 1] "String or list of strings specifying switches for mtn annotate under VC.\nIf nil, use the value of `vc-annotate-switches'.  If t, use no\nswitches." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) "25.1" defvaralias vc-mtn-command (saved-value saved-variable-comment) put make-obsolete-variable #[0 "\300\207" [#2="mtn"] 1 #2#] "Name of the monotone executable." string Mtn vc-functions executable-find delq] 10)
#@33 Name of the monotone directory.
(defconst vc-mtn-admin-dir "_MTN" (#$ . 1869))
#@47 Name of the monotone directory's format file.
(defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format") (#$ . 1954))
(defalias 'vc-mtn-revision-granularity #[0 "\300\207" [repository] 1])
#@14 

(fn FILES)
(defalias 'vc-mtn-checkout-model #[257 "\300\207" [implicit] 2 (#$ . 2156)])
#@13 

(fn FILE)
(defalias 'vc-mtn-root #[257 "\301
!\262
\302
!\203\303
!\202\304
!\262
\305
\306\"\206%\307
\306\310\"#\207" [vc-mtn-admin-format expand-file-name file-directory-p file-name-as-directory file-name-directory vc-file-getprop vc-mtn-root vc-file-setprop vc-find-root] 7 (#$ . 2252)])
#@57 Return the administrative directory of FILE.

(fn FILE)
(defalias 'vc-mtn-find-admin-dir #[257 "\301\302!\"\207" [vc-mtn-admin-dir expand-file-name vc-mtn-root] 5 (#$ . 2559)])
#@59 Return the mtn ignore file that controls FILE.

(fn FILE)
(defalias 'vc-mtn-find-ignore-file #[257 "\300\301\302!\"\207" [expand-file-name ".mtnignore" vc-mtn-root] 5 (#$ . 2744)])
#@13 

(fn FILE)
(defalias 'vc-mtn-registered #[257 "\300
!\211\205\n\301!\207" [vc-mtn-root vc-mtn-state] 4 (#$ . 2932)])
#@96 A wrapper around `vc-do-command' for use in vc-mtn.el.

(fn BUFFER OKSTATUS FILES &rest FLAGS)
(defalias 'vc-mtn-command #[899 "\302B\303\304\206\305	&)\207" [process-environment vc-mtn-program "LC_MESSAGES=C" apply vc-do-command "*vc*"] 11 (#$ . 3058)])
#@13 

(fn FILE)
(defalias 'vc-mtn-state #[257 "\3001=\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\304\314$\210eb\210\315\316!\210\317\225\203.\320\2028\311\225\2037\321\2028\322*\262
0\207\210\323\207" [(error) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-mtn-command t "status" re-search-forward "^  \\(?:\\(patched\\)\\|\\(added\\) \\(?:.*\\)\\)\\|no changes$" 1 edited added up-to-date nil] 8 (#$ . 3330)])
#@24 

(fn UPDATE-FUNCTION)
(defalias 'vc-mtn-after-dir-status #[257 "\300eb\210\301\302\300\303#\210\301\304\300\303#\2034\305\225\203#\306\307!\310D
B\262
\202\n\311\225\203\n\306\307!\312D
B\262
\202\n

!\207" [nil re-search-forward "\\(?:Current b\\|B\\)ranch:  *\\(.*\\)\n?\nChanges against parent \\(.*\\)" t "^  \\(?:\\(patched  \\)\\|\\(added    \\)\\)\\(.*\\)$" 1 match-string 3 edited 2 added] 6 (#$ . 3847)])
#@34 

(fn DIR FILES UPDATE-FUNCTION)
(defalias 'vc-mtn-dir-status-files #[771 "\300p\301\302$\210\303\304\305\306\307\310!\311\"\312$!\207" [vc-mtn-command async "status" vc-exec-after make-byte-code 0 "\301\300!\207" vconcat vector [vc-mtn-after-dir-status] 2] 10 (#$ . 4273)])
#@13 

(fn FILE)
(defalias 'vc-mtn-working-revision #[257 "\3001-\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\304\314$\210eb\210\315\316!\210\317\311!*\262
0\207\210\320\207" [(error) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-mtn-command t "status" re-search-forward "\\(?:Current b\\|B\\)ranch:  *\\(.*\\)\n?\nChanges against parent \\(.*\\)" match-string nil] 8 (#$ . 4557)])
#@13 

(fn FILE)
(defalias 'vc-mtn-workfile-branch #[257 "\3001-\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\304\314$\210eb\210\315\316!\210\317\320!*\262
0\207\210\321\207" [(error) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-mtn-command t "status" re-search-forward "\\(?:Current b\\|B\\)ranch:  *\\(.*\\)\n?\nChanges against parent \\(.*\\)" match-string 1 nil] 8 (#$ . 5040)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable vc-mtn-mode-line-rewrite funcall function #[0 "\300\207" [(("\\`[^:/#]*[:/#]" . ""))] 1] "Rewrite rules to shorten Mtn's revision names on the mode-line." :type (repeat (cons regexp string)) :version "22.2" :group vc-mtn] 10)
#@81 Return a string for `vc-mode-line' to put in the mode line for FILE.

(fn FILE)
(defalias 'vc-mtn-mode-line-string #[257 "\301
!\211\203C\211\203'\211@\302
@\"\203 \303
A\304\305$\262
A\266\202\202\210\306\307\310!\211\311\267\202;\312\202<\313\202<\314\262
#\202D\315\207" [vc-mtn-mode-line-rewrite vc-mtn-workfile-branch string-match replace-match t nil format "Mtn%c%s" vc-state #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (needs-update 51 up-to-date 51 added 55)) 45 64 58 ""] 9 (#$ . 5845)])
#@32 

(fn FILES &optional COMMENT)
(defalias 'vc-mtn-register #[513 "\300\301\302\303$\207" [vc-mtn-command nil 0 "add"] 7 (#$ . 6405)])
#@13 

(fn FILE)
(defalias 'vc-mtn-responsible-p #[257 "\300
!\207" [vc-mtn-root] 3 (#$ . 6545)])
#@36 

(fn FILES COMMENT &optional REV)
(defalias 'vc-mtn-checkin #[770 "\300\301\302\303\304\305D\306\307	\"\244%\207" [apply vc-mtn-command nil 0 "commit" "-m" log-edit-extract-headers (("Author" . "--author") ("Date" . "--date"))] 12 (#$ . 6644)])
#@24 

(fn FILE REV BUFFER)
(defalias 'vc-mtn-find-revision #[771 "
\203\300
\301\302\303&\207\300
\301\302$\207" [vc-mtn-command 0 "cat" "-r"] 10 (#$ . 6899)])
#@37 

(fn FILE &optional CONTENTS-DONE)
(defalias 'vc-mtn-revert #[513 "\211?\205\300\301\302\303$\207" [vc-mtn-command nil 0 "revert"] 7 (#$ . 7068)])
#@268 Print commit logs associated with FILES into specified BUFFER.
_SHORTLOG is ignored.
If START-REVISION is non-nil, it is the newest revision to show.
If LIMIT is non-nil, show no more than this many entries.

(fn FILES BUFFER &optional SHORTLOG START-REVISION LIMIT)
(defalias 'vc-mtn-print-log #[1282 "\300\301\302\303\304\205\305\306\307\"D\205 \310\306\307\"D\"&\207" [apply vc-mtn-command 0 "log" append "--from" format "%s" "--last"] 17 (#$ . 7226)])
(defvar vc-mtn-log-view-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [vc-mtn-log-view-mode-hook variable-documentation put "Hook run after entering Mtn-Log-View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp vc-mtn-log-view-mode-map definition-name vc-mtn-log-view-mode] 4)
(defvar vc-mtn-log-view-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [vc-mtn-log-view-mode-abbrev-table vc-mtn-log-view-mode-map variable-documentation put purecopy "Keymap for `vc-mtn-log-view-mode'." boundp vc-mtn-log-view-mode-syntax-table definition-name vc-mtn-log-view-mode (lambda (#1=#:def-tmp-var) (defvar vc-mtn-log-view-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-mtn-log-view-mode'." (lambda (#1#) (defvar vc-mtn-log-view-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-mtn-log-view-mode'." derived-mode-parent log-view-mode] 5)
#@534 Major mode derived from `log-view-mode' by `define-derived-mode'.
It inherits all of the parent's attributes, but has its own keymap,
abbrev table and syntax table:

  `vc-mtn-log-view-mode-map', `vc-mtn-log-view-mode-abbrev-table' and `vc-mtn-log-view-mode-syntax-table'

which more-or-less shadow log-view-mode's corresponding tables.

In addition to any hooks its parent mode might have run,
this mode runs the hook `vc-mtn-log-view-mode-hook', as the final or penultimate step
during initialization.

\{vc-mtn-log-view-mode-map}
(defalias 'vc-mtn-log-view-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
%=\204R\326
\325%C#\210\327!\210\330\f!\210
%\306\331!\210&\306\332!\210\333\306\334!\210\335\336\337!\210\306\340!\210\341 \342\" )\343\344!\207" [delay-mode-hooks major-mode mode-name vc-mtn-log-view-mode-map vc-mtn-log-view-mode-syntax-table vc-mtn-log-view-mode-abbrev-table make-local-variable t log-view-mode vc-mtn-log-view-mode "Mtn-Log-View" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table log-view-file-re log-view-per-file-logs nil log-view-message-re "^[ |/]+Revision: \\([0-9a-f]+\\)" require add-log log-view-font-lock-keywords append (("^[ |]+Author: \\(.*\\)" (1 'change-log-email)) ("^[ |]+Date: \\(.*\\)" (1 'change-log-date))) run-mode-hooks vc-mtn-log-view-mode-hook local-abbrev-table regexp-unmatchable] 5 (#$ . 8978) nil])
(autoload 'vc-switches "vc")
#@117 Get a difference report using monotone between two revisions of FILES.

(fn FILES &optional REV1 REV2 BUFFER ASYNC)
(defalias 'vc-mtn-diff #[1281 "\300\301\206\302\303\304\305\306\307\310\"\205\311\fD\205\"\311\fD#&\207" [apply vc-mtn-command "*vc-diff*" 1 "diff" append vc-switches mtn diff "-r"] 16 (#$ . 10688)])
#@31 

(fn FILE BUF &optional REV)
(defalias 'vc-mtn-annotate-command #[770 "\300\301\302\303\304\305\306\307\"\205\310	D\"&\207" [apply vc-mtn-command async "annotate" append vc-switches mtn annotate "-r"] 13 (#$ . 11025)])
(defconst vc-mtn-annotate-full-re "^ *\\([0-9a-f]+\\)\\.* by [^ ]+ \\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\): ")
(defconst vc-mtn-annotate-any-re (concat "^\\(?: +: \\|" vc-mtn-annotate-full-re "\\)"))
(defalias 'vc-mtn-annotate-time #[0 "\303!\205J\304\225b\210\305\306!\211\204 \212\307\310`\311\312e$S\311\")\202H\313\314\304\211\211\315\305\316!!\315\305\317!!\315!\320&!\320\211\321\304\224\304\225\311$\210*\211\262
\262
\207" [vc-mtn-annotate-any-re inhibit-modification-hooks inhibit-read-only looking-at 0 match-string 2 get-text-property previous-single-property-change vc-mtn-time nil vc-annotate-convert-time encode-time string-to-number 4 3 t put-text-property] 10])
(defalias 'vc-mtn-annotate-extract-revision-at-line #[0 "\212\301!\204\302\303\304#\205\305\306!)\207" [vc-mtn-annotate-full-re looking-at re-search-backward nil t match-string 1] 4])
(defalias 'vc-mtn-list-tags #[0 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\303\313\314\315%\210eb\210\313\316\317\313\312#\2031\320\303!
B\262
\202\211\262
*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-mtn-command t nil "list" "tags" re-search-forward "^[^ ]+" match-string] 7])
(defalias 'vc-mtn-list-branches #[0 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\303\313\314\315%\210eb\210\313\316\317\313\312#\2031\320\303!
B\262
\202\211\262
*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-mtn-command t nil "list" "branches" re-search-forward "^.+" match-string] 7])
#@15 

(fn PREFIX)
(defalias 'vc-mtn-list-revision-ids #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\303\313\314\315&\210eb\210\313\316\317\313\312#\2034\320\303!
B\262
\202\"\211\262
*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-mtn-command t nil "complete" "revision" re-search-forward "^.+" match-string] 9 (#$ . 12924)])
#@14 

(fn FILES)
(defalias 'vc-mtn-revision-completion-table #[257 "\300\207" [#[771 "\300\301\"\203\302\303\304\211\225#\305\306!\303\304\225\"%\207\300\307\"\203-\310
\311\312\313 \"$\207\300\314\"\203Q\315\304\"\310\311\316\317\320\321\322!\323\"\324\325%\326 \"$\207\300\327\"\203i\310
\311\330\331\303\304\225\"!\"$\207\310
\332$\207" [string-match ".*[^\\]\\(\\\\\\\\\\)*[/|;(]" completion-table-with-context substring 0 vc-mtn-revision-completion-table nil "\\`t:" complete-with-action mapcar #[257 "\300
P\207" ["t:"] 3 "\n\n(fn TAG)"] vc-mtn-list-tags "\\`[hb]:" match-string make-byte-code 257 "\300
P\207" vconcat vector [] 3 "\n\n(fn TAG)" vc-mtn-list-branches "\\`i:" #[257 "\300
P\207" ["i:"] 3 "\n\n(fn TAG)"] vc-mtn-list-revision-ids ("t:" "b:" "h:" "i:" "c:" "a:" "k:" "d:" "m:" "e:" "l:" "i:" "p:" "u:" "w:" "difference(" "lca(" "max(" "ancestors(" "descendants(" "parents(" "children(" "pick(")] 13 "\n\n(fn STRING PRED ACTION)"]] 2 (#$ . 13367)])
(provide 'vc-mtn)