Re: How to get the bounds of the current defun?

[Emanuel Berg <moasen@zoho.com>]

Michael Heerdegen wrote:

> I need a function that for any elisp mode
> buffer receives a position as argument and
> returns non-nil if inside a defun (i.e.
> when there is a top-level expression covering
> POS). If this is the case, the return value
> is a cons (BEG . END) where BEG and END are
> the beginning and end positions of this
> toplevel sexp.

(defun is-defun ()
  (interactive)
  (save-excursion
    (let ((pos   (point))
          (start (progn (beginning-of-defun) (point)))
          (end   (progn (end-of-defun)       (point))) )
      (when (and (<= start pos)
                 (<=   pos end) )
        (cons start end) ))))

Hm, it seems `end-of-defun' is a bit too
generous - perhaps that can be replaced...

-- 
underground experts united
http://user.it.uu.se/~embe8573