forked from mirrors/org-mode
Merge branch 'bugfix'
This commit is contained in:
commit
b9778ed5ad
|
@ -41,14 +41,19 @@
|
||||||
|
|
||||||
(defun org-entities--user-safe-p (v)
|
(defun org-entities--user-safe-p (v)
|
||||||
"Non-nil if V is a safe value for `org-entities-user'."
|
"Non-nil if V is a safe value for `org-entities-user'."
|
||||||
(pcase v
|
(cond
|
||||||
(`nil t)
|
((not v) t)
|
||||||
|
((listp v)
|
||||||
|
(seq-every-p
|
||||||
|
(lambda (e)
|
||||||
|
(pcase e
|
||||||
(`(,(and (pred stringp)
|
(`(,(and (pred stringp)
|
||||||
(pred (string-match-p "\\`[a-zA-Z][a-zA-Z0-9]*\\'")))
|
(pred (string-match-p "\\`[a-zA-Z][a-zA-Z0-9]*\\'")))
|
||||||
,(pred stringp) ,(pred booleanp) ,(pred stringp)
|
,(pred stringp) ,(pred booleanp) ,(pred stringp)
|
||||||
,(pred stringp) ,(pred stringp) ,(pred stringp))
|
,(pred stringp) ,(pred stringp) ,(pred stringp))
|
||||||
t)
|
t)
|
||||||
(_ nil)))
|
(_ nil)))
|
||||||
|
v))))
|
||||||
|
|
||||||
(defcustom org-entities-user nil
|
(defcustom org-entities-user nil
|
||||||
"User-defined entities used in Org to produce special characters.
|
"User-defined entities used in Org to produce special characters.
|
||||||
|
|
Loading…
Reference in New Issue