emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 02/14: Fix #12: Remove ggtags-completing-read-function


From: Leo Liu
Subject: [elpa] 02/14: Fix #12: Remove ggtags-completing-read-function
Date: Sun, 30 Mar 2014 07:02:38 +0000

leoliu pushed a commit to branch master
in repository elpa.

commit c4f703ad106e2caf303adc615516b78862449bdf
Author: Leo Liu <address@hidden>
Date:   Wed Mar 26 14:33:13 2014 +0800

    Fix #12: Remove ggtags-completing-read-function
    
    Not needed and may get in the way.
    Fix typos.
---
 ggtags.el |   14 ++++----------
 1 files changed, 4 insertions(+), 10 deletions(-)

diff --git a/ggtags.el b/ggtags.el
index 8435ccb..031cb3e 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -244,11 +244,6 @@ properly update `ggtags-mode-map'."
   :type 'key-sequence
   :group 'ggtags)
 
-(defcustom ggtags-completing-read-function completing-read-function
-  "Ggtags specific `completing-read-function' (which see)."
-  :type 'function
-  :group 'ggtags)
-
 (defcustom ggtags-highlight-tag-delay 0.25
   "Time in seconds before highlighting tag at point."
   :set (lambda (sym value)
@@ -624,7 +619,6 @@ Do nothing if GTAGS exceeds the oversize limit unless 
FORCE."
 (defun ggtags-read-tag (&optional type confirm prompt require-match default)
   (ggtags-ensure-project)
   (let ((default (or default (ggtags-tag-at-point)))
-        (completing-read-function ggtags-completing-read-function)
         (prompt (or prompt (capitalize (symbol-name (or type 'tag)))))
         (ggtags-completion-flag (pcase type
                                   (`(or nil definition) "T")
@@ -1375,10 +1369,10 @@ commands `next-error' and `previous-error'.
       '(menu-item "Finish navigation" ggtags-navigation-mode-done))
     (define-key menu [abort]
       '(menu-item "Abort" ggtags-navigation-mode-abort))
-    (define-key menu [last-error]
-      '(menu-item "Last error" ggtags-navigation-last-error))
-    (define-key menu [fist-error]
-      '(menu-item "Fist error" ggtags-navigation-first-error))
+    (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 [previous-file]
       '(menu-item "Previous file" ggtags-navigation-previous-file))
     (define-key menu [next-file]



reply via email to

[Prev in Thread] Current Thread [Next in Thread]