master 7fba25cf534: Fix removal of bookmark's fringe mark in Info and Dired

[Eli Zaretskii]

branch: master
commit 7fba25cf5344f5c3507aedf59e6ae099e7662508
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    Fix removal of bookmark's fringe mark in Info and Dired
    
    * lisp/bookmark.el (bookmark-buffer-file-name): Support Info
    buffers.
    (bookmark--remove-fringe-mark): Call 'bookmark-buffer-file-name'
    instead of using 'buffer-file-name', which could be nil.
    (Bug#69974)
---
 lisp/bookmark.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 60dd61a5ac8..bf2357207d8 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -515,10 +515,11 @@ See user option `bookmark-fringe-mark'."
         (non-essential t)
         overlays found temp)
     (when (and pos filename)
-      (setq filename (expand-file-name filename))
+      (setq filename (abbreviate-file-name (expand-file-name filename)))
       (dolist (buf (buffer-list))
         (with-current-buffer buf
-          (when (equal filename buffer-file-name)
+          (when (equal filename
+                       (ignore-errors (bookmark-buffer-file-name)))
             (setq overlays
                   (save-excursion
                     (goto-char pos)
@@ -1192,6 +1193,8 @@ it to the name of the bookmark currently being set, 
advancing
      (if (stringp dired-directory)
          dired-directory
        (car dired-directory)))
+    ((and (boundp 'Info-current-file) (stringp Info-current-file))
+     Info-current-file)
     (t (error "Buffer not visiting a file or directory")))))
 
 (defvar bookmark--watch-already-asked-mtime nil