X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/6517ec8921438deae6547ab5eb38e004935d5618..23a624ca1d40fa9cefd7229ac6152b79278a6517:/packages/ada-mode/ada-gnat-compile.el

diff --git a/packages/ada-mode/ada-gnat-compile.el b/packages/ada-mode/ada-gnat-compile.el
index 98f658027..510bef1ee 100644
--- a/packages/ada-mode/ada-gnat-compile.el
+++ b/packages/ada-mode/ada-gnat-compile.el
@@ -231,11 +231,12 @@ Prompt user if more than one."
 		       ))
 		   )));; unless while let
 
-	     (setq unit-name (cond
-                              ((= 0 (length choices)) nil)
-                              ((= 1 (length choices)) (car choices))
-                              (t ;; multiple choices
-                               (completing-read "package name: " choices))))
+	     (setq unit-name
+		   (cond
+		    ((= 0 (length choices)) nil)
+		    ((= 1 (length choices)) (car choices))
+		    (t ;; multiple choices
+		     (completing-read "package name: " choices))))
 
 	     (when unit-name
 	       (pop-to-buffer source-buffer)