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

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

[elpa] externals/gnat-compiler d330e13e65: Rename create-alire-project t


From: Stephen Leake
Subject: [elpa] externals/gnat-compiler d330e13e65: Rename create-alire-project to create-alire-prj
Date: Tue, 3 Jan 2023 12:44:27 -0500 (EST)

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

    Rename create-alire-project to create-alire-prj
    
    * gnat-alire.el (create-alire-prj): Rename from create-alire-project,
    to be consistent with ada-mode create-ada-prj. Improve error message.
---
 gnat-alire.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gnat-alire.el b/gnat-alire.el
index b946cce19e..b9b81856b1 100644
--- a/gnat-alire.el
+++ b/gnat-alire.el
@@ -1,6 +1,6 @@
 ;;; gnat-alire.el --- Support for building with Alire -*- lexical-binding:t -*-
 ;;
-;;; Copyright (C) 2012 - 2022  Free Software Foundation, Inc.
+;;; Copyright (C) 2012 - 2023  Free Software Foundation, Inc.
 ;;
 ;; Author: Stephen Leake <stephen_leake@member.fsf.org>
 ;; Maintainer: Stephen Leake <stephen_leake@member.fsf.org>
@@ -86,7 +86,7 @@
     ))
 
 ;;;###autoload
-(cl-defun create-alire-project (&key name gpr-file compile-env file-env 
xref-label)
+(cl-defun create-alire-prj (&key name gpr-file compile-env file-env xref-label)
   ;; We could use "alr exec -P -- echo" to get the project file (also
   ;; see https://github.com/alire-project/alire/issues/1151), but that
   ;; doesn't work when there are multiple project files listed in
@@ -114,6 +114,8 @@
           :gpr-file abs-gpr-file
           :run-buffer-name (gnat-run-buffer-name abs-gpr-file)))
 
+    (when (null xref-label)
+      (user-error "create-alire-prj: no xref backend specified; add 
:xref-label"))
     (setf (wisi-prj-xref project)
          (funcall (intern (format "create-%s-xref" (symbol-name xref-label)))))
 



reply via email to

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