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))