[elpa] externals/hyperbole c61d209228: Trigger grep-msg ibtype only when matched file name exists

[ELPA Syncer]

branch: externals/hyperbole
commit c61d2092289352a9a88b7707f3466063084e44ba
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    Trigger grep-msg ibtype only when matched file name exists
---
 ChangeLog   | 5 +++++
 hibtypes.el | 9 +++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 778119d220..63bf742b88 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2023-03-08  Bob Weiner  <rsw@gnu.org>
+
+* hibtypes.el (grep-msg): Trigger only if filename exists.  Prevents matching
+    to parts of filenames, e.g. from grep -A.
+
 2023-03-07  Bob Weiner  <rsw@gnu.org>
 
 * hibtypes.el (org-id, org-id:help): Fix logic and inhibit-messages from
diff --git a/hibtypes.el b/hibtypes.el
index 8c79db4340..e22a36fb0f 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:      8-Mar-23 at 08:48:10 by Bob Weiner
+;; Last-Mod:      8-Mar-23 at 22:12:06 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -1024,9 +1024,10 @@ in grep and shell buffers."
           (if (stringp source-loc)
               (setq file (expand-file-name file (file-name-directory 
source-loc)))
            (setq file (or (hpath:prepend-shell-directory file) file)))
-          (setq line-num (string-to-number line-num))
-          (ibut:label-set but-label)
-          (hact 'link-to-file-line file line-num))))))
+         (when (file-exists-p file)
+            (setq line-num (string-to-number line-num))
+            (ibut:label-set but-label)
+            (hact 'link-to-file-line file line-num)))))))
 
 ;;; ========================================================================
 ;;; Jumps to source line associated with debugger stack frame or breakpoint