]> code.delx.au - gnu-emacs/blobdiff - lisp/version.el
Merge branch 'uj-icalendar-bug#5433'
[gnu-emacs] / lisp / version.el
index 4f5bb67585af560503ed5bcfce6f1cb190611bdb..cab2d28db4c196bb87d471eeabc97c16dfade5fa 100644 (file)
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1985, 1992, 1994-1995, 1999-2014 Free Software
 ;; Foundation, Inc.
 
-;; Maintainer: FSF
+;; Maintainer: emacs-devel@gnu.org
 ;; Keywords: internal
 ;; Package: emacs
 
@@ -186,9 +186,10 @@ only ask the VCS if we cannot find any information ourselves."
         (with-temp-buffer
           (let ((default-directory (file-name-as-directory dir)))
             (and (eq 0
-                     (ignore-errors
-                       (call-process "git" nil '(t nil) nil "log"
-                                     "-1" "--pretty=format:%N")))
+                     (condition-case nil
+                         (call-process "git" nil '(t nil) nil "rev-parse"
+                                       "HEAD")
+                       (error nil)))
                  (not (zerop (buffer-size)))
                  (replace-regexp-in-string "\n" "" (buffer-string))))))))