;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:30 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-unified.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-unified.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require dvc-register dvc-core dvc-defs dvc-tips] 2) #@142 Add FILES to the currently active dvc. FILES is a list of strings including path from root; interactive defaults to (dvc-current-file-list). (defalias 'dvc-add-files #[(&rest files) "\302\303 #\211\205\304\305\"\207" [files dvc-confirm-add dvc-confirm-file-op "add" dvc-apply "dvc-add-files"] 4 (#$ . 720) (dvc-current-file-list)]) #@44 Revert FILES for the currently active dvc. (defalias 'dvc-revert-files #[(&rest files) "\301\302\303#\211\205\304\305\"\207" [files dvc-confirm-file-op "revert" t dvc-apply "dvc-revert-files"] 4 (#$ . 1063) (dvc-current-file-list)]) #@44 Remove FILES for the currently active dvc. (defalias 'dvc-remove-files #[(&rest files) "\301\302\303#\211\205\304\305\"\207" [files dvc-confirm-file-op "remove" t dvc-apply "dvc-remove-files"] 4 (#$ . 1307) (dvc-current-file-list)]) #@115 Process ARGS, removing those that come after the &optional keyword in SPEC if they are nil, returning the result. (defalias 'dvc-remove-optional-args #[(spec &rest args) "\304\305\306\215\204\n\202-\307!\211\203\" @\204\" A\211\204 \203* \244 \237)*\207" [args new orig acc nil found (byte-code "\203& \203&@\303=\203\304\305\306\"\210\202 @\nB AA\211\204\307\207" [spec args new &optional throw found t nil] 4) reverse] 3 (#$ . 1552)]) #@82 Define a DVC unified command. &optional arguments are permitted, but not &rest. (defalias 'define-dvc-unified-command '(macro . #[(name args comment &optional interactive) "\304 \n\305 \205 C\306\307!\310\311 D\312\313 \"BBEC\"BBBB\207" [name args comment interactive defun append dvc-apply symbol-name dvc-remove-optional-args quote remove &optional] 13 (#$ . 2025)])) #@282 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. (defalias 'dvc-diff #[(&optional base-rev path dont-switch) "\304\305\205 \306!\"\n\206\307\310\311!\"\312 !\210\307\313\n $)\207" [path default-directory base-rev dont-switch dvc-read-project-tree-maybe "DVC diff (directory): " expand-file-name dvc-call "dvc-last-revision" dvc-tree-root dvc-save-some-buffers "dvc-diff"] 5 (#$ . 2407) nil]) (defalias 'dvc-dvc-last-revision #[(path) "\301 \302\303ED\207" [path dvc-current-active-dvc last-revision 1] 4]) #@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 (#$ . 3162)]) #@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 (#$ . 3540) (list buffer-file-name)]) #@43 Display the status in optional PATH tree. (defalias 'dvc-status #[(&optional path) "\302\303\205 \304!\"\305 !\210\306\307!\210)\310\207" [path default-directory dvc-read-project-tree-maybe "DVC status (directory): " expand-file-name dvc-save-some-buffers dvc-call "dvc-status" nil] 4 (#$ . 4022) nil]) #@55 Returns a string representation of BACK-END-REVISION. (defalias 'dvc-name-construct #[(back-end-revision) "\301\302\303\304\"\"\207" [back-end-revision dvc-apply "dvc-name-construct" dvc-remove-optional-args (back-end-revision)] 5 (#$ . 4335)]) #@236 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. (defalias 'dvc-log #[(&optional path last-n) "\303\304\205 \305!\"\306\307\n#\210)\310\207" [path default-directory last-n dvc-read-project-tree-maybe "DVC tree root (directory): " expand-file-name dvc-call "dvc-log" nil] 4 (#$ . 4588) (list (buffer-file-name) (if current-prefix-arg (prefix-numeric-value current-prefix-arg) dvc-log-last-n))]) #@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 (#$ . 5179) 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 (#$ . 5442) nil]) #@45 Computes the direct ancestor of a revision. (defalias 'dvc-revision-direct-ancestor #[(revision) "\301\302\303\304\"\"\207" [revision dvc-apply "dvc-revision-direct-ancestor" dvc-remove-optional-args (revision)] 5 (#$ . 5612)]) #@45 Computes the direct ancestor of a revision. (defalias 'dvc-revision-nth-ancestor #[(revision n) "\302\303\304\305 #\"\207" [revision n dvc-apply "dvc-revision-nth-ancestor" dvc-remove-optional-args (revision n)] 6 (#$ . 5847)]) #@23 Mark FILE as resolved (defalias 'dvc-resolved #[(file) "\301\302\303\304\"\"\207" [file dvc-apply "dvc-resolved" dvc-remove-optional-args (file)] 5 (#$ . 6082) (list (buffer-file-name))]) #@190 Rename file FROM-NAME to TO-NAME; TO-NAME may be a directory. When called non-interactively, if from-file-name does not exist, but to-file-name does, just record the rename in the back-end (defalias 'dvc-rename #[(from-name to-name) "\302!\203(\302 !\203\303 !\204\304\305 \"\210\303 !\203!\306 !\307\310 \311$\207\302 !\2043\304\312 \"\210\303 !\203=\306 !\307\310 \313$\207" [from-name to-name file-exists-p file-directory-p error "%s exists and is not a directory" file-name-as-directory dvc-call "dvc-rename" nil "%s does not exist" t] 5 (#$ . 6278) (let* ((from-name (dvc-confirm-read-file-name "Rename: " t)) (to-name (dvc-confirm-read-file-name (format "Rename %s to: " from-name) nil "" from-name))) (list from-name to-name))]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list dvc-command-version default-boundp set-default nil] 3) #@70 Returns and/or shows the version identity string of backend command. (defalias 'dvc-command-version #[nil "\301\302!t\203 \303\304\"\210\207" [dvc-command-version dvc-call "dvc-command-version" message "%s"] 3 (#$ . 7169) nil]) #@165 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. (defalias 'dvc-tree-root #[(&optional path no-error) "\203 C\206 \203 C\206\306\n \"\307\310\211\f\206 \211\203c\311@\312\313#\314!\203Z\f\313\"\211\203YGGV\203Y@)A\211\204+\307\230\203w\204t\315\316\f\"\210\310t\203\206\317\320\321\322\"#\210-\207" [dvc-temp-current-active-dvc dvc-buffer-current-active-dvc dvc-select-priority dvc-registered-backends path default-directory append "/" nil dvc-function "tree-root" t fboundp error "Tree %s is not under version control" message "Root: %s (managed by %s)" dvc-variable "backend-name" tree-root-func dvc root dvc-list current-root no-error] 7 (#$ . 7408) nil]) #@242 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. (defalias 'dvc-log-edit #[(&optional other-frame no-init) " \211\203 \n?\206 ?\205\n*\306\f\307 #\211G\310=\203\224\311\306\f\312 #\306\f\313 #\"\314=\211G\310=\203S\204I\315\316!\202\220\317\320\321 \322$\202\220G\323=\203l@A@q\210\317\320\321 \322$\202\220p\324\325\">\203\200\317\320\321 \322$\202\220\f\203\214\315\326\f #\202\220\315\327 \"*\202\304G\323=\203\264r@A@q\210\f)\317\320\321 $)\202\304\f\203\300\315\330\f #\202\304\315\331 \")\207" [other-frame dvc-log-edit-other-frame b a dvc-buffer-current-active-dvc default-directory dvc-get-matching-buffers log-edit 0 append diff status dvc-bookmarks-mode error "Must have a DVC diff or status buffer before calling dvc-log-edit" dvc-call "dvc-log-edit" dvc-tree-root nil 1 mapcar #[(item) "A@\207" [item] 1] "More than one dvc-diff or dvc-status buffer for %s in %s; can't tell which to use. Please close some." "More than one dvc-diff or dvc-status buffer for %s; can't tell which to use. Please close some." "More than one log-edit buffer for %s in %s; can't tell which to use. Please close some." "More than one log-edit buffer for %s; can't tell which to use. Please close some." log-edit-buffers major-mode activated-from-bookmark-buffer diff-status-buffers dvc-temp-current-active-dvc no-init] 7 (#$ . 8255) "P"]) #@455 Alist of descriptions of back-end wrappers to define. A back-end wrapper is a fuction called -, whose body is a simple wrapper around dvc-. This is usefull for functions which are totally generic, but will use some back-end specific stuff in their body. At this point in the file, we don't have the list of back-ends, which is why we don't do the (defun ...) here, but leave a description for use by `dvc-register-dvc'. (defvar dvc-back-end-wrappers '(("add-log-entry" nil) ("add-files" (&rest files)) ("diff" (&optional base-rev path dont-switch)) ("ignore-file-extensions" (file-list)) ("ignore-file-extensions-in-dir" (file-list)) ("log-edit" (&optional OTHER-FRAME)) ("rename" (from-name to-name)) ("remove-files" (&rest files)) ("revert-files" (&rest files)) ("status" (&optional path))) (#$ . 9837)) #@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 (#$ . 10683) (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 (#$ . 10953) 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 (#$ . 11138) (list (dvc-current-file-list))]) #@86 Ignore the file extensions of the marked files, in all directories of the workspace. (defalias 'dvc-ignore-file-extensions #[(file-list) "\304\305\306\307\"\"\310  G\311=\203\312\313 @\"\202\312\314 G\" \2035\315\312\316 \n#!\2058\317\320 \"\2028\321\322!+\207" [file-list extensions root msg delete nil mapcar file-name-extension dvc-tree-root 1 format "extension *.%s" "%d extensions" y-or-n-p "Ignore %s in workspace %s? " dvc-call "dvc-backend-ignore-file-extensions" error "No files with an extension selected"] 5 (#$ . 11365) (list (dvc-current-file-list))]) #@123 Ignore the file extensions of the marked files, only in the directories containing the files, and recursively below them. (defalias 'dvc-ignore-file-extensions-in-dir #[(file-list) "\306\307\"\306\310\" G\311=\203\312\313 @\n@#\202 \312\314 G\" \315\211\203; @\211\2044\316\317!\210 A\211\204)*\n\315\211\203\\@\211\204S\316\320!\210A\211\204F*\321\312\322 \"!\205j\323\324\"+\207" [file-list extensions dirs msg extension #1=#:--cl-dolist-temp-- mapcar file-name-extension file-name-directory 1 format "extension *.%s in directory `%s'" "%d extensions in directories" nil error "A file with no extension selected" "A file with no directory selected" y-or-n-p "Ignore %s? " dvc-call "dvc-backend-ignore-file-extensions-in-dir" dir #2=#:--cl-dolist-temp--] 4 (#$ . 11948) (list (dvc-current-file-list))]) #@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 (#$ . 12791) 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 (#$ . 13147) 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 (#$ . 13330) (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 (#$ . 13596) 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 (#$ . 13758) 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 (#$ . 14006) 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 (#$ . 14411) 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 (#$ . 14616) nil]) (provide 'dvc-unified)