branch: externals/org-contacts
commit 5df184d6eb421bd391a0aaa379de30403b6f069d
Author: stardiviner <numbch...@gmail.com>
Commit: stardiviner <numbch...@gmail.com>
Fix jump to contact entry position content not revealed after new org-fold
---
org-contacts.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index b7ac0bfa1e..13e9626712 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -954,7 +954,7 @@ This can be property key checking."
;; FIXME: `goto-char' not physically move point in buffer.
;; (display-buffer buf '(display-buffer-below-selected))
;; (goto-char (org-find-exact-headline-in-buffer contact-name nil t))
- )))
+ (org-fold-show-context))))
org-contacts-files))
;;;###autoload
@@ -1516,7 +1516,9 @@ Each element has the form (NAME . (FILE . POSITION))."
(t
(with-current-buffer buf
(if-let ((position (org-find-exact-headline-in-buffer query)))
- (goto-char (marker-position position))
+ (progn
+ (goto-char (marker-position position))
+ (org-fold-show-context))
(user-error "[org-contacts] Can't find <%s> in your
`org-contacts-files'." query)))
(display-buffer buf '(display-buffer-below-selected))
