[elpa] externals/gpr-query 3a8e67a795 3/5: Delete gpr-query minor mode; fix executable bit

[Stephen Leake]

branch: externals/gpr-query
commit 3a8e67a7955ec1e2ec28a34640b4a50ec552b656
Author: Stephen Leake <stephen_leake@stephe-leake.org>
Commit: Stephen Leake <stephen_leake@stephe-leake.org>

    Delete gpr-query minor mode; fix executable bit
    
    * gpr-query.el (gpr-query-map, gpr-query-menu, gpr-query): Delete;
    replaced by minor-mode in ada-mode.
    (create-gpr_query-xref): Don't take gpr-file arg.
    
    * build.sh, install.sh: Set executable bit.
---
 build.sh     |  0
 gpr-query.el | 38 +++-----------------------------------
 install.sh   |  0
 3 files changed, 3 insertions(+), 35 deletions(-)

diff --git a/build.sh b/build.sh
old mode 100644
new mode 100755
diff --git a/gpr-query.el b/gpr-query.el
index e8303a32d4..ec7b277314 100644
--- a/gpr-query.el
+++ b/gpr-query.el
@@ -653,39 +653,6 @@ with compilation-error-regexp-alist set to COMP-ERR."
   (+ (abs (- found-col col))
      (* (abs (- found-line line)) 250)))
 
-(defvar gpr-query-map
-  (let ((map (make-sparse-keymap)))
-    ;; C-c C-i prefix for gpr-query minor mode
-
-    (define-key map "\C-c\C-i\C-d" 'gpr-query-goto-declaration)
-    (define-key map "\C-c\C-i\C-q" 'gpr-query-refresh)
-    (define-key map "\C-c\C-i\C-r" 'gpr-query-show-references)
-    ;; IMPROVEME: (define-key map "\C-c\M-d" 'gpr-query-parents)
-    ;; IMPROVEME: overriding
-    map
-  )  "Local keymap used for gpr query minor mode.")
-
-(defvar gpr-query-menu (make-sparse-keymap "gpr-query"))
-(easy-menu-define gpr-query-menu gpr-query-map "Menu keymap for gpr-query 
minor mode"
-  '("gpr-query"
-    ["Next xref"                     next-error                   t]
-    ["Goto declaration/body"         xref-find-definitions        t]
-    ["Show parent declarations"      wisi-show-declaration-parents t]
-    ["Show references"               wisi-show-references         t]
-    ["Show overriding"               wisi-show-overriding         t]
-    ["Show overridden"               wisi-show-overridden         t]
-    ["Refresh cross reference cache" wisi-refresh-prj-cache       t]
-    ))
-
-(define-minor-mode gpr-query
-  "Minor mode for navigating sources using GNAT cross reference tool.
-Enable mode if ARG is positive."
-  :initial-value t
-  :lighter       " gpr-query"   ;; mode line
-
-  ;; just enable the menu and keymap
-  )
-
 (defun gpr-query--normalize-filename (file)
   "Convert FILE from native format to Emacs standard.
 FILE is from gpr-query."
@@ -712,9 +679,10 @@ FILE is from gpr-query."
   )
 
 ;;;###autoload
-(cl-defun create-gpr_query-xref (&key gpr-file)
+(cl-defun create-gpr_query-xref ()
   ;; See note on `create-ada-prj' for why this is not a defalias.
-  (make-gpr-query-xref :gpr-file gpr-file))
+  ;; The gpr file is set later by parsing the project file.
+  (make-gpr-query-xref))
 
 (cl-defmethod wisi-xref-parse-one ((xref gpr-query-xref) project name value)
   (wisi-compiler-parse-one xref project name value))
diff --git a/install.sh b/install.sh
old mode 100644
new mode 100755