;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:32 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/xdarcs-dvc.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 "`xdarcs-dvc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\301\303!\210\304B\305\304!\204\306\304\307\"\210\310\304\302\"\207" [current-load-list require xdarcs dvc-unified dvc-registered-backends default-boundp set-default nil add-to-list] 3) #@103 Human friendly name used for the dvc backend 'xdarcs. This variable was created by `dvc-register-dvc' (defvar xdarcs-backend-name "Darcs" (#$ . 814)) #@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 (#$ . 970) 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 (#$ . 1181) 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 (#$ . 1417) 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 (#$ . 1685) 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 (#$ . 1962) 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 (#$ . 2260) 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 (#$ . 2509) 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 (#$ . 2757) 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 (#$ . 3002) 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 (#$ . 3247) 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) #@69 Relative path of the darcs boring file within the xdarcs-tree-root. (defvar xdarcs-ignore-file "_darcs/prefs/boring" (#$ . 3778)) (defalias 'xdarcs-dvc-edit-ignore-files #[nil "\301\302 P!\207" [xdarcs-ignore-file find-file-other-window xdarcs-tree-root] 3 nil nil]) (defalias 'xdarcs-dvc-ignore-files #[(file-list) "\304\305\306\307 #!\2055r\310\307 P!q\210db\210\311\211\2031 @\305\312\313\n!\"c\210 A\211\204*\314 )\207" [file-list xdarcs-ignore-file f-name #1=#:--cl-dolist-temp-- y-or-n-p format "Ignore %S for %s? " xdarcs-tree-root find-file-noselect nil "^%s$\n" regexp-quote save-buffer] 5 nil (list (dvc-current-file-list))]) (defalias 'xdarcs-dvc-backend-ignore-file-extensions #[(extension-list) "r\304\305 P!q\210db\210 \306\211\203& @\307\310\311\n!\"c\210 A\211\204*\312 )\207" [xdarcs-ignore-file extension-list ext-name #1=#:--cl-dolist-temp-- find-file-noselect xdarcs-tree-root nil format "\\.%s$\n" regexp-quote save-buffer] 5]) (provide 'xdarcs-dvc)