Mercurial > hg > xemacs-beta
diff lisp/subr.el @ 5504:d3e0482c7899
Move #'split-path to subr.el, as was always the intention.
src/ChangeLog addition:
2011-05-07 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (Fsplit_path): Removed.
* fns.c (syms_of_fns):
Move #'split-path to subr.el, as was always the intention.
lisp/ChangeLog addition:
2011-05-07 Aidan Kehoe <kehoea@parhasard.net>
* subr.el:
* subr.el (split-path): New.
Moved here from fns.c. There's no need to have this in C, it's no
longer used that early at startup.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 07 May 2011 16:57:17 +0100 |
| parents | 1e544fd7be12 |
| children | b0d87f92e60b |
line wrap: on
line diff
--- a/lisp/subr.el Sat May 07 12:26:39 2011 +0100 +++ b/lisp/subr.el Sat May 07 16:57:17 2011 +0100 @@ -505,18 +505,20 @@ ;; BEGIN SYNCHED WITH FSF 21.2 -;; #### #### #### AAaargh! Must be in C, because it is used insanely -;; early in the bootstrap process. -;(defun split-path (path) +(defun split-path (path) + "Explode a search path into a list of strings. +The path components are separated with the characters specified +with `path-separator'." + (while (or (not (stringp path-separator)) + (/= (length path-separator) 1)) + (setq path-separator (signal 'error (list "\ +`path-separator' should be set to a single-character string" + path-separator)))) + (split-string-by-char path (aref path-separator 0))) + ; "Explode a search path into a list of strings. ;The path components are separated with the characters specified ;with `path-separator'." -; (while (or (not stringp path-separator) -; (/= (length path-separator) 1)) -; (setq path-separator (signal 'error (list "\ -;`path-separator' should be set to a single-character string" -; path-separator)))) -; (split-string-by-char path (aref separator 0))) (defmacro with-current-buffer (buffer &rest body) "Temporarily make BUFFER the current buffer and execute the forms in BODY.