branch: externals/org-transclusion
commit 9213406fd9676d978e2d4328ad61615c42f2c78e
Author: Noboru Ota <[email protected]>
Commit: Noboru Ota <[email protected]>
chg(transient): Menu outputs user-error if used in non-Org buffer
---
org-transclusion-transient.el | 4 +++-
test/test-2.0.org | 3 +--
2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/org-transclusion-transient.el b/org-transclusion-transient.el
index 9ac36edec9..636ce71f75 100644
--- a/org-transclusion-transient.el
+++ b/org-transclusion-transient.el
@@ -247,9 +247,11 @@ If you pass a `universal-argument' via
\\[universal-argument]
(hydra-org-transclusion--detect-transclude-at-point-wrapper
(insert (format ":thingatpt %s" string))))))
-
+;;;###autoload
(defun org-transclusion-transient-menu ()
(interactive)
+ (unless (derived-mode-p 'org-mode)
+ (user-error "`org-transclusion' works only in `org' buffer"))
(let ((org-transclusion-buffer (current-buffer)))
(if (org-transclusion-within-transclusion-p)
(org-transclusion--at-point-transient)
diff --git a/test/test-2.0.org b/test/test-2.0.org
index 8735b14c26..4d4af4a6c5 100644
--- a/test/test-2.0.org
+++ b/test/test-2.0.org
@@ -33,7 +33,6 @@ ID with "first section" [[id:2022-06-26T152831]]
#+transclude: [[id:2022-06-26T152831]]
-
** test empty file
#+transclude: [[file:empty.txt::2][empty text file]]
@@ -216,7 +215,7 @@ Temporarily set ~org-transclusion-include-first-section~ to
nil
* Test src and end
#+transclude: [[file:./python-1.py]]
-#+transclude: [[file:./python-1.py]] :src python
+#+transclude: [[file:./python-1.py]] :src python
#+transclude: [[file:./python-1.py::id-1234]] :src python :end "id-1234 end
here"
