[elpa] 02/07: Remove redundant function ggtags-navigation-first-error

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 4090945e6a42a4f1dd4f05e6f753722ab134ba8a
Author: Leo Liu <sdl....@gmail.com>
Date:   Tue Apr 15 11:45:18 2014 +0800

    Remove redundant function ggtags-navigation-first-error
---
 ggtags.el |   16 ++++------------
 1 files changed, 4 insertions(+), 12 deletions(-)

diff --git a/ggtags.el b/ggtags.el
index 7a93335..4e8e2e2 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2013-2014  Free Software Foundation, Inc.
 
 ;; Author: Leo Liu <sdl....@gmail.com>
-;; Version: 0.8.3
+;; Version: 0.8.4
 ;; Keywords: tools, convenience
 ;; Created: 2013-01-29
 ;; URL: https://github.com/leoliu/ggtags
@@ -577,7 +577,7 @@ Value is new modtime if updated."
 
 (defmacro ggtags-with-current-project (&rest body)
   "Eval BODY in current project's `process-environment'."
-  (declare (debug t))
+  (declare (debug t) (indent 0))
   (let ((gtagsroot (make-symbol "-gtagsroot-"))
         (root (make-symbol "-ggtags-project-root-")))
     `(let* ((,root ggtags-project-root)
@@ -1470,7 +1470,7 @@ commands `next-error' and `previous-error'.
     (define-key map "\M-}" 'ggtags-navigation-next-file)
     (define-key map "\M-{" 'ggtags-navigation-previous-file)
     (define-key map "\M->" 'ggtags-navigation-last-error)
-    (define-key map "\M-<" 'ggtags-navigation-first-error)
+    (define-key map "\M-<" 'first-error)
     ;; Note: shadows `isearch-forward-regexp' but it can be invoked
     ;; with C-u C-s instead.
     (define-key map "\C-\M-s" 'ggtags-navigation-isearch-forward)
@@ -1503,8 +1503,7 @@ commands `next-error' and `previous-error'.
       '(menu-item "Abort" ggtags-navigation-mode-abort))
     (define-key menu [last-match]
       '(menu-item "Last match" ggtags-navigation-last-error))
-    (define-key menu [first-match]
-      '(menu-item "First match" ggtags-navigation-first-error))
+    (define-key menu [first-match] '(menu-item "First match" first-error))
     (define-key menu [previous-file]
       '(menu-item "Previous file" ggtags-navigation-previous-file))
     (define-key menu [next-file]
@@ -1575,13 +1574,6 @@ commands `next-error' and `previous-error'.
   (interactive "p")
   (ggtags-navigation-next-file (- n)))
 
-(defun ggtags-navigation-first-error ()
-  (interactive)
-  (ggtags-ensure-global-buffer
-    (goto-char (point-min))
-    (compilation-next-error 1)
-    (compile-goto-error)))
-
 (defun ggtags-navigation-last-error ()
   (interactive)
   (ggtags-ensure-global-buffer