;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:19:12 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-autoloads.el ;;; in Emacs version 23.0.50.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`dvc-autoloads.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\315#\210\300\316\302\317#\210\300\320\302\321#\210\300\322\302\323#\210\300\324\302\325#\210\300\326\302\327#\210\300\330\302\331#\210\300\332\302\333#\210\300\334\302\335#\210\300\336\302\337#\210\300\340\302\341#\210\300\342\302\343#\207" [put dvc custom-loads (bzr dvc-annotate dvc-defs bzr-submit dvc-config dvc-core dvc-log dvc-buffers dvc-state xgit-core tla-defs) tla-bookmarks (tla-defs) xtla (tla-defs tla) tla-revisions (dvc-revlist tla-defs) dvc-file-actions (dvc-defs tla-defs) dvc-faces (dvc-defs tla-defs) tla-faces (tla-defs tla-browse) tools (dvc-defs) tla-merge (tla-defs) dvc-internal (dvc-buffers dvc-defs) dvc-xgit (xgit-gnus xgit-core xgit-log xgit) dvc-bzr-submit (bzr-submit) tla-hooks (tla-defs) dvc-state (dvc-state) dvc-git (xgit) tla-bindings (dvc-ui tla-defs) dvc-tips (dvc-defs dvc-tips)] 4) (defalias 'custom-put-if-not '(macro . #[(symbol propname value) "\303\304 E\305 \nFE\207" [symbol propname value unless get put] 6])) (require 'dvc-core) #@43 List of commands available only with tla. (defvar baz-tla-only-commands '(tla-tag) (#$ . 1712)) #@361 Creates baz- aliases for tla- commands. For each commands beginning with "tla-", except the ones in `baz-tla-only-list', create the corresponding "baz-" alias. Most functions in tla*.el are prefixed with tla-, but this allows you to type M-x baz-whatever RET instead. Some functions are available only with baz. They're prefixed with baz- and have no alias. (defalias 'baz-make-alias-for-tla-commands #[nil "\305\306\307\"\310\211\203; @\211\n\235\2044\311!\312\310O\313\314 P!\315\f!\2043\316\317 \"\2043\320\f\"\210* A\211\204 *\310\207" [tla-cmd #1=#:--cl-dolist-temp-- baz-tla-only-commands tla-cmd-post baz-cmd apropos-internal "^tla-" commandp nil symbol-name 4 intern "baz-" fboundp string-match "^dvc" defalias] 4 (#$ . 1815) nil]) (byte-code "\300 \210\301\302\303\"\207" [baz-make-alias-for-tla-commands eval-after-load "tla" (progn (defalias 'baz--name-construct 'tla--name-construct) (baz-make-alias-for-tla-commands))] 3) #@236 Create a tag from SOURCE-REVISION to TAG-VERSION. Run baz branch. If SYNCHRONOUSLY is non-nil, the process for tagging runs synchronously. Else it runs asynchronously. (fn SOURCE-REVISION TAG-VERSION &optional CACHEREV SYNCHRONOUSLY) (autoload 'baz-branch "baz" '(#$ . 2772) t nil) #@79 Switch to status buffer or run `baz-dvc-status'. (fn &optional ROOT AGAINST) (autoload 'baz-status-goto "baz" '(#$ . 3061) t nil) (defalias 'baz-merge 'tla-star-merge) #@206 Run "baz annotate" on FILE. Shows the result in a buffer, and create an annotation table for the annotated file's buffer. This allows you to run `baz-trace-line' and `baz-trace-line-show-log'. (fn FILE) (autoload 'baz-annotate "baz" '(#$ . 3237) t nil) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301\306\"\207" [current-load-list dvc-registered-backends default-boundp set-default nil add-to-list baz] 3) #@100 Human friendly name used for the dvc backend 'baz. This variable was created by `dvc-register-dvc' (defvar baz-backend-name "Bazaar 1" (#$ . 3665)) #@50 Wrapper for dvc-add-log-entry, for back-end baz. (defalias 'baz-add-log-entry #[nil "\301\302\303!)\207" [dvc-temp-current-active-dvc baz call-interactively dvc-add-log-entry] 2 (#$ . 3819) nil]) #@46 Wrapper for dvc-add-files, for back-end baz. (defalias 'baz-add-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files baz call-interactively dvc-add-files] 2 (#$ . 4022) nil]) #@41 Wrapper for dvc-diff, for back-end baz. (defalias 'baz-diff #[(&optional base-rev path dont-switch) "\304t\203\f\305\306!\202\306 \n #)\207" [dvc-temp-current-active-dvc base-rev path dont-switch baz call-interactively dvc-diff] 4 (#$ . 4249) nil]) #@59 Wrapper for dvc-ignore-file-extensions, for back-end baz. (defalias 'baz-ignore-file-extensions #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list baz call-interactively dvc-ignore-file-extensions] 2 (#$ . 4508) nil]) #@66 Wrapper for dvc-ignore-file-extensions-in-dir, for back-end baz. (defalias 'baz-ignore-file-extensions-in-dir #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list baz call-interactively dvc-ignore-file-extensions-in-dir] 2 (#$ . 4776) nil]) #@45 Wrapper for dvc-log-edit, for back-end baz. (defalias 'baz-log-edit #[(&optional OTHER-FRAME) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc OTHER-FRAME baz call-interactively dvc-log-edit] 2 (#$ . 5065) nil]) #@43 Wrapper for dvc-rename, for back-end baz. (defalias 'baz-rename #[(from-name to-name) "\303t\203\f\304\305!\202\305 \n\")\207" [dvc-temp-current-active-dvc from-name to-name baz call-interactively dvc-rename] 3 (#$ . 5305) nil]) #@49 Wrapper for dvc-remove-files, for back-end baz. (defalias 'baz-remove-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files baz call-interactively dvc-remove-files] 2 (#$ . 5544) nil]) #@49 Wrapper for dvc-revert-files, for back-end baz. (defalias 'baz-revert-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files baz call-interactively dvc-revert-files] 2 (#$ . 5780) nil]) #@43 Wrapper for dvc-status, for back-end baz. (defalias 'baz-status #[(&optional path) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc path baz call-interactively dvc-status] 2 (#$ . 6016) nil]) (defalias 'baz-dvc-command-version 'baz-command-version) #@41 Run bzr pull. (fn &optional REPO-PATH) (autoload 'bzr-pull "bzr" '(#$ . 6293) t nil) #@103 Run bzr push. When called with a prefix argument, add the --remember option (fn &optional REPO-PATH) (autoload 'bzr-push "bzr" '(#$ . 6386) t nil) #@42 Run bzr merge. (fn &optional REPO-PATH) (autoload 'bzr-merge "bzr" '(#$ . 6540) t nil) #@38 Run bzr update. (fn &optional PATH) (autoload 'bzr-update "bzr" '(#$ . 6634) t nil) #@154 Run "bzr diff" against a particular revision. Same as `bzr-dvc-diff', but the interactive prompt is different. (fn AGAINST &optional PATH DONT-SWITCH) (autoload 'bzr-diff-against "bzr" '(#$ . 6726) t nil) #@176 Run "bzr diff". AGAINST must be a DVC revision id ('bzr number, last:N, revid:foobar, ...). TODO: DONT-SWITCH is currently ignored. (fn &optional AGAINST PATH DONT-SWITCH) (autoload 'bzr-dvc-diff "bzr" '(#$ . 6940) t nil) #@28 Run "bzr inventory". (fn) (autoload 'bzr-inventory "bzr" '(#$ . 7171) t nil) #@41 Adds FILE to the repository. (fn FILE) (autoload 'bzr-add "bzr" '(#$ . 7255) t nil) #@32 Run bzr add. (fn &rest FILES) (autoload 'bzr-dvc-add-files "bzr" '(#$ . 7346) nil nil) #@35 Run bzr revert. (fn &rest FILES) (autoload 'bzr-dvc-revert-files "bzr" '(#$ . 7440) nil nil) #@35 Run bzr remove. (fn &rest FILES) (autoload 'bzr-dvc-remove-files "bzr" '(#$ . 7540) nil nil) #@47 Run bzr rename. (fn FROM TO &optional AFTER) (autoload 'bzr-dvc-rename "bzr" '(#$ . 7640) t nil) #@199 Command to delete .rej file after conflicts resolution. Asks confirmation if the file still has diff3 markers. Then, run "bzr resolve". TODO: should share some code with `tla-resolved'. (fn FILE) (autoload 'bzr-resolved "bzr" '(#$ . 7745) t nil) #@129 Insert the content of FILE in LAST-REVISION, in current buffer. LAST-REVISION looks like ("root" NUM) (fn FILE LAST-REVISION) (autoload 'bzr-revision-get-last-revision "bzr" '(#$ . 8000) nil nil) #@346 Return the tree root for LOCATION, nil if not in a local tree. Computation is done from withing Emacs, by looking at a .bzr/ directory in a parent buffer of LOCATION. This is therefore very fast. If NO-ERROR is non-nil, don't raise an error if LOCATION is not a bzr-managed tree (but return nil). (fn &optional LOCATION NO-ERROR INTERACTIVE) (autoload 'bzr-tree-root "bzr-core" '(#$ . 8205) t nil) #@98 Call "bzr log -r 1" to get the tree-id. Does anyone know of a better way to get this info? (fn) (autoload 'bzr-tree-id "bzr-core" '(#$ . 8612) t nil) #@47 Prepare the environment to run bzr. (fn ENV) (autoload 'bzr-prepare-environment "bzr-core" '(#$ . 8769) nil nil) #@24 Disable aliases. (fn) (autoload 'bzr-default-global-argument "bzr-core" '(#$ . 8889) nil nil) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301\306\"\207" [current-load-list dvc-registered-backends default-boundp set-default nil add-to-list bzr] 3) #@100 Human friendly name used for the dvc backend 'bzr. This variable was created by `dvc-register-dvc' (defvar bzr-backend-name "Bazaar 2" (#$ . 9157)) #@50 Wrapper for dvc-add-log-entry, for back-end bzr. (defalias 'bzr-add-log-entry #[nil "\301\302\303!)\207" [dvc-temp-current-active-dvc bzr call-interactively dvc-add-log-entry] 2 (#$ . 9311) nil]) #@46 Wrapper for dvc-add-files, for back-end bzr. (defalias 'bzr-add-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files bzr call-interactively dvc-add-files] 2 (#$ . 9514) nil]) #@41 Wrapper for dvc-diff, for back-end bzr. (defalias 'bzr-diff #[(&optional base-rev path dont-switch) "\304t\203\f\305\306!\202\306 \n #)\207" [dvc-temp-current-active-dvc base-rev path dont-switch bzr call-interactively dvc-diff] 4 (#$ . 9741) nil]) #@59 Wrapper for dvc-ignore-file-extensions, for back-end bzr. (defalias 'bzr-ignore-file-extensions #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list bzr call-interactively dvc-ignore-file-extensions] 2 (#$ . 10000) nil]) #@66 Wrapper for dvc-ignore-file-extensions-in-dir, for back-end bzr. (defalias 'bzr-ignore-file-extensions-in-dir #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list bzr call-interactively dvc-ignore-file-extensions-in-dir] 2 (#$ . 10269) nil]) #@45 Wrapper for dvc-log-edit, for back-end bzr. (defalias 'bzr-log-edit #[(&optional OTHER-FRAME) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc OTHER-FRAME bzr call-interactively dvc-log-edit] 2 (#$ . 10559) nil]) #@43 Wrapper for dvc-rename, for back-end bzr. (defalias 'bzr-rename #[(from-name to-name) "\303t\203\f\304\305!\202\305 \n\")\207" [dvc-temp-current-active-dvc from-name to-name bzr call-interactively dvc-rename] 3 (#$ . 10800) nil]) #@49 Wrapper for dvc-remove-files, for back-end bzr. (defalias 'bzr-remove-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files bzr call-interactively dvc-remove-files] 2 (#$ . 11040) nil]) #@49 Wrapper for dvc-revert-files, for back-end bzr. (defalias 'bzr-revert-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files bzr call-interactively dvc-revert-files] 2 (#$ . 11277) nil]) #@43 Wrapper for dvc-status, for back-end bzr. (defalias 'bzr-status #[(&optional path) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc path bzr call-interactively dvc-status] 2 (#$ . 11514) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\207" [defalias bzr-dvc-inventory bzr-inventory bzr-dvc-missing bzr-missing bzr-dvc-pull bzr-pull bzr-dvc-merge bzr-merge bzr-dvc-submit-patch bzr-submit-patch bzr-dvc-add bzr-add bzr-dvc-log-edit-done bzr-log-edit-done] 3) #@27 Not documented (fn FILE) (autoload 'bzr-dvc-search-file-in-diff "bzr-dvc" '(#$ . 12093) nil nil) #@40 Not documented (fn BACK-END-REVISION) (autoload 'bzr-dvc-name-construct "bzr-dvc" '(#$ . 12197) nil nil) #@129 The filename, used to store the log message before commiting. Usually that file is placed in the tree-root of the working tree. (defvar bzr-log-edit-file-name ".tmp-bzr-log-edit.txt" (#$ . 12310)) (defalias 'bzr-dvc-command-version 'bzr-command-version) #@277 Run bzr log for PATH and show only the first line of the log message. LAST-N revisions are shown (default dvc-log-last-n). Note that the LAST-N restriction is applied first, so if both PATH and LAST-N are specified, fewer than LAST-N revisions may be shown. (fn PATH LAST-N) (autoload 'bzr-log "bzr-revision" '(#$ . 12571) t nil) #@55 Run bzr log against a remote location. (fn LOCATION) (autoload 'bzr-log-remote "bzr-revision" '(#$ . 12908) t nil) #@65 Run bzr log and show the full log message. (fn &optional PATH) (autoload 'bzr-changelog "bzr-revision" '(#$ . 13030) t nil) #@40 Run bzr missing. (fn &optional OTHER) (autoload 'bzr-missing "bzr-revision" '(#$ . 13161) t nil) #@752 Submit a patch to a bzr working copy (at BZR-TREE-ROOT) via email. With this feature it is not necessary to branch a bzr archive. You simply edit your checked out copy from your project and call this function. The function will create a patch as a .diff file (based on PATCH-BASE-NAME) and send it to the given email address EMAIL. VERSION-STRING should indicate the version of bzr that the patch applies to. DESCRIPTION is a brief descsription of the patch. SUBJECT is the subject for the email message. PROMPT-FILES indicates whether to prompt for the files to include in the patch. For an example, how to use this function see: `bzr-submit-patch'. (fn BZR-TREE-ROOT PATCH-BASE-NAME EMAIL VERSION-STRING &optional DESCRIPTION SUBJECT PROMPT-FILES) (autoload 'bzr-prepare-patch-submission "bzr-submit" '(#$ . 13266) t nil) #@471 Submit a patch for the current bzr project. With this feature it is not necessary to tag an arch archive. You simply edit your checked out copy and call this function. The function will create a patch as *.tar.gz file and prepare a buffer to send the patch via email. The variable `bzr-submit-patch-mapping' allows to specify the target email address and the base name of the sent tarball. After the user has sent the message, `bzr-submit-patch-done' is called. (fn) (autoload 'bzr-submit-patch "bzr-submit" '(#$ . 14098) t nil) #@35 Displays a welcome message. (fn) (autoload 'dvc-about "dvc-about" '(#$ . 14636) t nil) #@120 Display the *dvc-bookmarks* buffer. With prefix argument ARG, reload the bookmarks file from disk. (fn &optional ARG) (autoload 'dvc-bookmarks "dvc-bookmarks" '(#$ . 14731) t nil) #@76 Submit a bug report, with pertinent information to the dvc-dev list. (fn) (autoload 'dvc-submit-bug-report "dvc-bug" '(#$ . 14918) t nil) #@407 Return a list of currently active files. When in dired mode, return the marked files or the file under point. In a DVC mode, return `dvc-buffer-marked-file-list' if non-nil; otherwise the result depends on SELECTION-MODE: * When 'nil-if-none-marked, return nil. * When 'all-if-none-marked, return all files. * Otherwise return result of calling `dvc-get-file-info-at-point'. (fn &optional SELECTION-MODE) (autoload 'dvc-current-file-list "dvc-core" '(#$ . 15064) nil nil) #@83 Run ediff of FILE (default current buffer file) against last revision. (fn FILE) (autoload 'dvc-file-ediff "dvc-diff" '(#$ . 15543) t nil) #@189 Default for back-end-specific file diff. View changes in FILE between BASE (default last-revision) and MODIFIED (default workspace version). (fn FILE &optional BASE MODIFIED DONT-SWITCH) (autoload 'dvc-dvc-file-diff "dvc-diff" '(#$ . 15690) nil nil) #@378 Insinuate Gnus for each registered DVC back-end. Runs (-insinuate-gnus) for each registered back-end having this function. Additionally the following key binding is defined for the gnus summary mode map: K t l `dvc-gnus-article-extract-log-message' K t v `dvc-gnus-article-view-patch' K t m `dvc-gnus-article-view-missing' K t a `dvc-gnus-article-apply-patch' (fn) (autoload 'dvc-insinuate-gnus "dvc-gnus" '(#$ . 15948) t nil) #@79 Major Mode to edit DVC log messages. Commands: \{dvc-log-edit-mode-map} (fn) (autoload 'dvc-log-edit-mode "dvc-log" '(#$ . 16393) t nil) #@224 Edit the log file for tree ROOT before a commit. OTHER_FRAME if non-nil puts log edit buffer in a separate frame. NO-INIT if non-nil suppresses initialization of the buffer if one is reused. (fn ROOT OTHER-FRAME NO-INIT) (autoload 'dvc-dvc-log-edit "dvc-log" '(#$ . 16538) nil nil) #@190 Add new ChangeLog style entry to the current DVC log-edit buffer. If OTHER-FRAME xor `dvc-log-edit-other-frame' is non-nil, show log-edit buffer in other frame. (fn &optional OTHER-FRAME) (autoload 'dvc-add-log-entry "dvc-log" '(#$ . 16829) t nil) #@92 Apply ARGS to the `dvc-current-active-dvc' concated with POSTFIX. (fn POSTFIX &rest ARGS) (autoload 'dvc-apply "dvc-register" '(#$ . 17084) nil nil) #@130 Call the function specified by concatenating `dvc-current-active-dvc' and POSTFIX, with arguments ARGS. (fn POSTFIX &rest ARGS) (autoload 'dvc-call "dvc-register" '(#$ . 17241) nil nil) #@144 Pop up a buffer with a tip message. Don't use this function from Xtla. Use `dvc-tips-popup-maybe' instead. (fn &optional DIRECTION NOSWITCH) (autoload 'dvc-tips-popup "dvc-tips" '(#$ . 17435) t nil) (byte-code "\301\302!\210\303B\304\303!\204\305\303\306\"\210\307B\304\307!\204\"\305\307\310\"\210\311B\304\311!\2041\305\311\312\"\210\313B\304\313!\204@\305\313\314\"\210\315B\304\315!\204O\305\315\316\"\210\317B\304\317!\204^\305\317\320\"\210\321B\304\321!\204m\305\321\322\"\210\323B\304\323!\204|\305\323\324\"\210\325B\304\325!\204\213\305\325\326\"\210\327B\304\327!\204\232\305\327\330\"\210\331B\304\331!\204\251\305\331\332\"\210\333B\304\333!\204\270\305\333\334\"\210\335B\304\335!\204\307\305\335\336\"\210\337B\304\337!\204\326\305\337\340\"\210\341B\304\341!\204\345\305\341\342\"\210\343B\304\343!\204\364\305\343\344\"\210\301\207" [current-load-list require easymenu dvc-key-help default-boundp set-default 63 dvc-key-diff 61 dvc-key-status 115 dvc-key-show-bookmark 98 dvc-key-file-diff 100 dvc-key-tree-lint 108 dvc-key-logs 76 dvc-key-ediff 101 dvc-key-log-entry 97 dvc-key-inventory 105 dvc-key-kill-ring-prefix 119 dvc-key-commit 99 dvc-key-update 117 dvc-key-missing 109 dvc-key-buffer-prefix 66 dvc-key-file-prefix 102] 3) (defalias 'dvc-key-group #[(prefix &rest keys) "\302\303 #\207" [prefix keys apply vector] 4]) (defalias 'dvc-prefix-file #[(&rest keys) "\302 \"\207" [dvc-key-file-prefix keys dvc-key-group] 3]) (defalias 'dvc-prefix-kill-ring #[(&rest keys) "\302 \"\207" [dvc-key-kill-ring-prefix keys dvc-key-group] 3]) (defalias 'dvc-prefix-buffer #[(&rest keys) "\302 \"\207" [dvc-key-buffer-prefix keys dvc-key-group] 3]) (byte-code "\306B\307\306!\204\310\306\311 !\"\210\312B\307\312!\204\"\310\312\311\n!\"\210\313B\307\313!\2043\310\313\311 !\"\210\314B\307\314!\204D\310\314\311\f!\"\210\315B\307\315!\204U\310\315\311 !\"\210\316B\307\316!\204g\310\316\311!\"\210\317B\307\317!\204y\310\317\311!\"\210\320B\307\320!\204\213\310\320\311!\"\210\320B\307\320!\204\235\310\320\311!\"\210\321B\307\321!\204\257\310\321\311!\"\210\322B\307\322!\204\301\310\322\311!\"\210\323B\307\323!\204\323\310\323\311!\"\210\324B\307\324!\204\345\310\324\311!\"\210\325B\307\325!\204\367\310\325\311!\"\210\306\207" [current-load-list dvc-key-help dvc-key-ediff dvc-key-tree-lint dvc-key-logs dvc-key-log-entry dvc-keyvec-help default-boundp set-default vector dvc-keyvec-ediff dvc-keyvec-tree-lint dvc-keyvec-logs dvc-keyvec-log-entry dvc-keyvec-diff dvc-keyvec-status dvc-keyvec-file-diff dvc-keyvec-commit dvc-keyvec-update dvc-keyvec-missing dvc-keyvec-inventory dvc-keyvec-show-bookmark dvc-key-diff dvc-key-status dvc-key-file-diff dvc-key-commit dvc-key-update dvc-key-missing dvc-key-inventory dvc-key-show-bookmark] 4) #@28 Global keymap used by DVC. (defvar dvc-global-keymap (byte-code "\306 \307\310\311#\210\307\312\313#\210\307\314\315#\210\307 \316#\210\307\317\320#\210\307\n\321#\210\307 \322#\210\307\323\324#\210\307\f\325#\210\307 \326#\210\307@\327#\210\307\330\331#\210\307A\332#\210\307\333\334#\210\307B\335#\210\307\336\337#\210\307\340\341#\210\307C\342#\210\307\343\344#\210\307\345\346#\210\307D\347#\210\307E\350#\210\307\351\352!\353#\210\307\351\354!\355#\210\307\351\356!\357#\210\307\351\360!\361#\210\307\351\362!\363#\210\307\364F!\365#\210\307\364G!\366#\210\307\364H!\367#\210\307\364I!\370#\210\307\364\371!\372#\210\307\373\352!\374#\210\307\373\375!\376#\210\307\373\371!\377#\210)\207" [map dvc-keyvec-log-entry dvc-keyvec-file-diff dvc-keyvec-ediff dvc-keyvec-diff dvc-keyvec-status make-sparse-keymap define-key [85] tla-undo [82] tla-redo [112] dvc-submit-patch dvc-add-log-entry [65] tla-archives dvc-file-diff dvc-file-ediff [111] tla-file-view-original dvc-diff dvc-status dvc-log-edit [116] tla-tag-insert dvc-inventory [114] tla-tree-revisions dvc-log [108] dvc-changelog [(meta 108)] tla-tree-lint dvc-update [109] dvc-missing [77] dvc-merge dvc-bookmarks tla-help dvc-prefix-file 97 dvc-add-files 68 dvc-remove-files 82 dvc-revert-files 77 dvc-rename 88 dvc-purge-files dvc-prefix-buffer tla-changes-goto baz-status-goto tla-inventory-goto tla-tree-lint-goto 114 tla-tree-revisions-goto dvc-prefix-kill-ring tla-save-archive-to-kill-ring 118 tla-save-version-to-kill-ring tla-save-revision-to-kill-ring dvc-keyvec-commit dvc-keyvec-inventory dvc-keyvec-logs dvc-keyvec-update dvc-keyvec-show-bookmark dvc-keyvec-help dvc-key-diff dvc-key-status dvc-key-inventory dvc-key-tree-lint] 4) (#$ . 20312)) #@121 Prefix key for the DVC commands in the global keymap. If you wish to disable the prefix key, set this variable to nil. (defvar dvc-prefix-key [(control x) 86] (#$ . 22083)) (custom-autoload 'dvc-prefix-key "dvc-ui" nil) #@44 Install the DVC prefix key globally. (fn) (autoload 'dvc-enable-prefix-key "dvc-ui" '(#$ . 22310) t nil) (byte-code "\302 \210\303\304\302\305#\210\306\307\310#\210\311\312\301!\205 \313\314\315$\207" [ctl-x-4-map menu-bar-tools-menu dvc-enable-prefix-key add-hook after-init-hook t define-key [84] dvc-add-log-entry easy-menu-add-item boundp nil ("DVC" ["Browse Archives" tla-archives t] ["Show Bookmarks" tla-bookmarks t] ["Start New Project" tla-start-project t] "---" "Tree Commands:" ["View Diff" dvc-diff t] ["View Status" dvc-status t] ["View Inventory" tla-inventory t] ["View Tree Lint" tla-tree-lint t] ["Show Tree Revisions" tla-tree-revisions t] ["Edit Commit Log" dvc-log-edit t] "---" "File Commands:" ["Insert Arch Tag" tla-tag-insert t] ["Add Log Entry" dvc-add-log-entry t] ["View File Diff" tla-file-diff t] ["View File Ediff" tla-file-ediff t] ["View Original" tla-file-view-original t] ["View Conflicts" tla-view-conflicts t] "---" ("Goto Buffer" ["View Changes" tla-changes-goto t] ["View Status" baz-status-goto t] ["View Inventory" tla-inventory-goto t] ["View Tree Lint" tla-tree-lint-goto t] ["Show Tree Revisions" tla-tree-revisions-goto t]) ("Quick Configuration" ["Three Way Merge" tla-toggle-three-way-merge :style toggle :selected tla-three-way-merge] ["Show Ancestor in Conflicts" tla-toggle-show-ancestor :style toggle :selected tla-show-ancestor] ["Non Recursive Inventory" tla-toggle-non-recursive-inventory :style toggle :selected tla-non-recursive-inventory] ["Use --skip-present" tla-toggle-use-skip-present-option :style toggle :selected tla-use-skip-present-option])) "PCL-CVS"] 5) #@160 Add FILES to the currently active dvc. FILES is a list of strings including path from root; interactive defaults to (dvc-current-file-list). (fn &rest FILES) (autoload 'dvc-add-files "dvc-unified" '(#$ . 23942) t nil) #@62 Revert FILES for the currently active dvc. (fn &rest FILES) (autoload 'dvc-revert-files "dvc-unified" '(#$ . 24167) t nil) #@62 Remove FILES for the currently active dvc. (fn &rest FILES) (autoload 'dvc-remove-files "dvc-unified" '(#$ . 24297) t nil) #@128 Define a DVC unified command. &optional arguments are permitted, but not &rest. (fn NAME ARGS COMMENT &optional INTERACTIVE) (autoload 'define-dvc-unified-command "dvc-unified" '(#$ . 24428) nil 'macro) #@324 Display the changes from BASE-REV to the local tree in PATH. BASE-REV (a revision-id) defaults to base revision of the tree. Use `dvc-delta' for differencing two revisions. PATH defaults to `default-directory'. The new buffer is always displayed; if DONT-SWITCH is nil, select it. (fn &optional BASE-REV PATH DONT-SWITCH) (autoload 'dvc-diff "dvc-unified" '(#$ . 24640) t nil) #@152 Display from revision BASE to MODIFIED. BASE and MODIFIED must be revision ID. The new buffer is always displayed; if DONT-SWITCH is nil, select it. (defalias 'dvc-delta #[(base modified &optional dont-switch) "\303\304\305\306 \n$\"\207" [base modified dont-switch dvc-apply "dvc-delta" dvc-remove-optional-args (base modified &optional dont-switch)] 7 (#$ . 25025)]) #@209 Display the changes in FILE (default current buffer file) between BASE (default last-revision) and MODIFIED (default workspace version). If DONT-SWITCH is non-nil, just show the diff buffer, don't select it. (defalias 'dvc-file-diff #[(file &optional base modified dont-switch) "\304\305\306\307 \n %\"\207" [file base modified dont-switch dvc-apply "dvc-file-diff" dvc-remove-optional-args (file &optional base modified dont-switch)] 8 (#$ . 25404) (list buffer-file-name)]) #@64 Display the status in optional PATH tree. (fn &optional PATH) (autoload 'dvc-status "dvc-unified" '(#$ . 25887) t nil) #@264 Display the brief log for PATH (a file-name; default current buffer file name; nil means entire tree), LAST-N entries (default `dvc-log-last-n'; all if nil). LAST-N may be specified interactively. Use `dvc-changelog' for the full log. (fn &optional PATH LAST-N) (autoload 'dvc-log "dvc-unified" '(#$ . 26014) t nil) #@94 Display the full changelog in this tree for the actual dvc. Use `dvc-log' for the brief log. (defalias 'dvc-changelog #[(&optional arg) "\301\302\303\304\"\"\207" [arg dvc-apply "dvc-changelog" dvc-remove-optional-args (&optional arg)] 5 (#$ . 26337) nil]) #@30 Adds FILE to the repository. (defalias 'dvc-add #[(file) "\301\302\303\304\"\"\207" [file dvc-apply "dvc-add" dvc-remove-optional-args (file)] 5 (#$ . 26601) nil]) #@76 Returns and/or shows the version identity string of backend command. (fn) (autoload 'dvc-command-version "dvc-unified" '(#$ . 26772) t nil) #@195 Get the tree root for PATH or the current `default-directory'. When called interactively, print a message including the tree root and the current active back-end. (fn &optional PATH NO-ERROR) (autoload 'dvc-tree-root "dvc-unified" '(#$ . 26920) t nil) #@278 Edit the log before commiting. Optional OTHER_FRAME (default user prefix) puts log edit buffer in a separate frame. Optional NO-INIT if non-nil suppresses initialization of buffer if one is reused. `default-directory' must be the tree root. (fn &optional OTHER-FRAME NO-INIT) (autoload 'dvc-log-edit "dvc-unified" '(#$ . 27181) t nil) #@70 Commit and close the log buffer. Optional ARG is back-end specific. (defalias 'dvc-log-edit-done #[(&optional arg) "\301\302\303\304\"\"\207" [arg dvc-apply "dvc-log-edit-done" dvc-remove-optional-args (&optional arg)] 5 (#$ . 27523) (list current-prefix-arg)]) #@29 Edit the ignored file list. (defalias 'dvc-edit-ignore-files #[nil "\300\301\302\303!\"\207" [dvc-apply "dvc-edit-ignore-files" dvc-remove-optional-args nil] 4 (#$ . 27793) nil]) #@26 Ignore the marked files. (defalias 'dvc-ignore-files #[(file-list) "\301\302\303\304\"\"\207" [file-list dvc-apply "dvc-ignore-files" dvc-remove-optional-args (file-list)] 5 (#$ . 27978) (list (dvc-current-file-list))]) #@102 Ignore the file extensions of the marked files, in all directories of the workspace. (fn FILE-LIST) (autoload 'dvc-ignore-file-extensions "dvc-unified" '(#$ . 28206) t nil) #@139 Ignore the file extensions of the marked files, only in the directories containing the files, and recursively below them. (fn FILE-LIST) (autoload 'dvc-ignore-file-extensions-in-dir "dvc-unified" '(#$ . 28387) t nil) #@184 Show revisions missing from the local workspace, relative to OTHER. OTHER defaults to the head revision of the current branch; for some back-ends, it may also be a remote repository. (defalias 'dvc-missing #[(&optional other) "\301\302\303\304\"\"\207" [other dvc-apply "dvc-missing" dvc-remove-optional-args (&optional other)] 5 (#$ . 28612) nil]) #@43 Show the inventory for this working copy. (defalias 'dvc-inventory #[nil "\300\301\302\303!\"\207" [dvc-apply "dvc-inventory" dvc-remove-optional-args nil] 4 (#$ . 28968) nil]) #@72 Store the diff from the working copy against the repository in a file. (defalias 'dvc-save-diff #[(file) "\301\302\303\304\"\"\207" [file dvc-apply "dvc-save-diff" dvc-remove-optional-args (file)] 5 (#$ . 29151) (list (read-file-name "Save the diff to: "))]) #@27 Update this working copy. (defalias 'dvc-update #[nil "\300\301\302\303!\"\207" [dvc-apply "dvc-update" dvc-remove-optional-args nil] 4 (#$ . 29417) nil]) #@117 Pull changes from the remote source to the working copy or local database, as appropriate for the current back-end. (defalias 'dvc-pull #[nil "\300\301\302\303!\"\207" [dvc-apply "dvc-pull" dvc-remove-optional-args nil] 4 (#$ . 29579) nil]) #@237 Merge with OTHER. If OTHER is nil, merge heads in current database, or merge from remembered database. If OTHER is a string, it identifies a (local or remote) database or branch to merge into the current database, branch, or workspace. (defalias 'dvc-merge #[(&optional other) "\301\302\303\304\"\"\207" [other dvc-apply "dvc-merge" dvc-remove-optional-args (&optional other)] 5 (#$ . 29827) nil]) #@59 Submit a patch for the current project under DVC control. (defalias 'dvc-submit-patch #[nil "\300\301\302\303!\"\207" [dvc-apply "dvc-submit-patch" dvc-remove-optional-args nil] 4 (#$ . 30232) nil]) #@56 Send a commit notification for the changeset at point. (defalias 'dvc-send-commit-notification #[nil "\300\301\302\303!\"\207" [dvc-apply "dvc-send-commit-notification" dvc-remove-optional-args nil] 4 (#$ . 30437) nil]) #@31 Execute BODY if in GNU/Emacs. (defalias 'dvc-do-in-gnu-emacs '(macro . #[(&rest body) "\301B\207" [body progn] 2 (#$ . 30663)])) #@28 Execute BODY if in XEmacs. (defalias 'dvc-do-in-xemacs '(macro . #[(&rest body) "\300\207" [nil] 1 (#$ . 30799)])) #@157 Display the trace message MSG. Same as `message' if `dvc-debug' is non-nil. Does nothing otherwise. Please use it for your debug messages. (fn &rest MSG) (autoload 'dvc-trace "dvc-utils" '(#$ . 30921) nil nil) #@276 Reload DVC (usually for debugging purpose). With prefix arg, prompts for the DIRECTORY in which DVC should be loaded. Useful to switch from one branch to the other. If a Makefile is present in the directory where DVC is to be loaded, run "make". (fn &optional DIRECTORY) (autoload 'dvc-reload "dvc-utils" '(#$ . 31140) t nil) #@237 Show a tla inventory at DIRECTORY. When called with a prefix arg, pop to the inventory buffer. DIRECTORY defaults to the current one when within an arch managed tree, unless prefix argument ARG is non-nil. (fn &optional DIRECTORY ARG) (autoload 'tla-inventory "tla" '(#$ . 31477) t nil) #@360 Edit the tla log file. With an optional prefix argument INSERT-CHANGELOG, insert the last group of entries from the ChangeLog file. SOURCE-BUFFER, if non-nil, is the buffer from which the function was called. It is used to get the list of marked files, and potentially run a selected file commit. (fn &optional INSERT-CHANGELOG SOURCE-BUFFER OTHER-FRAME) (autoload 'tla-edit-log "tla" '(#$ . 31772) t nil) #@316 Run "tla changes". When called without a prefix argument: show the detailed diffs also. When called with a prefix argument SUMMARY: do not show detailed diffs. When AGAINST is non-nil, use it as comparison tree. DONT-SWITCH is necessary for DVC, but currently ignored. (fn &optional SUMMARY AGAINST DONT-SWITCH) (autoload 'tla-changes "tla" '(#$ . 32189) t nil) #@181 Run tla update in TREE. Also runs update recursively for subdirectories. After running update, execute HANDLE (function taking no argument). (fn TREE &optional HANDLE RECURSIVE) (autoload 'tla-update "tla" '(#$ . 32561) t nil) #@150 Wrapper for `tla-changes'. When called interactively, SUMMARY is the prefix arg, and AGAINST is read from the user. (fn &optional SUMMARY AGAINST) (autoload 'tla-changes-against "tla" '(#$ . 32797) t nil) #@244 Run `tla-changes' against the last but one revision. The idea is that running this command just after a commit should be equivalent to running `tla-changes' just before the commit. SUMMARY is passed to `tla-changes'. (fn &optional SUMMARY) (autoload 'tla-changes-last-revision "tla" '(#$ . 33011) t nil) #@278 Run tla delta BASE MODIFIED. If DIRECTORY is a non-empty string, the delta is stored to it. If DIRECTORY is ask, a symbol, ask the name of directory. If DIRECTORY is nil or an empty string, just show the delta using --diffs. (fn BASE MODIFIED &optional DIRECTORY DONT-SWITCH) (autoload 'tla-delta "tla" '(#$ . 33325) t nil) #@291 Gets the changeset corresponding to REVISION. When JUSTSHOW is non-nil (no prefix arg), just show the diff. Otherwise, store changeset in DESTINATION. If WITHOUT-DIFF is non-nil, don't use the --diff option to show the changeset. (fn REVISION JUSTSHOW &optional DESTINATION WITHOUT-DIFF) (autoload 'tla-get-changeset "tla" '(#$ . 33657) t nil) #@220 Call "tla apply-changeset". CHANGESET is the changeset to apply, TARGET is the directory in which to apply the changeset. If REVERSE is non-nil, apply the changeset in reverse. (fn CHANGESET TARGET &optional REVERSE) (autoload 'tla-apply-changeset "tla" '(#$ . 34010) t nil) #@87 View changes in FILE between BASE and MODIFIED using ediff. (fn FILE &optional BASE) (autoload 'tla-file-ediff-against "tla" '(#$ . 34293) t nil) #@275 Run "tla file-diff" on file FILE. In interactive mode, the file is the current buffer's file. If REVISION is specified, it must be a string representing a revision name, and the file will be diffed according to this revision. (fn FILE &optional BASE MODIFIED DONT-SWITCH) (autoload 'tla-file-diff "tla" '(#$ . 34447) t nil) #@173 Command to delete .rej file after conflicts resolution. Asks confirmation if the file still has diff3 markers. If "resolved" command is available, also run it. (fn FILE) (autoload 'tla-resolved "tla" '(#$ . 34780) t nil) #@491 *** WARNING: semi-deprecated function. Use this function if you like, but M-x smerge-mode RET is actually better for the same task **** Graphical view of conflicts after tla star-merge --three-way. The buffer given as an argument must be the content of a file with conflicts markers like. <<<<<<< TREE my text ======= his text >>>>>>> MERGE-SOURCE Priority is given to your file by default. (This means all conflicts will be rejected if you do nothing). (fn BUFFER) (autoload 'tla-view-conflicts "tla" '(#$ . -35010) t nil) #@151 Interactive view of differences in FILE with ediff. Changes are computed since last commit (or REVISION if specified). (fn FILE &optional REVISION) (autoload 'tla-file-ediff "tla" '(#$ . 35565) t nil) #@185 Get the last-committed version of FILE in a buffer. If REVISION is specified, it must be a cons representing the revision for which to get the original. (fn FILE &optional REVISION) (autoload 'tla-file-view-original "tla" '(#$ . 35775) t nil) #@130 Insert the content of FILE in LAST-REVISION, in current buffer. LAST-REVISION looks like ("path" NUM). (fn FILE LAST-REVISION) (autoload 'tla-revision-get-last-revision "tla" '(#$ . 36027) nil nil) #@278 Run tla commit. Optional argument HANDLER is the process handler for the commit command. `nil' or a symbol(`seal' or `fix') is acceptable as VERSION-FLAG. When the commit finishes successful, `tla-commit-done-hook' is called. (fn &optional HANDLER VERSION-FLAG SUMMARY-LINE) (autoload 'tla-commit "tla" '(#$ . 36234) t nil) #@503 Start a new project. Prompts for the root directory of the project and the fully qualified version name to use. Sets up and imports the tree and displays an inventory buffer to allow the project's files to be added and committed. If ARCHIVE is given, use it when reading version. Return a cons pair: its car is the new version name string, and its cdr is imported location. If SYNCHRONOUSLY is non-nil, run "tla import" synchronously. Else run it asynchronously. (fn &optional ARCHIVE SYNCHRONOUSLY) (autoload 'tla-start-project "tla" '(#$ . 36567) t nil) #@72 Call tla rm on file FILE. Prompts for confirmation before. (fn FILE) (autoload 'tla-rm "tla" '(#$ . 37131) nil nil) #@183 Run "tla changelog". display the result in an improved ChangeLog mode. If NAME is given, name is passed to "tla changelog" as the place where changelog is got. (fn &optional NAME) (autoload 'tla-changelog "tla" '(#$ . 37256) t nil) #@21 Run tla logs. (fn) (autoload 'tla-logs "tla" '(#$ . 37496) t nil) #@35 Run tla COMMAND -H. (fn COMMAND) (autoload 'tla-help "tla" '(#$ . 37569) t nil) #@259 Equivalent of tla tree-version (but implemented in pure elisp). Optional argument LOCATION is the directory in which the command must be ran. If NO-ERROR is non-nil, don't raise errors if ran outside an arch managed tree. (fn &optional LOCATION NO-ERROR) (autoload 'tla-tree-version "tla" '(#$ . 37657) t nil) #@545 Run tla my-id. When called without a prefix argument ARG, just print the my-id from tla and return it. If MY-ID is not set yet, return an empty string. When called with a prefix argument, ask for a new my-id. The my-id should have the following format: Your id is recorded in various archives and log messages as you use arch. It must consist entirely of printable characters and fit on one line. By convention, it should have the form of an email address, as in this example: Jane Hacker (fn &optional ARG MY-ID) (autoload 'tla-my-id "tla" '(#$ . 37977) t nil) #@73 Call either 'baz tree-id' or 'tla logs -f -r' to get the tree-id. (fn) (autoload 'tla-tree-id "tla" '(#$ . 38575) t nil) #@409 Run tla my-revision-library. When called without a prefix argument ARG, just print the my-revision-library from tla. When called with a prefix argument, ask for a new my-revision-library. my-revision-library specifies a path, where the revision library is stored to speed up tla. For example ~/tmp/arch-lib. You can configure the parameters for the library via `tla-library-config'. (fn &optional ARG) (autoload 'tla-my-revision-library "tla" '(#$ . 38704) t nil) #@214 View (and return) or change the id-tagging method. When called without prefix argument ARG: show the actual tagging method. When called with prefix argument ARG: Ask the user for the new tagging method. (fn ARG) (autoload 'tla-id-tagging-method "tla" '(#$ . 39181) t nil) #@91 Star merge from version/revision FROM to local tree TO-TREE. (fn FROM &optional TO-TREE) (autoload 'tla-star-merge "tla" '(#$ . 39460) t nil) #@141 Run tla switch to VERSION in TREE. After running update, execute HANDLE (function taking no argument). (fn TREE VERSION &optional HANDLE) (autoload 'tla-switch "tla" '(#$ . 39610) t nil) #@62 Run tla export to export REVISION to DIR. (fn REVISION DIR) (autoload 'tla-export "tla" '(#$ . 39805) t nil) #@241 Create a tag from SOURCE-REVISION to TAG-VERSION. Run tla tag --setup. If SYNCHRONOUSLY is non-nil, the process for tagging runs synchronously. Else it runs asynchronously. (fn SOURCE-REVISION TAG-VERSION &optional CACHEREV SYNCHRONOUSLY) (autoload 'tla-tag "tla" '(#$ . 39922) t nil) #@120 Display xtla bookmarks in a buffer. With prefix argument ARG, reload the bookmarks file from disk. (fn &optional ARG) (autoload 'tla-bookmarks "tla" '(#$ . 40215) t nil) #@34 Start the archive browser. (fn) (autoload 'tla-archives "tla" '(#$ . 40392) t nil) #@81 Call `tla--register-archive' interactively and `tla-archives' on success. (fn) (autoload 'tla-register-archive "tla" '(#$ . 40482) t nil) #@73 Call `tla--make-archive' interactively then call `tla-archives'. (fn) (autoload 'tla-make-archive "tla" '(#$ . 40627) t nil) #@69 Goto tree revisions buffer or call `tla-tree-revisions'. (fn ROOT) (autoload 'tla-tree-revisions-goto "tla" '(#$ . 40760) t nil) #@54 Call `tla-revisions' in the current tree. (fn ROOT) (autoload 'tla-tree-revisions "tla" '(#$ . 40896) t nil) #@182 List the revisions of ARCHIVE/CATEGORY--BRANCH--VERSION. UNUSED is left here to keep the position of FROM-REVLIB (fn ARCHIVE CATEGORY BRANCH VERSION &optional UNUSED FROM-REVLIB) (autoload 'tla-revisions "tla" '(#$ . 41013) t nil) #@271 Search in directory LOCAL-TREE for missing patches from LOCATION. If the current buffers default directory is in an arch managed tree use that one unless called with a prefix arg. In all other cases prompt for the local tree and the location. (fn LOCAL-TREE LOCATION) (autoload 'tla-missing "tla" '(#$ . 41253) t nil) #@360 Run tla get in DIRECTORY. If RUN-DIRED-P is non-nil, display the new tree in dired. ARCHIVE, CATEGORY, BRANCH, VERSION and REVISION make up the revision to be fetched. If SYNCHRONOUSLY is non-nil, run the process synchronously. Else, run the process asynchronously. (fn DIRECTORY RUN-DIRED-P ARCHIVE CATEGORY BRANCH &optional VERSION REVISION SYNCHRONOUSLY) (autoload 'tla-get "tla" '(#$ . 41580) t nil) #@32 Run tla add. (fn &rest FILES) (autoload 'tla-dvc-add-files "tla" '(#$ . 41991) nil nil) #@60 Return non-nil if FILE-NAME has conflicts. (fn FILE-NAME) (autoload 'tla-file-has-conflict-p "tla" '(#$ . 42086) nil nil) #@53 Show the log for REVISION-SPEC. (fn REVISION-SPEC) (autoload 'tla-revlog "tla" '(#$ . 42215) t nil) (add-to-list 'auto-mode-alist '("\\+\\+log\\." . tla-log-edit-mode)) #@80 Major Mode to edit xtla log messages. Commands: \{tla-log-edit-mode-map} (fn) (autoload 'tla-log-edit-mode "tla" '(#$ . 42391) t nil) #@60 Show the log entry for REVISION (a string). (fn REVISION) (autoload 'tla-revlog-any "tla" '(#$ . 42532) t nil) #@82 Major mode to edit tla inventory files (=tagging-method, .arch-inventory). (fn) (autoload 'tla-inventory-file-mode "tla" '(#$ . 42650) t nil) #@284 Return a suitable string for an arch-tag. Actually calls `tla-tag-function', which defaults to `tla-tag-uuid' to generate string (and possibly add a comment-end after). Interactively, you should call `tla-tag-insert', but this function can be usefull to write template files. (fn) (autoload 'tla-tag-string "tla" '(#$ . 42800) nil nil) #@179 Insert a unique arch-tag in the current file. Actually calls `tla-tag-function', which defaults to `tla-tag-uuid' to generate string (and possibly add a comment-end after) (fn) (autoload 'tla-tag-insert "tla" '(#$ . 43145) t nil) #@266 Find an arch tag in the current buffer and regenerates it. This means changing the ID of the file, which will usually be done after copying a file in the same tree to avoid duplicates ID. Raises an error when multiple tags are found or when no tag is found. (fn) (autoload 'tla-tag-regenerate "tla" '(#$ . 43383) t nil) #@24 Add a log entry. (fn) (autoload 'tla-ediff-add-log-entry "tla" '(#$ . 43711) t nil) #@49 Run tla tree-lint in directory ROOT. (fn ROOT) (autoload 'tla-tree-lint "tla" '(#$ . 43802) t nil) #@80 Prompts an archive location and insert it on the current point location. (fn) (autoload 'tla-insert-location "tla" '(#$ . 43908) t nil) #@662 Submit a patch to a tla working copy (at TLA-TREE-ROOT) via email. With this feature it is not necessary to tag an tla archive. You simply edit your checked out copy from your project and call this function. The function will create a patch as *.tar.gz file (based on TARBALL-BASE-NAME) and send it to the given email address EMAIL. VERSION-STRING should indicate the version of tla that the patch applies to. DESCRIPTION is a brief descsription of the patch. SUBJECT is the subject for the email message. For an example, how to use this function see: `tla-submit-patch'. (fn TLA-TREE-ROOT TARBALL-BASE-NAME EMAIL VERSION-STRING &optional DESCRIPTION SUBJECT) (autoload 'tla-prepare-patch-submission "tla" '(#$ . 44052) t nil) #@214 Clean up after sending a patch via mail. That function is usually called via `message-sent-hook'. Its purpose is to revert the sent changes or to delete sent changeset tarball (see: `tla-patch-sent-action'. (fn) (autoload 'tla-submit-patch-done "tla" '(#$ . 44787) nil nil) #@57 Major mode to edit GNU arch's build config files. (fn) (autoload 'tla-bconfig-mode "tla-bconfig" '(#$ . 45068) t nil) (add-to-list 'auto-mode-alist '("\\.arch$" . tla-bconfig-mode)) #@292 Browse registered archives as trees within one buffer. You can specify the node should be opened by alist, INITIAL-OPEN-LIST. If APPEND is nil, the nodes not in INITIAL-OPEN-LIST are made closed. If non-nil, the nodes already opened are kept open. (fn &optional INITIAL-OPEN-LIST APPEND) (autoload 'tla-browse "tla-browse" '(#$ . 45258) t nil) #@446 Return the tree root for LOCATION, nil if not in a local tree. Computation is done from withing Emacs, by looking at an {arch} directory in a parent buffer of LOCATION. This is therefore very fast. If LOCATION is nil, the tree root is returned, and it is guaranteed to end in a "/" character. If NO-ERROR is non-nil, don't raise an error if LOCATION is not an arch managed tree (but return nil). (fn &optional LOCATION NO-ERROR INTERACTIVE) (autoload 'tla-tree-root "tla-core" '(#$ . 45612) t nil) #@351 Make a regexp for an Arch name (archive, category, ...). LEVEL can be 0 (archive), 1 (category), 2 (branch), 3 (version) or 4 (revision). If SLASH-MANDATORY is non-nil, the '/' after the archive name is mandatory. (allows to distinguish between Arch archives and emails. If EXACT is non-nil, match exactly LEVEL. (fn LEVEL SLASH-MANDATORY EXACT) (autoload 'tla-make-name-regexp "tla-core" '(#$ . 46121) nil nil) (byte-code "\301\302!\210\301\303!\210\304\305N\306\235\204\307\304\305\306B#\210)\301\207" [loads require easymenu dvc-core xtla custom-loads "tla-defs" put] 5) #@142 *If non-nil, merge operations are invoked with --three-way. (or without --two-way for branches of arch in which --three-way is the default). (defvar tla-three-way-merge t (#$ . -46711)) (custom-autoload 'tla-three-way-merge "tla-defs" t) #@414 *If non-nil, merge operations are invoked with --show-ancestor. With this option, conflicts markers will include TREE, MERGE-SOURCE, and ancestor versions. `smerge-ediff' allows you to view the ancestor with `ediff-show-ancestor' (usually bound to `/'). Unfortunately, this will also report more conflicts: Conflicts will be reported even when TREE and MERGE-SOURCE are identical, if they differ from ANCESTOR. (defvar tla-show-ancestor nil (#$ . -46956)) (custom-autoload 'tla-show-ancestor "tla-defs" t) #@67 *If non-nil, inventory is run with --no-recursion (if available). (defvar tla-non-recursive-inventory t (#$ . -47470)) (custom-autoload 'tla-non-recursive-inventory "tla-defs" t) #@62 *If non-nil, use --skip-present with commands that allow it. (defvar tla-use-skip-present-option nil (#$ . -47655)) (custom-autoload 'tla-use-skip-present-option "tla-defs" t) #@50 Toggle the value of `tla-three-way-merge'. (fn) (autoload 'tla-toggle-three-way-merge "tla-defs" '(#$ . 47837) t nil) #@48 Toggle the value of `tla-show-ancestor'. (fn) (autoload 'tla-toggle-show-ancestor "tla-defs" '(#$ . 47962) t nil) #@65 Toggle the value of `tla-toggle-non-recursive-inventory'. (fn) (autoload 'tla-toggle-non-recursive-inventory "tla-defs" '(#$ . 48083) t nil) (byte-code "\301\302\303\"\210\304B\305\304!\204\306\304\307\"\210\301\304\310\"\207" [current-load-list add-to-list auto-mode-alist ("/\\(=tagging-method\\|\\.arch-inventory\\)$" . tla-inventory-file-mode) dvc-registered-backends default-boundp set-default nil tla] 3) #@100 Human friendly name used for the dvc backend 'tla. This variable was created by `dvc-register-dvc' (defvar tla-backend-name "GNU Arch" (#$ . 48506)) #@50 Wrapper for dvc-add-log-entry, for back-end tla. (defalias 'tla-add-log-entry #[nil "\301\302\303!)\207" [dvc-temp-current-active-dvc tla call-interactively dvc-add-log-entry] 2 (#$ . 48661) nil]) #@46 Wrapper for dvc-add-files, for back-end tla. (defalias 'tla-add-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files tla call-interactively dvc-add-files] 2 (#$ . 48865) nil]) #@41 Wrapper for dvc-diff, for back-end tla. (defalias 'tla-diff #[(&optional base-rev path dont-switch) "\304t\203\f\305\306!\202\306 \n #)\207" [dvc-temp-current-active-dvc base-rev path dont-switch tla call-interactively dvc-diff] 4 (#$ . 49093) nil]) #@59 Wrapper for dvc-ignore-file-extensions, for back-end tla. (defalias 'tla-ignore-file-extensions #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list tla call-interactively dvc-ignore-file-extensions] 2 (#$ . 49353) nil]) #@66 Wrapper for dvc-ignore-file-extensions-in-dir, for back-end tla. (defalias 'tla-ignore-file-extensions-in-dir #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list tla call-interactively dvc-ignore-file-extensions-in-dir] 2 (#$ . 49622) nil]) #@45 Wrapper for dvc-log-edit, for back-end tla. (defalias 'tla-log-edit #[(&optional OTHER-FRAME) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc OTHER-FRAME tla call-interactively dvc-log-edit] 2 (#$ . 49912) nil]) #@43 Wrapper for dvc-rename, for back-end tla. (defalias 'tla-rename #[(from-name to-name) "\303t\203\f\304\305!\202\305 \n\")\207" [dvc-temp-current-active-dvc from-name to-name tla call-interactively dvc-rename] 3 (#$ . 50153) nil]) #@49 Wrapper for dvc-remove-files, for back-end tla. (defalias 'tla-remove-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files tla call-interactively dvc-remove-files] 2 (#$ . 50393) nil]) #@49 Wrapper for dvc-revert-files, for back-end tla. (defalias 'tla-revert-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files tla call-interactively dvc-revert-files] 2 (#$ . 50630) nil]) #@43 Wrapper for dvc-status, for back-end tla. (defalias 'tla-status #[(&optional path) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc path tla call-interactively dvc-status] 2 (#$ . 50867) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias tla-dvc-command-version tla-command-version tla-dvc-file-has-conflict-p tla-file-has-conflict-p] 3) #@218 Integrate the tla backend of DVC into Gnus. Add the `tla-submit-patch-done' function to the `message-sent-hook'. The archives/categories/branches/version/revision names are buttonized in the *Article* buffers. (fn) (autoload 'tla-insinuate-gnus "tla-gnus" '(#$ . 51249) t nil) #@55 Run all the available test-cases in batch mode. (fn) (autoload 'tla-tests-batch "tla-tests" '(#$ . 51534) t nil) #@246 Run the testcase TEST. Switch HOME to the test directory, clear the log buffer, call the function TEST, and check that the list of tla commands ran by calling TEST is the same as the one expected, stored in `tla-tests-command-alist' (fn TEST) (autoload 'tla-tests-run "tla-tests" '(#$ . 51655) t nil) #@34 Run darcs add. (fn &rest FILES) (autoload 'xdarcs-dvc-add-files "xdarcs" '(#$ . 51964) nil nil) #@42 Run darcs whatsnew. (fn &optional PATH) (autoload 'xdarcs-whatsnew "xdarcs" '(#$ . 52067) t nil) #@62 Run 'darcs pull --dry-run -s -v' to see what's missing (fn) (autoload 'xdarcs-missing "xdarcs" '(#$ . 52171) t nil) #@28 Run darcs pull --all (fn) (autoload 'xdarcs-pull "xdarcs" '(#$ . 52294) t nil) #@57 Not documented (fn &optional AGAINST PATH DONT-SWITCH) (autoload 'xdarcs-dvc-diff "xdarcs" '(#$ . 52380) t nil) #@129 Insert the content of FILE in LAST-REVISION, in current buffer. LAST-REVISION looks like ("path" NUM) (fn FILE LAST-REVISION) (autoload 'xdarcs-revision-get-last-revision "xdarcs" '(#$ . 52500) nil nil) #@37 Run darcs revert. (fn &rest FILES) (autoload 'xdarcs-dvc-revert-files "xdarcs" '(#$ . 52711) nil nil) #@37 Run darcs remove. (fn &rest FILES) (autoload 'xdarcs-dvc-remove-files "xdarcs" '(#$ . 52820) nil nil) #@349 Return the tree root for LOCATION, nil if not in a local tree. Computation is done from withing Emacs, by looking at an _darcs/ directory in a parent buffer of LOCATION. This is therefore very fast. If NO-ERROR is non-nil, don't raise an error if LOCATION is not a git managed tree (but return nil). (fn &optional LOCATION NO-ERROR INTERACTIVE) (autoload 'xdarcs-tree-root "xdarcs-core" '(#$ . 52930) nil nil) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301\306\"\207" [current-load-list dvc-registered-backends default-boundp set-default nil add-to-list xdarcs] 3) #@103 Human friendly name used for the dvc backend 'xdarcs. This variable was created by `dvc-register-dvc' (defvar xdarcs-backend-name "Darcs" (#$ . 53519)) #@53 Wrapper for dvc-add-log-entry, for back-end xdarcs. (defalias 'xdarcs-add-log-entry #[nil "\301\302\303!)\207" [dvc-temp-current-active-dvc xdarcs call-interactively dvc-add-log-entry] 2 (#$ . 53677) nil]) #@49 Wrapper for dvc-add-files, for back-end xdarcs. (defalias 'xdarcs-add-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files xdarcs call-interactively dvc-add-files] 2 (#$ . 53890) nil]) #@44 Wrapper for dvc-diff, for back-end xdarcs. (defalias 'xdarcs-diff #[(&optional base-rev path dont-switch) "\304t\203\f\305\306!\202\306 \n #)\207" [dvc-temp-current-active-dvc base-rev path dont-switch xdarcs call-interactively dvc-diff] 4 (#$ . 54127) nil]) #@62 Wrapper for dvc-ignore-file-extensions, for back-end xdarcs. (defalias 'xdarcs-ignore-file-extensions #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list xdarcs call-interactively dvc-ignore-file-extensions] 2 (#$ . 54396) nil]) #@69 Wrapper for dvc-ignore-file-extensions-in-dir, for back-end xdarcs. (defalias 'xdarcs-ignore-file-extensions-in-dir #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list xdarcs call-interactively dvc-ignore-file-extensions-in-dir] 2 (#$ . 54674) nil]) #@48 Wrapper for dvc-log-edit, for back-end xdarcs. (defalias 'xdarcs-log-edit #[(&optional OTHER-FRAME) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc OTHER-FRAME xdarcs call-interactively dvc-log-edit] 2 (#$ . 54973) nil]) #@46 Wrapper for dvc-rename, for back-end xdarcs. (defalias 'xdarcs-rename #[(from-name to-name) "\303t\203\f\304\305!\202\305 \n\")\207" [dvc-temp-current-active-dvc from-name to-name xdarcs call-interactively dvc-rename] 3 (#$ . 55223) nil]) #@52 Wrapper for dvc-remove-files, for back-end xdarcs. (defalias 'xdarcs-remove-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files xdarcs call-interactively dvc-remove-files] 2 (#$ . 55472) nil]) #@52 Wrapper for dvc-revert-files, for back-end xdarcs. (defalias 'xdarcs-revert-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files xdarcs call-interactively dvc-revert-files] 2 (#$ . 55718) nil]) #@46 Wrapper for dvc-status, for back-end xdarcs. (defalias 'xdarcs-status #[(&optional path) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc path xdarcs call-interactively dvc-status] 2 (#$ . 55964) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\207" [defalias xdarcs-dvc-tree-root xdarcs-tree-root xdarcs-dvc-command-version xdarcs-command-version xdarcs-dvc-status xdarcs-whatsnew xdarcs-dvc-missing xdarcs-missing xdarcs-dvc-pull xdarcs-pull] 3) #@35 Run git init. (fn &optional DIR) (autoload 'xgit-init "xgit" '(#$ . 56496) t nil) #@26 Run git clone. (fn SRC) (autoload 'xgit-clone "xgit" '(#$ . 56585) t nil) #@49 Add FILE to the current git project. (fn FILE) (autoload 'xgit-add "xgit" '(#$ . 56666) t nil) #@32 Run git add. (fn &rest FILES) (autoload 'xgit-dvc-add-files "xgit" '(#$ . 56768) nil nil) #@148 Remove FILE from the current git project. If FORCE is non-nil, then remove the file even if it has uncommitted changes. (fn FILE &optional FORCE) (autoload 'xgit-remove "xgit" '(#$ . 56866) t nil) #@31 Run git rm. (fn &rest FILES) (autoload 'xgit-dvc-remove-files "xgit" '(#$ . 57070) nil nil) #@228 Run 'git add .' to add all files in the current directory tree to git. Normally run 'git add -n .' to simulate the operation to see which files will be added. Only when called with a prefix argument, add the files. (fn ARG) (autoload 'xgit-add-all-files "xgit" '(#$ . 57170) t nil) #@180 Add all new files to the index, remove all deleted files from the index, and add all changed files to the index. This is done only for files in the current directory tree. (fn) (autoload 'xgit-addremove "xgit" '(#$ . 57462) t nil) #@61 Not documented (fn &optional AGAINST-REV PATH DONT-SWITCH) (autoload 'xgit-dvc-diff "xgit" '(#$ . 57701) t nil) #@72 Call "git diff --cached". (fn &optional AGAINST-REV PATH DONT-SWITCH) (autoload 'xgit-diff-cached "xgit" '(#$ . 57820) t nil) #@93 Call "git diff" (diff between tree and index). (fn &optional AGAINST-REV PATH DONT-SWITCH) (autoload 'xgit-diff-index "xgit" '(#$ . 57953) t nil) #@56 Call "git diff HEAD". (fn &optional PATH DONT-SWITCH) (autoload 'xgit-diff-head "xgit" '(#$ . 58106) t nil) #@75 Revert uncommitted changes made to FILE in the current branch. (fn FILE) (autoload 'xgit-revert-file "xgit" '(#$ . 58221) t nil) #@83 Revert uncommitted changes made to FILES in the current branch. (fn &rest FILES) (autoload 'xgit-dvc-revert-files "xgit" '(#$ . 58357) nil nil) #@93 Run git am to apply the contents of MBOX as one or more patches. (fn MBOX &optional FORCE) (autoload 'xgit-apply-mbox "xgit" '(#$ . 58508) t nil) #@129 Insert the content of FILE in LAST-REVISION, in current buffer. LAST-REVISION looks like ("path" NUM) (fn FILE LAST-REVISION) (autoload 'xgit-revision-get-last-revision "xgit" '(#$ . 58662) nil nil) #@347 Return the tree root for LOCATION, nil if not in a local tree. Computation is done from withing Emacs, by looking at an .git/ directory in a parent buffer of LOCATION. This is therefore very fast. If NO-ERROR is non-nil, don't raise an error if LOCATION is not a git managed tree (but return nil). (fn &optional LOCATION NO-ERROR INTERACTIVE) (autoload 'xgit-tree-root "xgit-core" '(#$ . 58870) nil nil) #@47 Prepare the environment to run git. (fn ENV) (autoload 'xgit-prepare-environment "xgit-core" '(#$ . 59283) nil nil) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301\306\"\207" [current-load-list dvc-registered-backends default-boundp set-default nil add-to-list xgit] 3) #@101 Human friendly name used for the dvc backend 'xgit. This variable was created by `dvc-register-dvc' (defvar xgit-backend-name "git" (#$ . 59574)) #@51 Wrapper for dvc-add-log-entry, for back-end xgit. (defalias 'xgit-add-log-entry #[nil "\301\302\303!)\207" [dvc-temp-current-active-dvc xgit call-interactively dvc-add-log-entry] 2 (#$ . 59726) nil]) #@47 Wrapper for dvc-add-files, for back-end xgit. (defalias 'xgit-add-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files xgit call-interactively dvc-add-files] 2 (#$ . 59933) nil]) #@42 Wrapper for dvc-diff, for back-end xgit. (defalias 'xgit-diff #[(&optional base-rev path dont-switch) "\304t\203\f\305\306!\202\306 \n #)\207" [dvc-temp-current-active-dvc base-rev path dont-switch xgit call-interactively dvc-diff] 4 (#$ . 60164) nil]) #@60 Wrapper for dvc-ignore-file-extensions, for back-end xgit. (defalias 'xgit-ignore-file-extensions #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list xgit call-interactively dvc-ignore-file-extensions] 2 (#$ . 60427) nil]) #@67 Wrapper for dvc-ignore-file-extensions-in-dir, for back-end xgit. (defalias 'xgit-ignore-file-extensions-in-dir #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list xgit call-interactively dvc-ignore-file-extensions-in-dir] 2 (#$ . 60699) nil]) #@46 Wrapper for dvc-log-edit, for back-end xgit. (defalias 'xgit-log-edit #[(&optional OTHER-FRAME) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc OTHER-FRAME xgit call-interactively dvc-log-edit] 2 (#$ . 60992) nil]) #@44 Wrapper for dvc-rename, for back-end xgit. (defalias 'xgit-rename #[(from-name to-name) "\303t\203\f\304\305!\202\305 \n\")\207" [dvc-temp-current-active-dvc from-name to-name xgit call-interactively dvc-rename] 3 (#$ . 61236) nil]) #@50 Wrapper for dvc-remove-files, for back-end xgit. (defalias 'xgit-remove-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files xgit call-interactively dvc-remove-files] 2 (#$ . 61479) nil]) #@50 Wrapper for dvc-revert-files, for back-end xgit. (defalias 'xgit-revert-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files xgit call-interactively dvc-revert-files] 2 (#$ . 61719) nil]) #@44 Wrapper for dvc-status, for back-end xgit. (defalias 'xgit-status #[(&optional path) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc path xgit call-interactively dvc-status] 2 (#$ . 61959) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias xgit-dvc-tree-root xgit-tree-root xgit-dvc-command-version xgit-command-version] 3) #@96 Shows the changelog in the current git tree. ARG is passed as prefix argument (fn ARG LAST-N) (autoload 'xgit-dvc-log "xgit-dvc" '(#$ . 62327) nil nil) #@228 Integrate Xgit into Gnus. The following keybindings are installed for gnus-summary: K t s `xgit-gnus-article-view-status-for-apply-patch' K t v `xgit-gnus-article-view-patch' The following keybindings are ignored: K t l (fn) (autoload 'xgit-insinuate-gnus "xgit-gnus" '(#$ . 62487) t nil) #@417 Run git log for DIR. DIR is a directory controlled by Git/Cogito. CNT is max number of log to print. If not specified, uses xgit-log-max-count. LOG-REGEXP is regexp to filter logs by matching commit logs. DIFF-MATCH is string to filter logs by matching commit diffs. REV is revision to show. FILE is filename in repostory to filter logs by matching filename. (fn DIR CNT &key LOG-REGEXP DIFF-MATCH REV FILE SINCE) (autoload 'xgit-log "xgit-log" '(#$ . 62785) t nil) #@34 Run hg init. (fn &optional DIR) (autoload 'xhg-init "xhg" '(#$ . 63259) t nil) #@31 Run hg add. (fn &rest FILES) (autoload 'xhg-dvc-add-files "xhg" '(#$ . 63345) nil nil) #@34 Run hg revert. (fn &rest FILES) (autoload 'xhg-dvc-revert-files "xhg" '(#$ . 63439) nil nil) #@34 Run hg remove. (fn &rest FILES) (autoload 'xhg-dvc-remove-files "xhg" '(#$ . 63539) nil nil) #@25 Run hg addremove. (fn) (autoload 'xhg-addremove "xhg" '(#$ . 63639) t nil) #@52 Run hg rename. (fn FROM TO &optional AFTER FORCE) (autoload 'xhg-dvc-rename "xhg" '(#$ . 63721) t nil) #@34 Run hg forget. (fn &rest FILES) (autoload 'xhg-forget "xhg" '(#$ . 63831) t nil) #@196 Run 'hg add' to add all files to mercurial. Normally run 'hg add -n' to simulate the operation to see which files will be added. Only when called with a prefix argument, add the files. (fn ARG) (autoload 'xhg-add-all-files "xhg" '(#$ . 63920) t nil) #@347 Run hg log. When run interactively, the prefix argument decides, which parameters are queried from the user. C-u : Show patches also, use all revisions C-u C-u : Show patches also, ask for revisions positive : Don't show patches, ask for revisions. negative : Don't show patches, limit to n revisions. (fn &optional R1 R2 SHOW-PATCH FILE) (autoload 'xhg-log "xhg" '(#$ . 64178) t nil) #@104 Run hg diff. If DONT-SWITCH, don't switch to the diff buffer (fn &optional BASE-REV PATH DONT-SWITCH) (autoload 'xhg-dvc-diff "xhg" '(#$ . 64577) t nil) #@52 Run hg pull. (fn SRC &optional UPDATE-AFTER-PULL) (autoload 'xhg-pull "xhg" '(#$ . 64737) t nil) #@58 Run hg clone. (fn SRC &optional DEST NOUPDATE REV PULL) (autoload 'xhg-clone "xhg" '(#$ . 64841) t nil) #@59 Run hg incoming. (fn &optional SRC SHOW-PATCH NO-MERGES) (autoload 'xhg-incoming "xhg" '(#$ . 64952) t nil) #@40 Run hg merge. (fn &optional REVISION) (autoload 'xhg-merge "xhg" '(#$ . 65067) t nil) #@19 Run hg tip. (fn) (autoload 'xhg-tip "xhg" '(#$ . 65160) t nil) #@21 Run hg heads. (fn) (autoload 'xhg-heads "xhg" '(#$ . 65230) t nil) #@23 Run hg parents. (fn) (autoload 'xhg-parents "xhg" '(#$ . 65304) t nil) #@24 Run hg identify. (fn) (autoload 'xhg-identify "xhg" '(#$ . 65382) t nil) #@22 Run hg verify. (fn) (autoload 'xhg-verify "xhg" '(#$ . 65462) t nil) #@26 Run hg showconfig. (fn) (autoload 'xhg-showconfig "xhg" '(#$ . 65538) t nil) #@342 Run hg paths. When called interactive, display them in an *xhg-info* buffer. Otherwise the return value depends on TYPE: 'alias: Return only alias names 'path: Return only the paths 'both Return the aliases and the paths in a flat list otherwise: Return a list of two element sublists containing alias, path (fn &optional TYPE) (autoload 'xhg-paths "xhg" '(#$ . 65623) t nil) #@20 Run hg tags. (fn) (autoload 'xhg-tags "xhg" '(#$ . 66018) t nil) #@24 Run hg annotate. (fn) (autoload 'xhg-annotate "xhg" '(#$ . 66090) t nil) #@20 Run hg view. (fn) (autoload 'xhg-view "xhg" '(#$ . 66170) t nil) #@109 Run hg export. `xhg-export-git-style-patches' determines, if git style patches are created. (fn REV FNAME) (autoload 'xhg-export "xhg" '(#$ . 66243) t nil) #@54 Run hg import. (fn PATCH-FILE-NAME &optional FORCE) (autoload 'xhg-import "xhg" '(#$ . 66406) t nil) #@20 Run hg undo. (fn) (autoload 'xhg-undo "xhg" '(#$ . 66514) t nil) #@22 Run hg update. (fn) (autoload 'xhg-update "xhg" '(#$ . 66586) t nil) #@129 Insert the content of FILE in LAST-REVISION, in current buffer. LAST-REVISION looks like ("path" NUM) (fn FILE LAST-REVISION) (autoload 'xhg-revision-get-last-revision "xhg" '(#$ . 66663) nil nil) #@87 Shows the logs of the new arrived changesets after a pull and before an update. (fn) (autoload 'xhg-missing "xhg" '(#$ . 66868) t nil) #@352 Return the tree root for LOCATION, nil if not in a local tree. Computation is done from withing Emacs, by looking at an .hg/ directory in a parent buffer of LOCATION. This is therefore very fast. If NO-ERROR is non-nil, don't raise an error if LOCATION is not a mercurial managed tree (but return nil). (fn &optional LOCATION NO-ERROR INTERACTIVE) (autoload 'xhg-tree-root "xhg-core" '(#$ . 67011) nil nil) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301\306\"\207" [current-load-list dvc-registered-backends default-boundp set-default nil add-to-list xhg] 3) #@100 Human friendly name used for the dvc backend 'xhg. This variable was created by `dvc-register-dvc' (defvar xhg-backend-name "Mercurial" (#$ . 67594)) #@50 Wrapper for dvc-add-log-entry, for back-end xhg. (defalias 'xhg-add-log-entry #[nil "\301\302\303!)\207" [dvc-temp-current-active-dvc xhg call-interactively dvc-add-log-entry] 2 (#$ . 67750) nil]) #@46 Wrapper for dvc-add-files, for back-end xhg. (defalias 'xhg-add-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files xhg call-interactively dvc-add-files] 2 (#$ . 67954) nil]) #@41 Wrapper for dvc-diff, for back-end xhg. (defalias 'xhg-diff #[(&optional base-rev path dont-switch) "\304t\203\f\305\306!\202\306 \n #)\207" [dvc-temp-current-active-dvc base-rev path dont-switch xhg call-interactively dvc-diff] 4 (#$ . 68182) nil]) #@59 Wrapper for dvc-ignore-file-extensions, for back-end xhg. (defalias 'xhg-ignore-file-extensions #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list xhg call-interactively dvc-ignore-file-extensions] 2 (#$ . 68442) nil]) #@66 Wrapper for dvc-ignore-file-extensions-in-dir, for back-end xhg. (defalias 'xhg-ignore-file-extensions-in-dir #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list xhg call-interactively dvc-ignore-file-extensions-in-dir] 2 (#$ . 68711) nil]) #@45 Wrapper for dvc-log-edit, for back-end xhg. (defalias 'xhg-log-edit #[(&optional OTHER-FRAME) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc OTHER-FRAME xhg call-interactively dvc-log-edit] 2 (#$ . 69001) nil]) #@43 Wrapper for dvc-rename, for back-end xhg. (defalias 'xhg-rename #[(from-name to-name) "\303t\203\f\304\305!\202\305 \n\")\207" [dvc-temp-current-active-dvc from-name to-name xhg call-interactively dvc-rename] 3 (#$ . 69242) nil]) #@49 Wrapper for dvc-remove-files, for back-end xhg. (defalias 'xhg-remove-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files xhg call-interactively dvc-remove-files] 2 (#$ . 69482) nil]) #@49 Wrapper for dvc-revert-files, for back-end xhg. (defalias 'xhg-revert-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files xhg call-interactively dvc-revert-files] 2 (#$ . 69719) nil]) #@43 Wrapper for dvc-status, for back-end xhg. (defalias 'xhg-status #[(&optional path) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc path xhg call-interactively dvc-status] 2 (#$ . 69956) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\207" [defalias xhg-dvc-tree-root xhg-tree-root xhg-dvc-merge xhg-merge xhg-dvc-save-diff xhg-save-diff xhg-dvc-command-version xhg-command-version] 3) #@144 Integrate Xhg into Gnus. The following keybindings are installed for gnus-summary: K t s `xhg-gnus-article-view-status-for-import-patch' (fn) (autoload 'xhg-insinuate-gnus "xhg-gnus" '(#$ . 70410) t nil) #@123 Run hg qinit. When called without a prefix argument run hg qinit -c, otherwise hg qinit. (fn &optional DIR QINIT-SWITCH) (autoload 'xhg-qinit "xhg-mq" '(#$ . 70622) t nil) #@253 Run hg qnew. Asks for the patch name and an optional commit description. If the commit description is not empty, run hg qnew -m "commit description" When called with a prefix argument run hg qnew -f. (fn PATCH-NAME &optional COMMIT-DESCRIPTION FORCE) (autoload 'xhg-qnew "xhg-mq" '(#$ . 70802) t nil) #@24 Run hg qrefresh. (fn) (autoload 'xhg-qrefresh "xhg-mq" '(#$ . 71110) t nil) #@85 Run hg qpop. When called with a prefix argument run hg qpop -a. (fn &optional ALL) (autoload 'xhg-qpop "xhg-mq" '(#$ . 71193) t nil) #@87 Run hg qpush. When called with a prefix argument run hg qpush -a. (fn &optional ALL) (autoload 'xhg-qpush "xhg-mq" '(#$ . 71333) t nil) #@24 Run hg qapplied. (fn) (autoload 'xhg-qapplied "xhg-mq" '(#$ . 71476) t nil) #@26 Run hg qunapplied. (fn) (autoload 'xhg-qunapplied "xhg-mq" '(#$ . 71559) t nil) #@23 Run hg qseries. (fn) (autoload 'xhg-qseries "xhg-mq" '(#$ . 71646) t nil) #@36 Run hg qdiff. (fn &optional FILE) (autoload 'xhg-qdiff "xhg-mq" '(#$ . 71727) t nil) #@28 Run hg qdelete (fn PATCH) (autoload 'xhg-qdelete "xhg-mq" '(#$ . 71819) t nil) #@30 Run hg qrename (fn FROM TO) (autoload 'xhg-qrename "xhg-mq" '(#$ . 71905) t nil) #@24 Run hg qversion. (fn) (autoload 'xhg-qversion "xhg-mq" '(#$ . 71993) t nil) #@20 Run hg qtop. (fn) (autoload 'xhg-qtop "xhg-mq" '(#$ . 72076) t nil) #@21 Run hg qnext. (fn) (autoload 'xhg-qnext "xhg-mq" '(#$ . 72151) t nil) #@21 Run hg qprev. (fn) (autoload 'xhg-qprev "xhg-mq" '(#$ . 72228) t nil) #@29 Run hg qheader. (fn PATCH) (autoload 'xhg-qheader "xhg-mq" '(#$ . 72305) t nil) #@186 Prepare an email that contains a mq patch. `xhg-submit-patch-mapping' is honored for the destination email address and the project name that is used in the generated email. (fn PATCH) (autoload 'xhg-mq-export-via-mail "xhg-mq" '(#$ . 72393) t nil) #@26 Show the mq stack. (fn) (autoload 'xhg-mq-show-stack "xhg-mq" '(#$ . 72648) t nil) #@53 Show a dvc formatted log for xhg. (fn PATH LAST-N) (autoload 'xhg-dvc-log "xhg-revision" '(#$ . 72738) t nil) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301\306\"\207" [current-load-list dvc-registered-backends default-boundp set-default nil add-to-list xmtn] 3) #@101 Human friendly name used for the dvc backend 'xmtn. This variable was created by `dvc-register-dvc' (defvar xmtn-backend-name "monotone" (#$ . 73023)) #@51 Wrapper for dvc-add-log-entry, for back-end xmtn. (defalias 'xmtn-add-log-entry #[nil "\301\302\303!)\207" [dvc-temp-current-active-dvc xmtn call-interactively dvc-add-log-entry] 2 (#$ . 73180) nil]) #@47 Wrapper for dvc-add-files, for back-end xmtn. (defalias 'xmtn-add-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files xmtn call-interactively dvc-add-files] 2 (#$ . 73387) nil]) #@42 Wrapper for dvc-diff, for back-end xmtn. (defalias 'xmtn-diff #[(&optional base-rev path dont-switch) "\304t\203\f\305\306!\202\306 \n #)\207" [dvc-temp-current-active-dvc base-rev path dont-switch xmtn call-interactively dvc-diff] 4 (#$ . 73618) nil]) #@60 Wrapper for dvc-ignore-file-extensions, for back-end xmtn. (defalias 'xmtn-ignore-file-extensions #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list xmtn call-interactively dvc-ignore-file-extensions] 2 (#$ . 73881) nil]) #@67 Wrapper for dvc-ignore-file-extensions-in-dir, for back-end xmtn. (defalias 'xmtn-ignore-file-extensions-in-dir #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list xmtn call-interactively dvc-ignore-file-extensions-in-dir] 2 (#$ . 74153) nil]) #@46 Wrapper for dvc-log-edit, for back-end xmtn. (defalias 'xmtn-log-edit #[(&optional OTHER-FRAME) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc OTHER-FRAME xmtn call-interactively dvc-log-edit] 2 (#$ . 74446) nil]) #@44 Wrapper for dvc-rename, for back-end xmtn. (defalias 'xmtn-rename #[(from-name to-name) "\303t\203\f\304\305!\202\305 \n\")\207" [dvc-temp-current-active-dvc from-name to-name xmtn call-interactively dvc-rename] 3 (#$ . 74690) nil]) #@50 Wrapper for dvc-remove-files, for back-end xmtn. (defalias 'xmtn-remove-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files xmtn call-interactively dvc-remove-files] 2 (#$ . 74933) nil]) #@50 Wrapper for dvc-revert-files, for back-end xmtn. (defalias 'xmtn-revert-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files xmtn call-interactively dvc-revert-files] 2 (#$ . 75173) nil]) #@44 Wrapper for dvc-status, for back-end xmtn. (defalias 'xmtn-status #[(&optional path) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc path xmtn call-interactively dvc-status] 2 (#$ . 75413) nil]) #@37 Not documented (fn &optional ROOT) (autoload 'xmtn-dvc-log-edit-file-name-func "xmtn-dvc" '(#$ . 75637) nil nil) #@47 Not documented (fn ROOT OTHER-FRAME NO-INIT) (autoload 'xmtn-dvc-log-edit "xmtn-dvc" '(#$ . 75757) nil nil) #@22 Not documented (fn) (autoload 'xmtn-dvc-log-edit-done "xmtn-dvc" '(#$ . 75872) nil nil) #@78 Show the base revision of the current monotone tree in the minibuffer. (fn) (autoload 'xmtn-show-base-revision "xmtn-dvc" '(#$ . 75967) t nil) #@27 Not documented (fn FILE) (autoload 'xmtn-dvc-search-file-in-diff "xmtn-dvc" '(#$ . 76117) nil nil) #@58 Not documented (fn &optional BASE-REV PATH DONT-SWITCH) (autoload 'xmtn-dvc-diff "xmtn-dvc" '(#$ . 76223) nil nil) #@76 Not documented (fn FROM-REVISION-ID TO-REVISION-ID &optional DONT-SWITCH) (autoload 'xmtn-dvc-delta "xmtn-dvc" '(#$ . 76345) nil nil) #@22 Not documented (fn) (autoload 'xmtn-dvc-command-version "xmtn-dvc" '(#$ . 76486) nil nil) #@63 Display status of monotone tree at `default-directory'. (fn) (autoload 'xmtn-dvc-status "xmtn-dvc" '(#$ . 76583) nil nil) #@34 Not documented (fn REVISION-ID) (autoload 'xmtn-dvc-revision-direct-ancestor "xmtn-dvc" '(#$ . 76712) nil nil) #@39 Not documented (fn BACKEND-REVISION) (autoload 'xmtn-dvc-name-construct "xmtn-dvc" '(#$ . 76830) nil nil) #@22 Not documented (fn) (autoload 'xmtn-dvc-edit-ignore-files "xmtn-dvc" '(#$ . 76943) nil nil) #@33 Not documented (fn FILE-NAMES) (autoload 'xmtn-dvc-ignore-files "xmtn-dvc" '(#$ . 77042) nil nil) #@33 Not documented (fn EXTENSIONS) (autoload 'xmtn-dvc-backend-ignore-file-extensions "xmtn-dvc" '(#$ . 77147) nil nil) #@32 Not documented (fn FILE-LIST) (autoload 'xmtn-dvc-backend-ignore-file-extensions-in-dir "xmtn-dvc" '(#$ . 77270) nil nil) #@34 Not documented (fn &rest FILES) (autoload 'xmtn-dvc-add-files "xmtn-dvc" '(#$ . 77399) nil nil) #@27 Not documented (fn FILE) (autoload 'xmtn-dvc-add "xmtn-dvc" '(#$ . 77502) nil nil) #@34 Not documented (fn &rest FILES) (autoload 'xmtn-dvc-remove-files "xmtn-dvc" '(#$ . 77592) nil nil) #@54 Not documented (fn FROM-NAME TO-NAME BOOKKEEP-ONLY) (autoload 'xmtn-dvc-rename "xmtn-dvc" '(#$ . 77698) nil nil) #@187 Send an "enter" keystroke to a monotone subprocess. To be used in an xmtn process buffer. Useful when monotone spawns an external merger and asks you to hit enter when finished. (fn) (autoload 'xmtn-send-enter-to-subprocess "xmtn-dvc" '(#$ . 77819) t nil) #@22 Not documented (fn) (autoload 'xmtn-dvc-update "xmtn-dvc" '(#$ . 78084) nil nil) #@38 Not documented (fn &optional OTHER) (autoload 'xmtn-dvc-merge "xmtn-dvc" '(#$ . 78172) nil nil) #@38 Implement `dvc-pull' for xmtn. (fn) (autoload 'xmtn-dvc-pull "xmtn-dvc" '(#$ . 78275) nil nil) #@39 Not documented (fn &rest FILE-NAMES) (autoload 'xmtn-dvc-revert-files "xmtn-dvc" '(#$ . 78377) nil nil) #@39 Not documented (fn FILE REVISION-ID) (autoload 'xmtn-revision-get-previous-revision "xmtn-dvc" '(#$ . 78488) nil nil) #@33 Not documented (fn FILE STUFF) (autoload 'xmtn-revision-get-last-revision "xmtn-dvc" '(#$ . 78613) nil nil) #@33 Not documented (fn FILE STUFF) (autoload 'xmtn-revision-get-file-revision "xmtn-dvc" '(#$ . 78728) nil nil) #@33 Not documented (fn &rest ARGS) (autoload 'xmtn-dvc-revision-nth-ancestor "xmtn-dvc" '(#$ . 78843) nil nil) #@34 Not documented (fn XMTN--THUNK) (autoload 'xmtn-match--test "xmtn-match" '(#$ . 78957) nil nil) #@50 Not documented (fn &optional LOCATION NO-ERROR) (autoload 'xmtn-tree-root "xmtn-minimal" '(#$ . 79060) nil nil) #@22 Not documented (fn) (autoload 'xmtn-revision-refresh-maybe "xmtn-revlist" '(#$ . 79179) nil nil) #@28 Not documented (fn PATCH) (autoload 'xmtn-revision-list-entry-patch-printer "xmtn-revlist" '(#$ . 79283) nil nil) #@34 Not documented (fn PATH LAST-N) (autoload 'xmtn-dvc-log "xmtn-revlist" '(#$ . 79404) nil nil) #@44 Not documented (fn &optional PATH LAST-N) (autoload 'xmtn-log "xmtn-revlist" '(#$ . 79505) t nil) #@37 Not documented (fn &optional PATH) (autoload 'xmtn-dvc-changelog "xmtn-revlist" '(#$ . 79610) nil nil) #@38 Not documented (fn &optional OTHER) (autoload 'xmtn-dvc-missing "xmtn-revlist" '(#$ . 79720) nil nil) #@73 Display a revlist buffer showing the heads of the current branch. (fn) (autoload 'xmtn-view-heads-revlist "xmtn-revlist" '(#$ . 79829) t nil) #@298 Display a revlist buffer showing the revisions that modify FILE. Only ancestors of revision LAST-BACKEND-ID will be considered. FILE is a file name in revision LAST-BACKEND-ID, which defaults to the base revision of the current tree. (fn FILE &optional LAST-BACKEND-ID FIRST-LINE-ONLY-P LAST-N) (autoload 'xmtn-list-revisions-modifying-file "xmtn-revlist" '(#$ . 79979) t nil) #@82 Display a revlist buffer showing the revisions matching SELECTOR. (fn SELECTOR) (autoload 'xmtn-view-revlist-for-selector "xmtn-revlist" '(#$ . 80364) t nil) #@34 Not documented (fn REVISION-ID) (autoload 'xmtn-dvc-revlog-get-revision "xmtn-revlist" '(#$ . 80529) nil nil) #@119 Check and display the version identifier of the mtn command. This command resets xmtn's command version cache. (fn) (autoload 'xmtn-check-command-version "xmtn-run" '(#$ . 80647) t nil) (provide 'dvc-autoloads)