[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 02/07: Remove redundant function ggtags-navigation-first-error
From: |
Leo Liu |
Subject: |
[elpa] 02/07: Remove redundant function ggtags-navigation-first-error |
Date: |
Tue, 06 May 2014 06:34:18 +0000 |
leoliu pushed a commit to branch master
in repository elpa.
commit 4090945e6a42a4f1dd4f05e6f753722ab134ba8a
Author: Leo Liu <address@hidden>
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 <address@hidden>
-;; 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
- [elpa] branch master updated (f53bd6e -> 2d2431c), Leo Liu, 2014/05/06
- [elpa] 03/07: For #34 and #48: Always update tags for current file on save, Leo Liu, 2014/05/06
- [elpa] 02/07: Remove redundant function ggtags-navigation-first-error,
Leo Liu <=
- [elpa] 01/07: Fix #48: Enhance ggtags-find-tag-dwim to handle new files, Leo Liu, 2014/05/06
- [elpa] 04/07: Fix #52: Search references and symbols in GTAGSLIBPATH, Leo Liu, 2014/05/06
- [elpa] 06/07: For #52: new var ggtags-global-search-libpath-for-reference, Leo Liu, 2014/05/06
- [elpa] 07/07: Merge branch 'master' of github.com:leoliu/ggtags, Leo Liu, 2014/05/06
- [elpa] 05/07: Doc and indentation fix, Leo Liu, 2014/05/06