comparison lisp/vc-bzr.el @ 94847:5e64dca662f0

Remove assumption about what nil means as a first arument to vc-do-command.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Sat, 10 May 2008 13:27:16 +0000
parents bf91c987049c
children 66788c63a40a
comparison
equal deleted inserted replaced
94846:1a6e4ea4e517 94847:5e64dca662f0
90 `LC_MESSAGES=C' to the environment." 90 `LC_MESSAGES=C' to the environment."
91 (let ((process-environment 91 (let ((process-environment
92 (list* "BZR_PROGRESS_BAR=none" ; Suppress progress output (bzr >=0.9) 92 (list* "BZR_PROGRESS_BAR=none" ; Suppress progress output (bzr >=0.9)
93 "LC_MESSAGES=C" ; Force English output 93 "LC_MESSAGES=C" ; Force English output
94 process-environment))) 94 process-environment)))
95 (apply 'vc-do-command buffer okstatus vc-bzr-program 95 (apply 'vc-do-command (or buffer "*vc*") okstatus vc-bzr-program
96 file-or-list bzr-command args))) 96 file-or-list bzr-command args)))
97 97
98 98
99 ;;;###autoload 99 ;;;###autoload
100 (defconst vc-bzr-admin-dirname ".bzr" 100 (defconst vc-bzr-admin-dirname ".bzr"