[elpa] scratch/org-contacts-rebased 3d068b7 104/118: org-contacts.el: Display contacts buffer result.

[Stefan Monnier]

branch: scratch/org-contacts-rebased
commit 3d068b70edd80d59cd5a448d120e54a78b88ff2b
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 2811db6..cd10e48 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))