Please change the Subject header to a concise description of your patch. Please describe your patch between the LOG-START and LOG-END markers: <<LOG-START>>
* lisp/dvc-core.el (dvc-run-dvc-sync): Change `let' to `let*', since we use the same variable in another definition. This fixes an error that occurs when trying to complete a tla revision name. <<LOG-END>> [VERSION] dvc-dev-bzr Bazaar (bzr) 0.11.0 Emacs : GNU Emacs 22.0.90.1 (i686-pc-linux-gnu, GTK+ Version 2.10.6) of 2006-10-28 on hariken -- Michael Olson -- FSF Associate Member #652 -- http://www.mwolson.org/ Interests: Emacs Lisp, text markup, protocols -- Jabber: mwolson_at_hcoop.net /` |\ | | | Projects: Emacs, Muse, ERC, EMMS, Planner, ErBot, DVC |_] | \| |_| Reclaim your digital rights by eliminating DRM. See http://www.defectivebydesign.org/what_is_drm for details.
pgpO9RrNuFRuN.pgp
Description: PGP signature
=== modified file 'lisp/dvc-core.el'
--- lisp/dvc-core.el 2006-10-26 04:59:48 +0000
+++ lisp/dvc-core.el 2006-10-28 23:56:18 +0000
@@ -603,17 +603,17 @@
(dvc-with-keywords
(:finished :killed :error :output-buffer :error-buffer :related-buffer)
keys
- (let ((output-buf (or (and output-buffer (get-buffer-create output-buffer))
- (dvc-new-process-buffer t dvc)))
- (error-buf (or (and error-buffer (get-buffer-create error-buffer))
- (dvc-new-error-buffer t dvc)))
- (global-arg (funcall (dvc-function dvc "default-global-argument")))
- (command (dvc-build-dvc-command
- dvc (append global-arg arguments)))
- (error-file (dvc-make-temp-name "arch-errors"))
- ;; Make the `default-directory' unique. The trailing slash
- ;; may be necessary in some cases.
- (default-directory (dvc-uniquify-file-name default-directory)))
+ (let* ((output-buf (or (and output-buffer (get-buffer-create output-buffer))
+ (dvc-new-process-buffer t dvc)))
+ (error-buf (or (and error-buffer (get-buffer-create error-buffer))
+ (dvc-new-error-buffer t dvc)))
+ (global-arg (funcall (dvc-function dvc "default-global-argument")))
+ (command (dvc-build-dvc-command
+ dvc (append global-arg arguments)))
+ (error-file (dvc-make-temp-name "arch-errors"))
+ ;; Make the `default-directory' unique. The trailing slash
+ ;; may be necessary in some cases.
+ (default-directory (dvc-uniquify-file-name default-directory)))
(with-current-buffer (or related-buffer (current-buffer))
(dvc-log-event output-buf error-buf command default-directory "started")
(let ((status (let ((process-environment
_______________________________________________ Dvc-dev mailing list [email protected] https://mail.gna.org/listinfo/dvc-dev
