(emacs-repository-get-version): Call `git log' with proper format argument

Fixes: debbugs:19049
* version.el (emacs-repository-get-version): Call `git log'
command with proper format argument (bug#19049).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8238dc5a36d1e21d5990497ca0cc8fec2b52437c..7674e78856cf66d5fc4e11a89d7b63d95daf9636 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-13  Ulrich Müller  <ulm@gentoo.org>
+
+       * version.el (emacs-repository-get-version): Call `git log'
+       command with proper format argument (bug#19049).
+
 2014-11-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * bindings.el (search-map): Bind M-s M-s to `eww-search-words'.

diff --git a/lisp/version.el b/lisp/version.el
index 68b502ce451dc21a9dc66a41472b4f9c84b11ddc..1ea38da9caefc376c9c51fb6e7dc1be1c2254853 100644 (file)
--- a/lisp/version.el
+++ b/lisp/version.el
@@ -188,7 +188,7 @@ only ask the VCS if we cannot find any information ourselves."
             (and (eq 0
                      (condition-case nil
                          (call-process "git" nil '(t nil) nil "log"
-                                       "-1" "--pretty=format:%N")
+                                       "-1" "--pretty=format:%H")
                        (error nil)))
                  (not (zerop (buffer-size)))
                  (replace-regexp-in-string "\n" "" (buffer-string))))))))