From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: Re: How to get the bounds of the current defun? Date: Sun, 08 Oct 2017 23:00:51 +0200 Message-ID: <86efqdqrr0.fsf@zoho.com> References: <87efqd9yfm.fsf@web.de> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1507496496 3423 195.159.176.226 (8 Oct 2017 21:01:36 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sun, 8 Oct 2017 21:01:36 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sun Oct 08 23:01:30 2017 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1e1IhW-0000CQ-1t for geh-help-gnu-emacs@m.gmane.org; Sun, 08 Oct 2017 23:01:30 +0200 Original-Received: from localhost ([::1]:55119 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1e1Ihd-00083R-Gx for geh-help-gnu-emacs@m.gmane.org; Sun, 08 Oct 2017 17:01:37 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:35256) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1e1IhC-00082N-Me for help-gnu-emacs@gnu.org; Sun, 08 Oct 2017 17:01:11 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1e1Ih9-0002XT-LC for help-gnu-emacs@gnu.org; Sun, 08 Oct 2017 17:01:10 -0400 Original-Received: from [195.159.176.226] (port=51187 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1e1Ih9-0002XB-E8 for help-gnu-emacs@gnu.org; Sun, 08 Oct 2017 17:01:07 -0400 Original-Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1e1Igx-0004LG-4H for help-gnu-emacs@gnu.org; Sun, 08 Oct 2017 23:00:55 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Original-Lines: 27 Original-X-Complaints-To: usenet@blaine.gmane.org Mail-Copies-To: never Cancel-Lock: sha1:KqWIxgXf/bNasTFKEfKChkT0ZDQ= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-Received-From: 195.159.176.226 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.org gmane.emacs.help:114523 Archived-At: 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