[elpa] externals/org-contacts 84436fd7bc 136/154: Fix org-contacts file narrowed not widen recovered bug.

[ELPA Syncer]

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

    Fix org-contacts file narrowed not widen recovered bug.
---
 org-contacts.el | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/org-contacts.el b/org-contacts.el
index 0513df76ee..d51fda9ac4 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -646,16 +646,17 @@ description."
          (org-contact-buffer (get-buffer (find-file-noselect file)))
          ;; get org-contact headline and property drawer.
          (contents (with-current-buffer org-contact-buffer
-                     (goto-char position)
                      (when (derived-mode-p 'org-mode)
-                       ;; `org-edit-src-code' is not a real narrowing command.
-                       ;; Remove this first conditional if you don't want it.
-                       (cond ((ignore-errors (org-edit-src-code))
-                              (delete-other-windows))
-                             ((org-at-block-p)
-                              (org-narrow-to-block))
-                             (t (org-narrow-to-subtree)))
-                       (buffer-substring (point-min) (point-max))))))
+                       (save-excursion
+                         (goto-char position)
+                         (cond ((ignore-errors (org-edit-src-code))
+                                (delete-other-windows))
+                               ((org-at-block-p)
+                                (org-narrow-to-block))
+                               (t (org-narrow-to-subtree)))
+                         (let ((content (buffer-substring (point-min) 
(point-max))))
+                           (when (buffer-narrowed-p) (widen))
+                           content))))))
     (with-current-buffer doc-buffer
       (read-only-mode 1)
       (let ((inhibit-read-only t))