diff options
| author | Glenn Morris <rgm@gnu.org> | 2017-02-12 19:02:56 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2017-02-12 19:02:56 -0800 |
| commit | ef6132c55fc3174f67766ad92e5e2866ac92b8ff (patch) | |
| tree | 7d10c5a55fb6053ef85230df7c3da080062c87a0 /lisp/subr.el | |
| parent | 04ea55fa471f0c75eeee6ccea33cf91c81fc246c (diff) | |
| download | emacs-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.el | 8 |
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." |
