From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Heime Newsgroups: gmane.emacs.help Subject: Re: insert gives args out of range Date: Fri, 16 Aug 2024 15:09:55 +0000 Message-ID: References: <87plq8n66z.fsf@gmx.net> <87le0wn0ru.fsf@gmx.net> <87h6bkmz5k.fsf@gmx.net> <9gWogDhaCBXEnTOijkijtCrrcAbhYY04AgDjXlqWxAN1m7xvAUbl31U_6aBjyp6Q8iu2M7SIMHNmyvD0QJ6NnC2PSFHIpdgos1q7eVM-CLI=@protonmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="40130"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Stephen Berman , Heime via Users list for the GNU Emacs text editor To: Heime Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Fri Aug 16 17:10:55 2024 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1seybM-000A9F-O5 for geh-help-gnu-emacs@m.gmane-mx.org; Fri, 16 Aug 2024 17:10:52 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1seyad-0002Z9-Do; Fri, 16 Aug 2024 11:10:07 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1seyab-0002Ys-Tc for help-gnu-emacs@gnu.org; Fri, 16 Aug 2024 11:10:05 -0400 Original-Received: from mail-4325.protonmail.ch ([185.70.43.25]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1seyaZ-0006gi-Vu for help-gnu-emacs@gnu.org; Fri, 16 Aug 2024 11:10:05 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=protonmail.com; s=protonmail3; t=1723821001; x=1724080201; bh=eFQUyFqqyVmhYkdmMNYLyfgLoVe6y1y+j8RAPCFrzdw=; h=Date:To:From:Cc:Subject:Message-ID:In-Reply-To:References: Feedback-ID:From:To:Cc:Date:Subject:Reply-To:Feedback-ID: Message-ID:BIMI-Selector; b=YDDCEHBTQTKB/SYT59nzG2nxbeizQke3u6xF8B3Tw790OJTO/3epG5obCOB7y1j8k Jg3HKxoBEJHRTLxoww4yQJXkZFip3FOQcVpIjHSF1UDx9gqb7Cekz5kzeS3fikSLuO Le/kzjcLHxDom6mL71eaLkXRQttIOem29dGWPR5HnRSgreYACKQXDytQ8JJDmVzspj x3bk8/ekcLvN3JvmAbxWBT/+7Lzz8ICQ8sOAadbkio8XuXnh3kOLcMOagNQ8u9kMBg 0Mq8TnNSvW0VR8HkrtSOemz2VkEHvkvucBXZxIqE4vLwLZtHnrs+r04ixmOEDPC9Fd 2LGZ3HlmE6iqA== In-Reply-To: <9gWogDhaCBXEnTOijkijtCrrcAbhYY04AgDjXlqWxAN1m7xvAUbl31U_6aBjyp6Q8iu2M7SIMHNmyvD0QJ6NnC2PSFHIpdgos1q7eVM-CLI=@protonmail.com> Feedback-ID: 57735886:user:proton X-Pm-Message-ID: a02ddacbee6551a7078255b7469de25b62a3b9e3 Received-SPF: pass client-ip=185.70.43.25; envelope-from=heimeborgia@protonmail.com; helo=mail-4325.protonmail.ch X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_MSPIKE_H4=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001, TO_EQ_FM_DIRECT_MX=0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 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-mx.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.help:147716 Archived-At: On Saturday, August 17th, 2024 at 3:01 AM, Heime wrote: > On Saturday, August 17th, 2024 at 12:26 AM, Stephen Berman stephen.berman= @gmx.net wrote: >=20 > > On Fri, 16 Aug 2024 12:10:48 +0000 Heime heimeborgia@protonmail.com wro= te: > >=20 > > > On Saturday, August 17th, 2024 at 12:03 AM, Heime heimeborgia@protonm= ail.com wrote: > > >=20 > > > > On Friday, August 16th, 2024 at 11:51 PM, Stephen Berman > > > > stephen.berman@gmx.net wrote: > > > >=20 > > > > > On Fri, 16 Aug 2024 10:59:09 +0000 Heime heimeborgia@protonmail.c= om wrote: > > > > >=20 > > > > > > On Friday, August 16th, 2024 at 10:20 PM, Heime > > > > > > heimeborgia@protonmail.com wrote: > > > > > >=20 > > > > > > > On Friday, August 16th, 2024 at 9:54 PM, Stephen Berman > > > > > > > stephen.berman@gmx.net wrote: > > > > > > >=20 > > > > > > > > On Fri, 16 Aug 2024 09:24:23 +0000 Heime heimeborgia@proton= mail.com wrote: > > > > > > > >=20 > > > > > > > > > I want to display text starting from "(defun" up to the s= econd blank > > > > > > > > > line that is encountered. > > > > > > > > >=20 > > > > > > > > > But with this code I get > > > > > > > > >=20 > > > > > > > > > insert: Args out of range: #, 2706= , 2804 > > > > > > > > >=20 > > > > > > > > > (defun display-text () > > > > > > > > > "Display the text between a line starting with '(defun' a= nd the second > > > > > > > > > blank line." > > > > > > > > > (interactive) > > > > > > > > > (let ((output-buffer (get-buffer-create "Defun Sections")= )) > > > > > > > > > (with-current-buffer output-buffer > > > > > > > > > (erase-buffer)) ;; Clear previous contents > > > > > > > > > (save-excursion > > > > > > > > > (goto-char (point-min)) > > > > > > > > > (while (re-search-forward "^(defun" nil t) > > > > > > > > > (let ((start (match-beginning 0)) > > > > > > > > > (blank-lines 0) > > > > > > > > > end) > > > > > > > > > ;; Move forward to find the second blank line > > > > > > > > > (while (and (< blank-lines 2) > > > > > > > > > (re-search-forward "^\\s-*$" nil t)) > > > > > > > > > (setq blank-lines (1+ blank-lines))) > > > > > > > > > (setq end (point)) > > > > > > > > > ;; Ensure the range is valid before inserting > > > > > > > > > (when (> end start) > > > > > > > > > (with-current-buffer output-buffer > > > > > > > > > (insert (buffer-substring-no-properties start end) "\n"))= )))) > > > > > > > > > ;; Display the output buffer > > > > > > > > > (display-buffer output-buffer))) > > > > > > > >=20 > > > > > > > > You've set `start' and` end' in a different buffer than out= put-buffer > > > > > > > > but you're invoking buffer-substring-no-properties with the= se values in > > > > > > > > output-buffer, which you've erased, so those values are not= in the range > > > > > > > > of possible values in output-buffer. Try let-binding the re= sult of > > > > > > > > invoking buffer-substring-no-properties before the second i= nvocation of > > > > > > > > with-current-buffer. > > > > > > > >=20 > > > > > > > > Steve Berman > > > > > >=20 > > > > > > I updated as suggested. Although I get the output, the search s= tops on > > > > > > the first > > > > > > blank line rather than on the second blank line. > > > > >=20 > > > > > Consider a buffer "test" with the following content (two blank li= nes > > > > > between the defuns): > > > > >=20 > > > > > ;;;;;;;;;;;;; > > > > >=20 > > > > > (defun f1 () > > > > > (ignore)) > > > > >=20 > > > > > (defun f2 () > > > > > (ignore)) > > > > > ;;;;;;;;;;;;; > > > > >=20 > > > > > When you call `display-text' in "test", the first evaluation of t= he > > > > > sexp (re-search-forward "^\\s-*$" nil t) moves point to the first= blank > > > > > line below the first defun. Where is point after the second evalu= ation > > > > > of that sexp? - Steve Berman > > > >=20 > > > > It is still at the beginning of the first blank line. > > >=20 > > > I do not understand why this happens. Because (point) after > > > re-search-forward should give me the position at the beginning of the > > > second blank line that is encountered. > >=20 > > The sexp (re-search-forward "^\\s-*$" nil t) succeeds if it find a line > > containing only zero or more whitespace characters and moves point to > > the end of the match. If point is on a blank line, the search succeeds, > > but since the beginning and end of the match coincide, point does not > > move. If you want point to move, your code needs to accommodate this > > case. - Steve Berman >=20 >=20 > Have printed start and end just after (setq end (point)) >=20 > (message "Start: %d, End: %d" start end) >=20 > And the values for start and end are different. When the first blank is reached, point moves to that blank, the next search keeps point at the same place rather than moving to the next blank line.