Your right for the replacement!
I hope it works... :)
Perhaps, you shall try a add-timeout/disable-timeout with Emacs instead
of the use of an asynchronous time out.
Yes, this function intends to provide a complete replacement of the
which-func.el for the jde-mode.
I have not tested it yet in other modes, but it shall work.
Steff
[EMAIL PROTECTED] wrote:
> I�m not sure but IMHO the attached code is wrong in one place:
>
> Look at the line with the *** I think this must be (cdr o) instead of
> (cdr pair).
>
> What do you think?
>
> Klaus
>
> (defun jde-which-function-rec (o name min)
> (cond
> ((null o)
> (list name min))
> ((stringp o)
> (list (concat name "." o ) min))
> ((listp o)
> (if (and (cdr o)
> (number-or-marker-p (cdr o)))
> ;;*** Klaus (if (and (> (point) (cdr pair))
> (if (and (> (point) (cdr o))
> (or (null min) (< (- (point) (cdr o)) min)))
> (list (car o) (- (point) (cdr o))))
>
> (progn
> (let ((pair (car-safe o))
