[nongnu] elpa/toc-org aef220c266 115/128: Merge pull request #71 from snosov1/fix-70

[ELPA Syncer]

branch: elpa/toc-org
commit aef220c266f53d36055f74f4a243c6483c563d2a
Merge: ff8d49c2c7 215d3e41e3
Author: Sergei Nosov <sergei.nosov@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #71 from snosov1/fix-70
    
    fix C-c C-o for links with cookies
---
 toc-org.el | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/toc-org.el b/toc-org.el
index a05196ebb9..e2fff1d882 100644
--- a/toc-org.el
+++ b/toc-org.el
@@ -311,15 +311,13 @@ each heading into a link."
                    (end (line-end-position))
                    (heading (buffer-substring-no-properties
                              beg end))
-                   (hrefified (funcall hrefify heading hash)))
+                   (hrefified (funcall hrefify heading hash))
+                  (visible-link (toc-org-format-visible-link heading)))
 
               (if markdown-syntax-p
                   (progn
                     (insert "[")
-                    (insert
-                     (toc-org-format-visible-link
-                      (buffer-substring-no-properties
-                       (point) (line-end-position))))
+                    (insert visible-link)
                     (delete-region (point) (line-end-position))
                     (insert "]")
                     (insert "(")
@@ -328,16 +326,13 @@ each heading into a link."
                 (insert "[[")
                 (insert hrefified)
                 (insert "][")
-                (insert
-                 (toc-org-format-visible-link
-                  (buffer-substring-no-properties
-                   (point) (line-end-position))))
+                (insert visible-link)
                 (delete-region (point) (line-end-position))
                 (insert "]]"))
 
               ;; maintain the hash table, if provided
               (when hash
-                (puthash hrefified heading hash)))
+                (puthash hrefified visible-link hash)))
             (= 0 (forward-line 1)))))
 
     (buffer-substring-no-properties