Commit a38c310c authored by Glenn Morris's avatar Glenn Morris
Browse files

Use internal sha1 in vc-bzr

* lisp/vc/vc-bzr.el (vc-bzr-sha1-program, sha1-program): Remove.
These were only added in 24.1 when sha1.el was removed in favor of an
internal sha1 implementation.  Frankly, I can't see why the internal
sha1 wasn't immediately used here.
(vc-bzr-sha1): Use internal sha1.
(Comments): Remove reference to abandoned upstream bug report that
contains no extra information.
parent 453b951e
2012-04-11 Glenn Morris <>
* vc/vc-bzr.el (vc-bzr-sha1-program, sha1-program): Remove.
(vc-bzr-sha1): Use internal sha1.
2012-04-11 Stefan Monnier <>
* progmodes/flymake.el (flymake-mode): Beware read-only dirs (bug#8954).
......@@ -37,7 +37,6 @@
;; are bzr-versioned, `vc-bzr` presently runs `bzr status` on the
;; symlink, thereby not detecting whether the actual contents
;; (that is, the target contents) are changed.
;; See
;;; Properties of the backend
......@@ -65,14 +64,6 @@
:group 'vc-bzr
:type 'string)
(defcustom vc-bzr-sha1-program '("sha1sum")
"Name of program to compute SHA1.
It must be a string \(program name\) or list of strings \(name and its args\)."
:type '(repeat string)
:group 'vc-bzr)
(define-obsolete-variable-alias 'sha1-program 'vc-bzr-sha1-program "24.1")
(defcustom vc-bzr-diff-switches nil
"String or list of strings specifying switches for bzr diff under VC.
If nil, use the value of `vc-diff-switches'. If t, use no switches."
......@@ -190,20 +181,15 @@ in the repository root directory of FILE."
(defun vc-bzr-sha1 (file)
(set-buffer-multibyte nil)
(let ((prog vc-bzr-sha1-program)
(args nil)
(when (consp prog)
(setq args (cdr prog))
(setq prog (car prog)))
(apply 'process-file prog (file-relative-name file) t nil args)
(buffer-substring (point-min) (+ (point-min) 40)))))
(insert-file-contents-literally file)
(sha1 (current-buffer))))
(defun vc-bzr-state-heuristic (file)
"Like `vc-bzr-state' but hopefully without running Bzr."
;; `bzr status' was excruciatingly slow with large histories and
;; pending merges, so try to avoid using it until they fix their
;; performance problems.
;; `bzr status' could be slow with large histories and pending merges,
;; so this tries to avoid calling it if possible. bzr status is
;; faster now, so this is not as important as it was.
;; This function tries first to parse Bzr internal file
;; `checkout/dirstate', but it may fail if Bzr internal file format
;; has changed. As a safeguard, the `checkout/dirstate' file is
......@@ -299,10 +285,7 @@ in the repository root directory of FILE."
(t 'edited))
;; Either the dirstate file can't be read, or the sha1
;; executable is missing, or ...
;; In either case, recent versions of Bzr aren't that slow
;; any more.
;; The dirstate file can't be read, or some other problem.
(error (vc-bzr-state file)))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment