diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-util.el | 10 | ||||
| -rw-r--r-- | lisp/subr.el | 8 |
2 files changed, 8 insertions, 10 deletions
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index 06b63eae370..92a658655ac 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el @@ -33,16 +33,6 @@ ;;; String manipulations while paying attention to multibyte characters. ;;;###autoload -(defsubst string-to-list (string) - "Return a list of characters in STRING." - (append string nil)) - -;;;###autoload -(defsubst string-to-vector (string) - "Return a vector of characters in STRING." - (vconcat string)) - -;;;###autoload (defun store-substring (string idx obj) "Embed OBJ (string or character) at index IDX of STRING." (if (integerp obj) 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." |
