[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/hyperbole d399abb261: Use line-beginning-position and line-end-position (#281),
ELPA Syncer <=