Gecko [ goons4good.org ]

Name	Size	Permission	Date
add-log.elc	35.97 KB	-rw-r--r--	2023-06-07 04:15
compare-w.elc	9.89 KB	-rw-r--r--	2023-06-07 04:15
cvs-status.elc	21.51 KB	-rw-r--r--	2023-06-07 04:15
diff-mode.elc	63.77 KB	-rw-r--r--	2023-06-07 04:15
diff.elc	5.9 KB	-rw-r--r--	2023-06-07 04:15
ediff-diff.elc	35.48 KB	-rw-r--r--	2023-06-07 04:15
ediff-help.elc	11.36 KB	-rw-r--r--	2023-06-07 04:15
ediff-hook.elc	6.49 KB	-rw-r--r--	2023-06-07 04:19
ediff-init.elc	58.7 KB	-rw-r--r--	2023-06-07 04:15
ediff-merg.elc	9.68 KB	-rw-r--r--	2023-06-07 04:15
ediff-mult.elc	60.23 KB	-rw-r--r--	2023-06-07 04:15
ediff-ptch.elc	19.55 KB	-rw-r--r--	2023-06-07 04:15
ediff-util.elc	119.83 KB	-rw-r--r--	2023-06-07 04:15
ediff-vers.elc	5 KB	-rw-r--r--	2023-06-07 04:15
ediff-wind.elc	30.84 KB	-rw-r--r--	2023-06-07 04:15
ediff.elc	38.37 KB	-rw-r--r--	2023-06-07 04:15
emerge.elc	76.85 KB	-rw-r--r--	2023-06-07 04:15
log-edit.elc	32.25 KB	-rw-r--r--	2023-06-07 04:15
log-view.elc	18.21 KB	-rw-r--r--	2023-06-07 04:15
pcvs-defs.elc	15.6 KB	-rw-r--r--	2023-06-07 04:15
pcvs-info.elc	23.49 KB	-rw-r--r--	2023-06-07 04:15
pcvs-parse.elc	15.33 KB	-rw-r--r--	2023-06-07 04:15
pcvs-util.elc	24.08 KB	-rw-r--r--	2023-06-07 04:15
pcvs.elc	85.47 KB	-rw-r--r--	2023-06-07 04:15
smerge-mode.elc	37.72 KB	-rw-r--r--	2023-06-07 04:15
vc-annotate.elc	25.01 KB	-rw-r--r--	2023-06-07 04:15
vc-arch.elc	18.12 KB	-rw-r--r--	2023-06-07 04:15
vc-bzr.elc	41.49 KB	-rw-r--r--	2023-06-07 04:15
vc-cvs.elc	33.48 KB	-rw-r--r--	2023-06-07 04:15
vc-dav.elc	5.25 KB	-rw-r--r--	2023-06-07 04:15
vc-dir.elc	40.26 KB	-rw-r--r--	2023-06-07 04:15
vc-dispatcher.elc	16.33 KB	-rw-r--r--	2023-06-07 04:15
vc-git.elc	46.72 KB	-rw-r--r--	2023-06-07 04:15
vc-hg.elc	25.34 KB	-rw-r--r--	2023-06-07 04:15
vc-hooks.elc	31.95 KB	-rw-r--r--	2023-06-07 04:19
vc-mtn.elc	13.72 KB	-rw-r--r--	2023-06-07 04:15
vc-rcs.elc	35.34 KB	-rw-r--r--	2023-06-07 04:15
vc-sccs.elc	15.26 KB	-rw-r--r--	2023-06-07 04:15
vc-svn.elc	21.91 KB	-rw-r--r--	2023-06-07 04:15
vc.elc	68.74 KB	-rw-r--r--	2023-06-07 04:15

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:15:37 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/vc-mtn.el
;;; in Emacs version 24.3.1
;;; 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\323\324\300\304#\210\325\211\203D�\211@\324N\203=�\300N\204=�\326\300\324N#\210A\266\202\202#�\210\327\324\300\322#\210\312\300\314\315\330DD\331\320\332\310\303&\210\326\333\334\304#\210\335!\204k�\336\333	\"\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 "\n\n(fn)"] "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 ("") string)) "23.1" defvaralias vc-mtn-command (saved-value saved-variable-comment) put make-obsolete-variable #[0 "\300\207" ["mtn"] 1 "mtn\n\n(fn)"] "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" (#$ . 1618))
#@47 Name of the monotone directory's format file.
(defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format") (#$ . 1703))
(defalias 'vc-mtn-revision-granularity #[0 "\300\207" [repository] 1 "\n\n(fn)"])
(defalias 'vc-mtn-checkout-model #[257 "\300\207" [implicit] 2 "\n\n(fn FILES)"])
(defalias 'vc-mtn-root #[257 "\301!\203\f�\302!\202�\303!\262\304\305\"\206 �\306\305\307\"#\207" [vc-mtn-admin-format file-directory-p file-name-as-directory file-name-directory vc-file-getprop vc-mtn-root vc-file-setprop vc-find-root] 7 "\n\n(fn FILE)"])
(defalias 'vc-mtn-registered #[257 "\300!\211\205\n�\301!\207" [vc-mtn-root vc-mtn-state] 4 "\n\n(fn FILE)"])
#@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 (#$ . 2376)])
(defalias 'vc-mtn-state #[257 "\300\301\302\303\304\305\306!\307\"\310\311%D\312\301\313\300EDC\217\207" [#1=#:err funcall make-byte-code 0 "\301\302!r\211q\210\303\304\305\306\307\310!\311\"\312\313%DC\216\314\315\305\300\316$\210eb\210\317\320!\210\321\225\203/�\322\2029�\312\225\2038�\323\2029�\324*\207" vconcat vector [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" vc-mtn-command t "status" re-search-forward "^  \$?:\\(patched\$\\|\$added\$ \$?:.*\$\\)\\|no changes$" 1 edited added up-to-date] 8 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 9 "\n\n(fn FILE)"])
(defalias 'vc-mtn-after-dir-status #[257 "\300eb\210\301\302\300\303#\210\301\304\300\303#\2034�\305\225\203#�\306\307!\310DB\262\202\n�\311\225\203\n�\306\307!\312DB\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 "\n\n(fn UPDATE-FUNCTION)"])
(defalias 'vc-mtn-dir-status #[514 "\300p\301\302$\210\303\304\305DD!\207" [vc-mtn-command async "status" vc-exec-after vc-mtn-after-dir-status quote] 7 "\n\n(fn DIR UPDATE-FUNCTION)"])
(defalias 'vc-mtn-working-revision #[257 "\300\301\302\303\304\305\306!\307\"\310\311%D\312\301\313\300EDC\217\207" [#1=#:err funcall make-byte-code 0 "\301\302!r\211q\210\303\304\305\306\307\310!\311\"\312\313%DC\216\314\315\305\300\316$\210eb\210\317\320!\210\321\312!*\207" vconcat vector [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" vc-mtn-command t "status" re-search-forward "\$?:Current b\\|B\$ranch:  *\$.*\$\n?\nChanges against parent \$.*\$" match-string] 8 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 9 "\n\n(fn FILE)"])
(defalias 'vc-mtn-workfile-branch #[257 "\300\301\302\303\304\305\306!\307\"\310\311%D\312\301\313\300EDC\217\207" [#1=#:err funcall make-byte-code 0 "\301\302!r\211q\210\303\304\305\306\307\310!\311\"\312\313%DC\216\314\315\305\300\316$\210eb\210\317\320!\210\321\322!*\207" vconcat vector [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" vc-mtn-command t "status" re-search-forward "\$?:Current b\\|B\$ranch:  *\$.*\$\n?\nChanges against parent \$.*\$" match-string 1] 8 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 9 "\n\n(fn FILE)"])
(defalias 'vc-mtn-workfile-unchanged-p #[257 "\300!\301=?\207" [vc-mtn-state edited] 3 "\n\n(fn FILE)"])
(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 "\n\n(fn)"] "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\203#�\211@\302@\"\203�\303A\304\305$\262A\266\202\202�\210\306\307\310!\211\311>\2033�\312\202>�\211\313=\203=�\314\202>�\315\262#\207" [vc-mtn-mode-line-rewrite vc-mtn-workfile-branch string-match replace-match t nil format "Mtn%c%s" vc-state (up-to-date needs-update) 45 added 64 58] 9 (#$ . 5692)])
(defalias 'vc-mtn-register #[769 "\300\301\302\303$\207" [vc-mtn-command nil 0 "add"] 8 "\n\n(fn FILES &optional REV COMMENT)"])
(defalias 'vc-mtn-responsible-p #[257 "\300!\207" [vc-mtn-root] 3 "\n\n(fn FILE)"])
(defalias 'vc-mtn-could-register #[257 "\300!\207" [vc-mtn-root] 3 "\n\n(fn FILE)"])
(defalias 'vc-mtn-checkin #[771 "\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 "\n\n(fn FILES REV COMMENT)"])
(defalias 'vc-mtn-find-revision #[771 "\300\301\302\303&\207" [vc-mtn-command 0 "cat" "-r"] 10 "\n\n(fn FILE REV BUFFER)"])
(defalias 'vc-mtn-revert #[513 "\211?\205�\300\301\302\303$\207" [vc-mtn-command nil 0 "revert"] 7 "\n\n(fn FILE &optional CONTENTS-DONE)"])
(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 "\n\n(fn FILES BUFFER &optional SHORTLOG START-REVISION LIMIT)"])
(byte-code "\300\301N\204�\302\300\301\303\304!#\210\305\306!\204�\302\306\307\310#\210\300\207" [vc-mtn-log-view-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar vc-mtn-log-view-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204�\302\300\301\303\304!#\210\305\306!\204�\302\306\307\310#\210\300\207" [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] 5)
(defvar vc-mtn-log-view-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204�\302\300\301\303\304!#\210\302\305\306\307#\207" [vc-mtn-log-view-mode-syntax-table variable-documentation put purecopy "Syntax table for `vc-mtn-log-view-mode'." vc-mtn-log-view-mode-abbrev-table definition-name vc-mtn-log-view-mode] 5)
(defvar vc-mtn-log-view-mode-abbrev-table (progn (define-abbrev-table 'vc-mtn-log-view-mode-abbrev-table nil) vc-mtn-log-view-mode-abbrev-table))
(byte-code "\300\301N\204�\302\300\301\303\304!#\210\302\305\306\307#\207" [vc-mtn-log-view-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `vc-mtn-log-view-mode'." vc-mtn-log-view-mode derived-mode-parent log-view-mode] 5)
#@525 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 step
during initialization.

\{vc-mtn-log-view-mode-map}

(fn)
(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\332\306\333!\210\334\306\335!\210\336\337\340!\210\306\341!\210\342!\343\"!)\344\345!\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 "\\`a\\`" 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-face))) run-mode-hooks vc-mtn-log-view-mode-hook local-abbrev-table] 5 (#$ . 8671) nil])
#@111 Get a difference report using monotone between two revisions of FILES.

(fn FILES &optional REV1 REV2 BUFFER)
(defalias 'vc-mtn-diff #[1025 "\300\301\206�\302\303\304\305\306\307\310\"\n\205�\311D\n\205\"�\311D#&\207" [apply vc-mtn-command "*vc-diff*" 1 "diff" append vc-switches mtn diff "-r"] 15 (#$ . 10341)])
(defalias 'vc-mtn-annotate-command #[770 "\300\301\302\303\205�\304D&\207" [apply vc-mtn-command async "annotate" "-r"] 11 "\n\n(fn FILE BUF &optional REV)"])
(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 "\n\n(fn)"])
(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 "\n\n(fn)"])
(defalias 'vc-mtn-list-tags #[0 "\300\301!r\211q\210\302\303\304\305\306\307!\310\"\311\312%DC\216\313\314\304\315\316\317%\210eb\210\315\320\321\315\314#\2036�\322\304!B\262\202$�\211\262*\207" [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" vc-mtn-command t nil "list" "tags" re-search-forward "^[^ ]+" match-string] 8 "\n\n(fn)"])
(defalias 'vc-mtn-list-branches #[0 "\300\301!r\211q\210\302\303\304\305\306\307!\310\"\311\312%DC\216\313\314\304\315\316\317%\210eb\210\315\320\321\315\314#\2036�\322\304!B\262\202$�\211\262*\207" [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" vc-mtn-command t nil "list" "branches" re-search-forward "^.+" match-string] 8 "\n\n(fn)"])
(defalias 'vc-mtn-list-revision-ids #[257 "\300\301!r\211q\210\302\303\304\305\306\307!\310\"\311\312%DC\216\313\314\304\315\316\317&\210eb\210\315\320\321\315\314#\2039�\322\304!B\262\202'�\211\262*\207" [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" vc-mtn-command t nil "complete" "revision" re-search-forward "^.+" match-string] 9 "\n\n(fn PREFIX)"])
(defalias 'vc-mtn-revision-completion-table #[257 "\300\207" [#[771 "\300\301\"\203�\302\303\211\225O\304\305!\303\225\305O%\207\300\306\"\203+�\307\310\311\312 \"$\207\300\313\"\203O�\314\303\"\307\310\315\316\317\320\321!\322\"\323\324%\325 \"$\207\300\326\"\203g�\307\310\327\330\303\225\305O!\"$\207\307\331$\207" [string-match ".*[^\\]\$\\\\\\\\\$*[/|;(]" completion-table-with-context 0 vc-mtn-revision-completion-table nil "\\`t:" complete-with-action mapcar #[257 "\300P\207" ["t:"] 3 "\n\n(fn TAG)"] vc-mtn-list-tags "\\`[hb]:" match-string make-byte-code 257 "\300P\207" vconcat vector [] 3 "\n\n(fn TAG)" vc-mtn-list-branches "\\`i:" #[257 "\300P\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 "\n\n(fn FILES)"])
(provide 'vc-mtn)