indent problem

Cezar <[email protected]>
Newsgroups gmane.emacs.jdee
Message-ID <[email protected]>
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
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.