GNU logs - #79643, boring messages

Message sent to bug-hyperbole@HIDDEN:

Subject: bug#79643: hyrolo-yank-reformat-function needs region's end
Resent-From: Yarl <yarl-baudig@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-hyperbole@HIDDEN
Resent-Date: Fri, 17 Oct 2025 08:49:02 +0000
Resent-Message-ID: <handler.79643.B.176069091518006 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: 79643 <at> debbugs.gnu.org
From: Yarl <yarl-baudig@HIDDEN>
Date: Fri, 17 Oct 2025 10:47:49 +0200
Message-ID: <87plalvrre.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13)
MIME-Version: 1.0
Content-Type: text/plain
Received-SPF: pass client-ip=213.182.54.11;
 envelope-from=yarl-baudig@HIDDEN; helo=mailo.com
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,
 RCVD_IN_VALIDITY_CERTIFIED_BLOCKED=0.001, RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001,
 SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: 1.0 (+)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -0.0 (/)

Hello,

Below is hyrolo-yank:
--8<---------------cut here---------------start------------->8---
(defun hyrolo-yank (name &optional regexp-flag)
  "Insert at point the first rolo entry with a headline containing NAME.
If the `consult' package is installed, interactively select and complete
the entry to be inserted.

With optional prefix arg, REGEXP-FLAG, treat NAME as a regular expression
instead of a string."
  (interactive (list 
		(hsys-consult-grep-headlines-read-regexp
		 #'hyrolo-consult-grep "Yank rolo headline matching")
		current-prefix-arg))
  (when (string-empty-p name)
    (setq name nil))
  (when (or (null name) (not (stringp name)))
    (error "(hyrolo-yank): Invalid name: `%s'" name))

  (let ((hyrolo-display-buffer (current-buffer))
	(start (point))
	found)
    (save-excursion
      (setq found
	    (if (and (hsys-consult-active-p)
		     (string-match "\\([^ \t\n\r\"'`]*[^ \t\n\r:\"'`0-9]\\): ?\\([1-9][0-9]*\\)[ :]"
				   name))
		(hyrolo-grep-file (match-string-no-properties 1 name)
				  (regexp-quote (substring name (match-end 0)))
				  -1 nil t)
	      (hyrolo-grep (if regexp-flag name (regexp-quote name)) -1 nil nil t))))
    ;; Let user reformat the region just yanked.
    (when (= found 1)
      (funcall hyrolo-yank-reformat-function start (point)))
    found))
--8<---------------cut here---------------end--------------->8---

Because *save-excursion* is used, *start* equals to *(point)* in the
call to *hyrolo-yank-reformat-function*, which only gets the start of
the region just yanked.

Thank you!

Message sent:

Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
MIME-Version: 1.0
X-Mailer: MIME-tools 5.505 (Entity 5.505)
Content-Type: text/plain; charset=utf-8
X-Loop: help-debbugs@HIDDEN
From: help-debbugs@HIDDEN (GNU bug Tracking System)
To: Yarl <yarl-baudig@HIDDEN>
Subject: bug#79643: Acknowledgement (hyrolo-yank-reformat-function needs
 region's end)
Message-ID: <handler.79643.B.176069091518006.ack <at> debbugs.gnu.org>
References: <87plalvrre.fsf@HIDDEN>
X-Gnu-PR-Message: ack 79643
X-Gnu-PR-Package: hyperbole
Reply-To: 79643 <at> debbugs.gnu.org
Date: Fri, 17 Oct 2025 08:49:02 +0000

Thank you for filing a new bug report with debbugs.gnu.org.

This is an automatically generated reply to let you know your message
has been received.

Your message is being forwarded to the package maintainers and other
interested parties for their attention; they will reply in due course.

Your message has been sent to the package maintainer(s):
 bug-hyperbole@HIDDEN

If you wish to submit further information on this problem, please
send it to 79643 <at> debbugs.gnu.org.

Please do not send mail to help-debbugs@HIDDEN unless you wish
to report a problem with the Bug-tracking system.

--=20
79643: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D79643
GNU Bug Tracking System
Contact help-debbugs@HIDDEN with problems

Message sent to bug-hyperbole@HIDDEN:

