X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/dc434c13a9ec100e18238b0cbe029b602a074d33..af721abd3ad489f98cc8f67ba15d4dc44d187a5d:/packages/ada-mode/gnat-core.el

diff --git a/packages/ada-mode/gnat-core.el b/packages/ada-mode/gnat-core.el
index 72d2d48e9..ff62610ae 100644
--- a/packages/ada-mode/gnat-core.el
+++ b/packages/ada-mode/gnat-core.el
@@ -1,4 +1,4 @@
-;; Support for running GNAT tools, which support multiple programming
+;; gnat-core.el --- Support for running GNAT tools, which support multiple programming  -*- lexical-binding:t -*-
 ;; languages.
 ;;
 ;; GNAT is provided by AdaCore; see http://libre.adacore.com/
@@ -396,9 +396,8 @@ list."
 
 (defun ada-gnat-ada-name-from-file-name (file-name)
   "For `ada-ada-name-from-file-name'."
-  (let* (status
-	 (ada-name (file-name-sans-extension (file-name-nondirectory file-name)))
-	(predefined (cdr (assoc ada-name ada-gnat-predefined-package-alist))))
+  (let* ((ada-name (file-name-sans-extension (file-name-nondirectory file-name)))
+         (predefined (cdr (assoc ada-name ada-gnat-predefined-package-alist))))
 
     (if predefined
         predefined