[elpa] externals/org-contacts 0af8ca84b4 107/154: org-contacts.el: Display contacts buffer result.

[ELPA Syncer]

branch: externals/org-contacts
commit 0af8ca84b4318775f87fc2ef6f3f6c3b08682918
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>

    org-contacts.el: Display contacts buffer result.
    
    * contrib/lisp/org-contacts.el (org-contacts-link-open): Display the
    searched contacts file buffer.
---
 org-contacts.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/org-contacts.el b/org-contacts.el
index 2811db6c3d..cd10e4874d 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -1197,6 +1197,7 @@ are effectively trimmed).  If nil, all zero-length 
substrings are retained."
   "Open contacts: link type with jumping or searching."
   (let ((query path))
     (cond
+     ;; /query/ format searching
      ((string-match "/.*/" query)
       (let* ((f (car org-contacts-files))
             (buf (get-buffer (file-name-nondirectory f))))
@@ -1204,12 +1205,14 @@ are effectively trimmed).  If nil, all zero-length 
substrings are retained."
        (with-current-buffer buf
          (string-match "/\\(.*\\)/" query)
          (occur (match-string 1 query)))))
+     ;; jump to contact headline directly
      (t
       (let* ((f (car org-contacts-files))
             (buf (get-buffer (file-name-nondirectory f))))
        (unless (buffer-live-p buf) (find-file f))
        (with-current-buffer buf
-         (goto-char (marker-position (org-find-exact-headline-in-buffer 
query)))))
+         (goto-char (marker-position (org-find-exact-headline-in-buffer 
query))))
+        (display-buffer buf '(display-buffer-below-selected)))
       ;; FIXME
       ;; (let* ((contact-entry (plist-get (org-contacts--all-contacts) query))
       ;;            (contact-name (plist-get contact-entry :name))