summaryrefslogtreecommitdiff
path: root/lisp/subr.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2017-02-12 19:02:56 -0800
committerGlenn Morris <rgm@gnu.org>2017-02-12 19:02:56 -0800
commitef6132c55fc3174f67766ad92e5e2866ac92b8ff (patch)
tree7d10c5a55fb6053ef85230df7c3da080062c87a0 /lisp/subr.el
parent04ea55fa471f0c75eeee6ccea33cf91c81fc246c (diff)
downloademacs-ef6132c55fc3174f67766ad92e5e2866ac92b8ff.tar.gz
Fix recent bootstrap issue by moving string-to-list
* lisp/international/mule-util.el (string-to-list, string-to-vector): Move from here... * lisp/subr.el (string-to-list, string-to-vector): ...to here. The implementation is trivial and at least string-to-list has ended up being needed early during bootstrap.
Diffstat (limited to 'lisp/subr.el')
-rw-r--r--lisp/subr.el8
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index a204577ddf9..4f848d1400c 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2875,6 +2875,14 @@ See Info node `(elisp)Security Considerations'."
(replace-regexp-in-string "[^-0-9a-zA-Z_./\n]" "\\\\\\&" argument))))
))
+(defsubst string-to-list (string)
+ "Return a list of characters in STRING."
+ (append string nil))
+
+(defsubst string-to-vector (string)
+ "Return a vector of characters in STRING."
+ (vconcat string))
+
(defun string-or-null-p (object)
"Return t if OBJECT is a string or nil.
Otherwise, return nil."