[ELPA-diffs] /srv/bzr/emacs/elpa r344: Fix ggtags-global-exit-message-function

[Leo Liu]

------------------------------------------------------------
revno: 344
committer: Leo Liu <address@hidden>
branch nick: elpa
timestamp: Fri 2013-02-01 01:02:57 +0800
message:
  Fix ggtags-global-exit-message-function
modified:
  packages/ggtags/ggtags.el

=== modified file 'packages/ggtags/ggtags.el'
--- a/packages/ggtags/ggtags.el 2013-01-31 14:50:42 +0000
+++ b/packages/ggtags/ggtags.el 2013-01-31 17:02:57 +0000
@@ -1,6 +1,6 @@
 ;;; ggtags.el --- GNU Global source code tagging system -*- lexical-binding: 
t; -*-
 
-;; Copyright (C) 2013  Leo Liu
+;; Copyright (C) 2013  Free Software Foundation, Inc.
 
 ;; Author: Leo Liu <address@hidden>
 ;; Version: 0.5
@@ -217,9 +217,10 @@
 
 (defun ggtags-global-exit-message-function (_process-status exit-status msg)
   (let ((count (save-excursion
-                 (goto-char (point-min))
-                 (and (re-search-forward "^\\([0-9]+\\) objects? located" nil 
t)
-                      (string-to-number (match-string 1))))))
+                 (goto-char (point-max))
+                 (if (re-search-backward "^\\([0-9]+\\) objects? located" nil 
t)
+                     (string-to-number (match-string 1))
+                   0))))
     (cons (if (> exit-status 0)
               msg
             (format "found %d %s" count (if (= count 1) "match" "matches")))