branch: externals/org-contacts
commit b06a59736800865b8a7e8d6d45774169cb31528a
Author: stardiviner <numbch...@gmail.com>
Commit: stardiviner <numbch...@gmail.com>
Fix can't jump to contact in second file in `org-contacts-files`
---
org-contacts.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index fa64270006..9e3a25a9b4 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -979,11 +979,12 @@ This can be property key checking."
(let ((buf (find-file-noselect (expand-file-name file))))
(with-current-buffer buf
;; NOTE: `org-goto-marker-or-bmk' will display buffer in current
window, not follow `display-buffer' rule.
- (org-goto-marker-or-bmk (org-find-exact-headline-in-buffer
contact-name))
- ;; 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))))
+ (when-let* ((found-contact (org-find-exact-headline-in-buffer
contact-name)))
+ (org-goto-marker-or-bmk found-contact)
+ ;; 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
