* lisp/version.el (emacs-bzr-version-bzr): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 622da8cf3e8f6a638102d421a90f89ac94ef4bb6..8731930cbba228125bac37515cd65aea275658c2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2014-01-22  Glenn Morris  <rgm@gnu.org>
 
+       * version.el (emacs-bzr-version-bzr): Fix typo.
+
        * version.el (emacs-repository-get-version):
        Check either .bzr or .git, but not both.
        Make the git case actually use the DIR argument, and return nil

diff --git a/lisp/version.el b/lisp/version.el
index 1a3265b55b225c4c65e9e0206d3f30710aa4958d..4f5bb67585af560503ed5bcfce6f1cb190611bdb 100644 (file)
--- a/lisp/version.el
+++ b/lisp/version.el
@@ -106,7 +106,7 @@ Returns nil if unable to find this information."
              (looking-at "[0-9]+\0\\([^\0\n]+\\)\0")
              (match-string 1))))))
 
-(defun emacs-bzr-version-bzr (_dir)
+(defun emacs-bzr-version-bzr (dir)
   "Ask bzr itself for the version information for directory DIR."
   ;; Comments on `bzr version-info':
   ;; i) Unknown files also cause clean != 1.
@@ -125,7 +125,7 @@ Returns nil if unable to find this information."
          (call-process "bzr" nil '(t nil) nil "version-info"
                        "--custom"
                        "--template={revno} {revision_id} (clean = {clean})"
-                       "dir"))
+                       dir))
         (buffer-string))))
 
 (define-obsolete-function-alias 'emacs-bzr-get-version