Selaa lähdekoodia

Move point when inserting link to other Org mode item

This is the natural flow, as usually one continues writing after the link, not
before it.
master
Daniel 2 kuukautta sitten
vanhempi
commit
1916eb6736
No known key found for this signature in database
1 muutettua tiedostoa jossa 3 lisäystä ja 4 poistoa
  1. 3
    4
      site-lisp/db-org.el

+ 3
- 4
site-lisp/db-org.el Näytä tiedosto

@@ -734,10 +734,9 @@ Use `org-store-link' to save link to `org-stored-links'."
734 734
   (unless (derived-mode-p 'org-mode)
735 735
     (user-error "Not in Org Mode"))
736 736
   (let ((pom (db/org--get-location arg)))
737
-    (save-mark-and-excursion
738
-      (org-with-point-at pom
739
-        (org-store-link nil t))
740
-      (insert (apply #'format "[[%s][%s]]" (cl-first org-stored-links))))))
737
+    (org-with-point-at pom
738
+      (org-store-link nil t))
739
+    (insert (apply #'format "[[%s][%s]]" (cl-first org-stored-links)))))
741 740
 
742 741
 (defun db/org-add-link-to-current-clock ()
743 742
   "Insert link to currently clocked-in item at point.

Loading…
Peruuta
Tallenna