[elpa] externals/gnat-compiler 7496273a2e: Match ada-mode function rename

[Stephen Leake]

branch: externals/gnat-compiler
commit 7496273a2e9cf971aeef232b252b2eea93c93a74
Author: Stephen Leake <stephen_leake@stephe-leake.org>
Commit: Stephen Leake <stephen_leake@stephe-leake.org>

    Match ada-mode function rename
    
    * gnat-compiler.el (gnat-context-clause-region): Rename from
    gnat-context-clause, match ada-mode rename.
---
 gnat-compiler.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnat-compiler.el b/gnat-compiler.el
index f297c1cfa5..74e7fd450e 100644
--- a/gnat-compiler.el
+++ b/gnat-compiler.el
@@ -715,10 +715,10 @@ Prompt user if more than one."
     (wisi-case-adjust-identifier)
     (delete-char 1)))
 
-(defun gnat-context-clause ()
-  (if (fboundp 'ada-fix-context-clause);; in ada-mode
-      (ada-fix-context-clause)
-    (user-error "ada-fix-context-clause not defined; can't find context 
clause")))
+(defun gnat-context-clause-region ()
+  (if (fboundp 'ada-context-clause-region);; in ada-mode
+      (ada-context-clause-region)
+    (user-error "ada-context-clause-region not defined; can't find context 
clause")))
 
 (defun gnat-extend-with-clause (partial-parent-name child-name)
   "Assuming point is in a selected name, just before CHILD-NAME, add or
@@ -732,7 +732,7 @@ extend a with_clause to include CHILD-NAME."
     (skip-syntax-backward "w_.")
     (search-forward-regexp gnat-name-regexp parent-name-end t)
     (let ((parent-name (match-string 0))
-         (context-clause (gnat-context-clause)))
+         (context-clause (gnat-context-clause-region)))
       (goto-char (car context-clause))
       (if (search-forward-regexp (concat "^with " parent-name ";") (cdr 
context-clause) t)
          ;; found existing 'with' for parent; extend it