[Emacs-ada-mode] update including gnatpath source

[Stephen Leake]

Manuel Gomez <mgrojo at gmail.com> writes:

> I have tried "emacs -q" then evaluating "(add-to-list 'load-path
> (expand-file-name "~/elisp"))" for loading the last ada-mode version,
> opening an Ada simple main program (like hello.adb from your examples),
> and then C-c C-c. I'm always receiving the same error message. 

Ok, I see it now. Patch below.

The reason I did not see the problem is that something else is binding
a global symbol "name" in my Emacs!

I must confess I did not run the tutorial when starting from emacs -q;
I'll try to do that from now on.
 
> Is there a way to provide more information? Like a callstack trace?

You can set "Options | Enter debugger on error" and then repeat the
error; that gives you the equivalent of a stack trace. But the most
helpful thing is a precise recipe for reproducing the error.

-- 
-- Stephe


*** ada-xref.el	14 Dec 2006 10:25:18 -0000	1.24
--- ada-xref.el	23 Dec 2006 01:21:08 -0000
***************
*** 513,518 ****
--- 513,519 ----
  (defun ada-xref-update-project-menu ()
    "Update the menu Ada->Project, with the list of available project files."
    ;; Create the standard items.
    (let ((submenu
  	 `("Project"
  	   ["Load..." ada-set-default-project-file t]
***************
*** 522,532 ****
  	   ;;  Add the project files
  	   ,@(mapcar
  	      (lambda (x)
! 		(let ((name (or (car x) "default.prj"))
! 		      (command `(lambda ()
! 				  "Select the current project file."
! 				  (interactive)
! 				  (ada-select-prj-file ,name))))
  		  (vector
  		   (file-name-nondirectory name)
  		   command
--- 523,533 ----
  	   ;;  Add the project files
  	   ,@(mapcar
  	      (lambda (x)
! 		(let* ((name (or (car x) "default.prj"))
!                        (command `(lambda ()
!                                    "Select the current project file."
!                                    (interactive)
!                                    (ada-select-prj-file ,name))))
  		  (vector
  		   (file-name-nondirectory name)
  		   command