emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/hyperbole d399abb261: Use line-beginning-position and l


From: ELPA Syncer
Subject: [elpa] externals/hyperbole d399abb261: Use line-beginning-position and line-end-position (#281)
Date: Sat, 8 Oct 2022 13:57:42 -0400 (EDT)

branch: externals/hyperbole
commit d399abb26104465591518de88e36cbaa6f3a1659
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    Use line-beginning-position and line-end-position (#281)
    
    Available since 20.4, replaces obsolete functions since 29.1.
---
 ChangeLog   | 5 +++++
 hibtypes.el | 8 ++++----
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 2d6924e5a4..63eb3f9397 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-10-08  Mats Lidell  <matsl@gnu.org>
+
+* hibtypes.el (ipython-stack-frame, ripgrep-msg): Use
+    line-beginning-position and line-end-position.
+
 2022-10-06  Bob Weiner  <rsw@gnu.org>
 
 * test/hibtypes-tests.el (ibtypes::pathname-path-variable-test): Remove
diff --git a/hibtypes.el b/hibtypes.el
index 176005c1f4..1319fab548 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    19-Sep-91 at 20:45:31
-;; Last-Mod:      6-Oct-22 at 18:56:22 by Bob Weiner
+;; Last-Mod:      8-Oct-22 at 00:20:28 by Mats Lidell
 ;;
 ;; Copyright (C) 1991-2022 Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -852,8 +852,8 @@ than a helm completion buffer)."
           (while (and (= (forward-line -1) 0)
                       (looking-at line-num-regexp)))
           (unless (or (looking-at line-num-regexp)
-                      (not (re-search-forward " in " nil (point-at-eol)))
-                      (and (setq file (buffer-substring-no-properties 
(point-at-bol) (match-beginning 0)))
+                      (not (re-search-forward " in " nil (line-end-position)))
+                      (and (setq file (buffer-substring-no-properties 
(line-beginning-position) (match-beginning 0)))
                            (string-empty-p (string-trim file))))
             (let* ((but-label (concat file ":" line-num))
                    (source-loc (unless (file-name-absolute-p file)
@@ -896,7 +896,7 @@ than a helm completion buffer)."
           (while (and (= (forward-line -1) 0)
                       (looking-at "[1-9][0-9]*[-:]\\|--$")))
           (unless (or (looking-at "[1-9][0-9]*[-:]\\|--$")
-                      (and (setq file (buffer-substring-no-properties 
(point-at-bol) (point-at-eol)))
+                      (and (setq file (buffer-substring-no-properties 
(line-beginning-position) (line-end-position)))
                            (string-empty-p (string-trim file))))
             (let* ((but-label (concat file ":" line-num))
                   ;; RSW 12-05-2021 - Added hpath:expand in next line to



reply via email to

[Prev in Thread] Current Thread [Next in Thread]