From 07a6e4601ac4459fc337f25e140650f4bdf8866b Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sat, 9 Sep 2023 12:53:02 +1000 Subject: [emacs] Fixing my-fetch-url etc. --- emacs/.emacs.d/lisp/my/my-org.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'emacs/.emacs.d/lisp/my/my-org.el') diff --git a/emacs/.emacs.d/lisp/my/my-org.el b/emacs/.emacs.d/lisp/my/my-org.el index 38eca7b..016bdd7 100644 --- a/emacs/.emacs.d/lisp/my/my-org.el +++ b/emacs/.emacs.d/lisp/my/my-org.el @@ -1281,10 +1281,12 @@ With a prefix arg, yank and exit immediately." (when (equal type "src") (insert (string-remove-suffix "-mode" (prin1-to-string (my-read-major-mode))))) - (org-edit-special) - (when current-prefix-arg - (yank) - (org-edit-src-exit))) + (let ((mark-was-active mark-active)) + (org-edit-special) + (when current-prefix-arg + (unless mark-was-active + (yank)) + (org-edit-src-exit)))) (defun my-link-to-line-number-in-prog-mode () "When in prog-mode, use line number as search item." -- cgit v1.2.3