Re: indent problem

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Äʼn?Æ*" [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
>