Subject: bug#79643: hyrolo-yank-reformat-function needs region's end
Resent-From: Mats Lidell <matsl@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-hyperbole@HIDDEN
Resent-Date: Sun, 09 Nov 2025 22:54:02 +0000
Resent-Message-ID: <handler.79643.B79643.17627288105377 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: Yarl <yarl-baudig@HIDDEN>
Cc: 79643 <at> debbugs.gnu.org
From: Mats Lidell <matsl@HIDDEN>
In-Reply-To: <87plalvrre.fsf@HIDDEN>
References: <87plalvrre.fsf@HIDDEN>
Date: Sun, 09 Nov 2025 23:53:16 +0100
Message-ID: <874ir2akdf.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13)
MIME-Version: 1.0
Content-Type: text/plain
Precedence: list
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>

> Yarl writes:
> Hello,
>
> Below is hyrolo-yank:
>
> (defun hyrolo-yank (name &optional regexp-flag)
>   "Insert at point the first rolo entry with a headline containing NAME.
> If the `consult' package is installed, interactively select and complete
> the entry to be inserted.
>
> With optional prefix arg, REGEXP-FLAG, treat NAME as a regular expression
> instead of a string."
>   (interactive (list 
> 		(hsys-consult-grep-headlines-read-regexp
> 		 #'hyrolo-consult-grep "Yank rolo headline matching")
> 		current-prefix-arg))
>   (when (string-empty-p name)
>     (setq name nil))
>   (when (or (null name) (not (stringp name)))
>     (error "(hyrolo-yank): Invalid name: `%s'" name))
>
>   (let ((hyrolo-display-buffer (current-buffer))
> 	(start (point))
> 	found)
>     (save-excursion
>       (setq found
> 	    (if (and (hsys-consult-active-p)
> 		     (string-match "\\([^ \t\n\r\"'`]*[^ \t\n\r:\"'`0-9]\\): ?\\([1-9][0-9]*\\)[ :]"
> 				   name))
> 		(hyrolo-grep-file (match-string-no-properties 1 name)
> 				  (regexp-quote (substring name (match-end 0)))
> 				  -1 nil t)
> 	      (hyrolo-grep (if regexp-flag name (regexp-quote name)) -1 nil nil t))))
>     ;; Let user reformat the region just yanked.
>     (when (= found 1)
>       (funcall hyrolo-yank-reformat-function start (point)))
>     found))
>
> Because *save-excursion* is used, *start* equals to *(point)* in the
> call to *hyrolo-yank-reformat-function*, which only gets the start of
> the region just yanked.
>
> Thank you!

Thanks for the report and sorry for late response. This was fixed in commit
dbe1f6c in the middle of October. It is available through the pre release on
gnu-devel and on Melpa. Please give it a try.

Yours Mats

Message sent to bug-hyperbole@HIDDEN:

Subject: bug#79643: hyrolo-yank-reformat-function needs region's end
Resent-From: Yarl <yarl-baudig@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-hyperbole@HIDDEN
Resent-Date: Mon, 10 Nov 2025 07:50:02 +0000
Resent-Message-ID: <handler.79643.B79643.176276097425889 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: Mats Lidell <matsl@HIDDEN>
Cc: 79643 <at> debbugs.gnu.org, Yarl <yarl-baudig@HIDDEN>
From: Yarl <yarl-baudig@HIDDEN>
In-Reply-To: <874ir2akdf.fsf@HIDDEN> (Mats Lidell's message of "Sun, 09 Nov
 2025 23:53:16 +0100")
References: <87plalvrre.fsf@HIDDEN> <874ir2akdf.fsf@HIDDEN>
Date: Mon, 10 Nov 2025 08:49:22 +0100
Message-ID: <875xbi8gzh.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13)
MIME-Version: 1.0
Content-Type: text/plain
Precedence: list
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>

Mats Lidell <matsl@HIDDEN> writes:

>
> Thanks for the report and sorry for late response. This was fixed in commit
> dbe1f6c in the middle of October. It is available through the pre release on
> gnu-devel and on Melpa. Please give it a try.
>
> Yours Mats

Yes I saw that commit, thank you a lot. It is effective.

Last modified: Mon, 10 Nov 2025 08:00:02 UTC

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997 nCipher Corporation Ltd, 1994-97 Ian Jackson.