Re: indent problem

Peter Su <[email protected]> writes:

> hi:
> 	i use emacs22, no problem, what's your edition?
>
> 	Peter
>
> From: Cezar <[email protected]>
> Subject: indent problem
> Date: Thu, 13 Jul 2006 11:14:29 +0300
>
>> 
>> Hello list,
>> 
>>   I have the following error when pressing TAB in JDE (gentoo linux, 
>> amd64, emacs-cvs, jde-2.3.5.1).
>> 
>> Debugger entered--Lisp error: (invalid-function (macro lambda (position &optional point) "Return the value of certain commonly referenced POSITIONs relative to POINT.
>> The current point is used if POINT isn't specified.  POSITION can be
>> one of the following symbols:
>> 
>> `bol'   -- beginning of line
>> `eol'   -- end of line
>> `bod'   -- beginning of defun
>> `eod'   -- end of defun
>> `boi'   -- beginning of indentation
>> `ionl'  -- indentation of next line
>> `iopl'  -- indentation of previous line
>> `bonl'  -- beginning of next line
>> `eonl'  -- end of next line
>> `bopl'  -- beginning of previous line
>> `eopl'  -- end of previous line
>> `bosws' -- beginning of syntactic whitespace
>> `eosws' -- end of syntactic whitespace
>> 
>> If the referenced position doesn't exist, the closest accessible point
>> to it is returned.  This function does not modify the point or the mark." (if (eq (car-safe position) (quote quote)) (let ((position (eval position))) (cond ((eq position (quote bol)) (if (and (cc-bytecomp-fboundp (quote line-beginning-position)) (not point)) (\` (line-beginning-position)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (beginning-of-line) (point))))) ((eq position (quote eol)) (if (and (cc-bytecomp-fboundp (quote line-end-position)) (not point)) (\` (line-end-position)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (end-of-line) (point))))) ((eq position (quote boi)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (back-to-indentation) (point)))) ((eq position (quote bod)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (c-beginning-of-defun-1) (point)))) ((eq position (quote eod)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (c-end-of-defun-1) (point)))) ((eq position (quote bopl)) (if (and (cc-bytecomp-fboundp (quote line-beginning-position)) (not point)) (\` (line-beginning-position 0)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (forward-line -1) (point))))) ((eq position (quote bonl)) (if (and (cc-bytecomp-fboundp (quote line-beginning-position)) (not point)) (\` (line-beginning-position 2)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (forward-line 1) (point))))) ((eq position (quote eopl)) (if (and (cc-bytecomp-fboundp (quote line-end-position)) (not point)) (\` (line-end-position 0)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (beginning-of-line) (or (bobp) (backward-char)) (point))))) ((eq position (quote eonl)) (if (and (cc-bytecomp-fboundp (quote line-end-position)) (not point)) (\` (line-end-position 2)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (forward-line 1) (end-of-line) (point))))) ((eq position (quote iopl)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (forward-line -1) (back-to-indentation) (point)))) ((eq position (quote ionl)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (forward-line 1) (back-to-indentation) (point)))) ((eq position (quote bosws)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (c-backward-syntactic-ws) (point)))) ((eq position (quote eosws)) (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (c-forward-syntactic-ws) (point)))) (t (error "Unknown buffer position requested: %s" position)))) (message "Warning: c-point long expansion") (\` (save-excursion (\,@ (if point (\` ((goto-char (\, point)))))) (let ((position (\, position))) (cond ((eq position (quote bol)) (beginning-of-line)) ((eq position (quote eol)) (end-of-line)) ((eq position (quote boi)) (back-to-indentation)) ((eq position (quote bod)) (c-beginning-of-defun-1)) ((eq position (quote eod)) (c-end-of-defun-1)) ((eq position (quote bopl)) (forward-line -1)) ((eq position (quote bonl)) (forward-line 1)) ((eq position (quote eopl)) (progn (beginning-of-line) (or (bobp) (backward-char)))) ((eq position (quote eonl)) (progn (forward-line 1) (end-of-line))) ((eq position (quote iopl)) (progn (forward-line -1) (back-to-indentation))) ((eq position (quote ionl)) (progn (forward-line 1) (back-to-indentation))) ((eq position (quote bosws)) (c-backward-syntactic-ws)) ((eq position (quote eosws)) (c-forward-syntactic-ws)) (t (error "Unknown buffer position requested: %s" position)))) (point))))))
>>   c-point(bol)
>>   byte-code("ÂÃ!SÄÅ?Æ*" [lim throws c-point bol notAnno (byte-code "Ab`	WÂÃ!ÄÅÆ\"ÇÈ!" [langelem lim looking-at "\\(\\s \\|\n\\)*\\(@\\|(\\)" throw notAnno t forward-sexp 1] 3) t] 3)
>>   c-only-java-annotations-p((statement-cont . 387))
>>   c-no-indent-after-java-annotations((statement-cont . 387))
>>   c-evaluate-offset(c-no-indent-after-java-annotations (statement-cont 387) statement-cont)
>>   c-evaluate-offset((c-no-indent-after-java-annotations +) (statement-cont 387) statement-cont)
>>   c-calc-offset((statement-cont 387))
>>   c-get-syntactic-indentation(((statement-cont 387)))
>>   c-indent-line()
>>   #[nil "Â>)à ÄÅxÃ Æ )iÆ X\"Ç	!'Ç	!)) " [indent-line-function column (indent-relative indent-relative-maybe) beginning-of-line "\n 	" nil current-indentation indent-line-to] 2 836273 nil]()
>>   c-indent-command(nil)
>>   call-interactively(c-indent-command)
>> 
>> Regards,
>> Cezar
>> 

My emacs-cvs is 22.0.50-r2

Regards,
Cezar