[elpa] externals/devdocs 36ec95c 3/5: Adapt to changes in shr-target-id in Emacs 28

[ELPA Syncer]

branch: externals/devdocs
commit 36ec95c394609ac1e97353c545de0e3f40f2a0d5
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>

    Adapt to changes in shr-target-id in Emacs 28
---
 devdocs.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/devdocs.el b/devdocs.el
index e5a1f6c..e5d404a 100644
--- a/devdocs.el
+++ b/devdocs.el
@@ -212,8 +212,8 @@ This is an alist containing `entries' and `types'."
   "Go to the original position in a DevDocs buffer."
   (interactive)
   (goto-char (point-min))
-  (text-property-search-forward 'shr-target-id)
-  (beginning-of-line))
+  (when-let ((match (text-property-search-forward 'shr-target-id shr-target-id 
t)))
+    (goto-char (prop-match-beginning match))))
 
 (defun devdocs-go-back ()
   "Go to the previously displayed entry in this DevDocs buffer."
@@ -288,12 +288,12 @@ fragment part of ENTRY.path."
     (unless (eq major-mode 'devdocs-mode)
       (devdocs-mode))
     (let-alist entry
-      (let ((shr-target-id (or .fragment (devdocs--path-fragment .path)))
-            (buffer-read-only nil)
+      (let ((buffer-read-only nil)
             (file (expand-file-name (format "%s/%s.html" .doc 
(url-hexify-string
                                                                
(devdocs--path-file .path)))
                                     devdocs-data-dir)))
         (erase-buffer)
+        (setq-local shr-target-id (or .fragment (devdocs--path-fragment 
.path)))
         ;; TODO: cl-progv here for shr settings?
         (shr-insert-document
          (with-temp-buffer