[nongnu] elpa/annotate 50bc634f6b 140/372: - placed the cursor in the right place (on the annotated text) when an

[ELPA Syncer]

branch: elpa/annotate
commit 50bc634f6bb78a175b459370492b68f4698c7917
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>

    - placed the cursor in the right place (on the annotated text) when an
      info file is reached from the annotation's summary window.
---
 annotate.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/annotate.el b/annotate.el
index d384aa68a9..7b09c17c05 100644
--- a/annotate.el
+++ b/annotate.el
@@ -1262,7 +1262,12 @@ sophisticated way than plain text"
          (file-type (annotate-guess-file-format file)))
     (cond
      ((eq file-type :info)
-      (info file))
+      (with-current-buffer-window
+       "*info*" nil nil
+       (info-setup file (current-buffer))
+       (switch-to-buffer "*info*"))
+      (with-current-buffer "*info*"
+        (goto-char (button-get button 'go-to))))
      (t
       (let* ((buffer (find-file-other-window file)))
         (with-current-buffer buffer