[elpa] externals/org-transclusion 81ef8afce0 1/3: add: Somewhat better message for add-all

[ELPA Syncer]

branch: externals/org-transclusion
commit 81ef8afce0a76bdea66d3c545ef11e07536eab51
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>

    add: Somewhat better message for add-all
---
 org-transclusion.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/org-transclusion.el b/org-transclusion.el
index 093567d446..7a821471d3 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -492,7 +492,9 @@ the rest of the buffer unchanged."
                       (plist-get (org-transclusion-keyword-string-to-plist)
                                  :disable-auto))
             ;; Demoted-errors so that one error does not stop the whole process
-            (with-demoted-errors (org-transclusion-add)))))
+            (with-demoted-errors
+                "Not transcluded. Continue to next: %S"
+              (org-transclusion-add)))))
       (goto-char marker)
       (move-marker marker nil) ; point nowhere for GC
       t)))
@@ -1313,7 +1315,7 @@ Case 2. #+transclude inside another transclusion"
    ((let ((elm (org-element-at-point)))
       (not (and (string= "keyword" (org-element-type elm))
                 (string= "TRANSCLUDE" (org-element-property :key elm)))))
-    (user-error (format "Not at a transclude keyword at point %d, line %d"
+    (user-error (format "Not at a transclude keyword or transclusion in a 
block at point %d, line %d"
                         (point) (org-current-line))))
    ;; Case 2. #+transclude inside another transclusion
    ((org-transclusion-within-transclusion-p)