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
