mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Use bzr status --no-classify when supported (bug#6724)

Browse Source 
* lisp/vc/vc-bzr.el (vc-bzr-status-switches): New option.
(vc-bzr-command): If running "status", pass vc-bzr-status-switches.
This commit is contained in:
Glenn Morris 2012-03-22 15:06:03 -04:00
parent c676576a42
commit 335aff3569
2 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2012-03-22 Glenn Morris <rgm@gnu.org>
* vc/vc-bzr.el (vc-bzr-status-switches): New option. (Bug#6724)
(vc-bzr-command): If running "status", pass vc-bzr-status-switches.
2012-03-22 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/network-stream.el (network-stream-open-starttls): Make error

26
lisp/vc/vc-bzr.el
View File

@ -89,18 +89,40 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
(repeat :tag "Argument List" :value ("") string))
:group 'vc-bzr)
(defcustom vc-bzr-status-switches
(ignore-errors
(with-temp-buffer
(call-process vc-bzr-program nil t nil "help" "status")
(goto-char (point-min))
(if (search-forward "--no-classify")
"--no-classify")))
"String or list of strings specifying switches for bzr status under VC.
The option \"--no-classify\" should be present if your bzr supports it."
:type '(choice (const :tag "None" nil)
(string :tag "Argument String")
(repeat :tag "Argument List" :value ("") string))
:group 'vc-bzr
:version "24.1")
;; since v0.9, bzr supports removing the progress indicators
;; by setting environment variable BZR_PROGRESS_BAR to "none".
(defun vc-bzr-command (bzr-command buffer okstatus file-or-list &rest args)
"Wrapper round `vc-do-command' using `vc-bzr-program' as COMMAND.
Invoke the bzr command adding `BZR_PROGRESS_BAR=none' and
`LC_MESSAGES=C' to the environment."
`LC_MESSAGES=C' to the environment. If BZR-COMMAND is \"status\",
prepends `vc-bzr-status-switches' to ARGS."
(let ((process-environment
(list* "BZR_PROGRESS_BAR=none" ; Suppress progress output (bzr >=0.9)
"LC_MESSAGES=C" ; Force English output
process-environment)))
(apply 'vc-do-command (or buffer "*vc*") okstatus vc-bzr-program
file-or-list bzr-command args)))
file-or-list bzr-command
(if (string-equal "status" bzr-command)
(append (if (stringp vc-bzr-status-switches)
(list vc-bzr-status-switches)
vc-bzr-status-switches)
args)
args))))
(defun vc-bzr-async-command (bzr-command &rest args)
"Wrapper round `vc-do-async-command' using `vc-bzr-program' as COMMAND.