branch: externals/org-remark
commit c6dccc38781d986201cbcbb3c8ddb1d858aed39c
Author: Noboru Ota <m...@nobiot.com>
Commit: Noboru Ota <m...@nobiot.com>

    intrnl:create macro: check label to be a string
---
 README.org    | 4 ++--
 org-remark.el | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 8322419e68..95d7fa8a74 100644
--- a/README.org
+++ b/README.org
@@ -119,8 +119,8 @@ This work is licensed under a GPLv3 license. For a full 
copy of the licese, refe
 
 ** (defmacro org-remark-create
 :PROPERTIES:
-:org-remark-beg: 4027
-:org-remark-end: 4000
+:org-remark-beg: 4000
+:org-remark-end: 4027
 :org-remark-id: c759f435
 :org-remark-label: nil
 :org-remark-link: [[file:~/src/org-remark/org-remark.el::120]]
diff --git a/org-remark.el b/org-remark.el
index 1c07d584e7..e08f459173 100644
--- a/org-remark.el
+++ b/org-remark.el
@@ -136,7 +136,8 @@ highlighted text region will have a corresponding Org 
headline in
 the notes file, and it can have additional properties in the
 property drawer from the highlighter pen.  To do this, prefix
 property names with \"org-remark-\" or use \"CATEGORY\"."
-  (if (not label) `(user-error "org-remark-create: Label is missing")
+  (if (or (not label) (stringp label)
+          (user-error "org-remark-create: Label is missing or not string"))
     `(progn
        ;; Define custom pen function
        (defun ,(intern (format "org-remark-mark-%s" label))

Reply via email to