[ Please keep the bug report CC'ed. Thanks. ] On 2008-12-31 10:48 +0100, Stephen Leake wrote:
> Sven Joachim <svenj...@gmx.de> writes: > >> Hello Stephen, >> >> I'm triaging old Emacs bugs in Debian. Please refer to >> http://bugs.debian.org/340211 for the problem description. >> >> On 2006-11-10 03:11 +0100, Stephen Leake wrote: >> >>> The bug does not occur with the current version of ada-mode, available >>> at http://stephe-leake.org/emacs/ada-mode/emacs-ada-mode.html >>> >>> I'm working on merging that into Emacs CVS, for the next release. >> >> Alas, two years later I can still reproduce the bug with ada-mode 4.00 >> (as part of Emacs CVS; while I did not try the stand-alone version, I >> think it doesn't make a difference). Could you please investigate the >> issue? > > The bug report refers to an error "Symbol's function definition is > void: ada-indent". Indeed, 'ada-indent' is not defined as a function > in the current version of Ada mode; it is defined as a variable. It is > used as a variable, but not as a function: > > grep -nH -e "ada-indent " ada-*.el > ada-mode.el:267:(defcustom ada-indent 3 > ada-mode.el:1389: (min ada-indent (current-column)))))) > > > If you are still getting this error, you must be using code other than > or in addition to the latest version. I'm using the latest version in Emacs CVS, and I don't have any other ada-mode files around. > Please start with 'emacs -Q', load the Ada mode files explicitly so > you know exactly which ones you are using, and see if you still get > the bug. I still get it in `emacs -Q' for the input mentioned in the bug report: --8<---------------cut here---------------start------------->8--- use Text_IO, Ada.Integer_Text_IO; package body pSacco is task body Sacco is palline : Integer := 10; request : array (1 .. 4) of Integer; begin request := (0, 0, 0, 0); ACCETTA : loop --8<---------------cut here---------------end--------------->8--- With point after the "loop" in the last line, pressing RET triggers the error. The Lisp backtrace is ,---- | Debugger entered--Lisp error: (void-function ada-indent) | (ada-indent) | eval((ada-indent)) | ada-indent-current() | ada-indent-newline-indent-conditional() | ada-adjust-case-interactive(nil) | call-interactively(ada-adjust-case-interactive nil nil) `---- Sven -- To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
