Sam Steingold <[EMAIL PROTECTED]> writes:
> I have two issues:
>
> Using saved location: http://bzr.xsteve.at/dvc/
> Tree is up to date at revision 199.
>
> 1. split-string
>
> GNU Emacs 21.4.1 says
> split-string is a compiled Lisp function in `subr'.
> (split-string STRING &optional SEPARATORS)
Does the following definition work on 21.4.1?
(defun split-string (string &optional separators omit-nulls)
"Split STRING into substrings bounded by matches for SEPARATORS.
The beginning and end of STRING, and each match for SEPARATORS, are
splitting points. The substrings matching SEPARATORS are removed, and
the substrings between the splitting points are collected as a list,
which is returned.
If SEPARATORS is non-nil, it should be a regular expression matching text
which separates, but is not part of, the substrings. If nil it defaults to
`split-string-default-separators', normally \"[ \\f\\t\\n\\r\\v]+\", and
OMIT-NULLS is forced to t.
If OMIT-NULLS is t, zero-length substrings are omitted from the list \(so
that for the default value of SEPARATORS leading and trailing whitespace
are effectively trimmed). If nil, all zero-length substrings are retained,
which correctly parses CSV format, for example.
Note that the effect of `(split-string STRING)' is the same as
`(split-string STRING split-string-default-separators t)'). In the rare
case that you wish to retain zero-length substrings when splitting on
whitespace, use `(split-string STRING split-string-default-separators)'.
Modifies the match data; use `save-match-data' if necessary."
(let ((keep-nulls (not (if separators omit-nulls t)))
(rexp (or separators split-string-default-separators))
(start 0)
notfirst
(list nil))
(while (and (string-match rexp string
(if (and notfirst
(= start (match-beginning 0))
(< start (length string)))
(1+ start) start))
(< start (length string)))
(setq notfirst t)
(if (or keep-nulls (< start (match-beginning 0)))
(setq list
(cons (substring string start (match-beginning 0))
list)))
(setq start (match-end 0)))
(if (or keep-nulls (< start (length string)))
(setq list
(cons (substring string start)
list)))
(nreverse list)))
If yes, we could add it as compatibility function to DVC.el
> GNU Emacs 22.1.50.5 says
> split-string is a compiled Lisp function in `subr.el'.
> (split-string string &optional separators omit-nulls)
>
> While compiling xhg-paths in file /home/shared/lib/elisp/dvc/lisp/xhg.el:
> ** split-string called with 3 arguments, but accepts only 1-2
>
> it appears that dvc requires emacs 22.
>
> 2. make reports:
>
> While compiling toplevel forms in file
> /home/shared/lib/elisp/dvc/lisp/xmtn-dvc.el:
> !! error (("Variable binding depth exceeds max-specpdl-size"))
>
> I can compile the file in e22 by hand though.
Do you get this error on emacs21 or on emacs22 or on both?
What is the value of max-specpdl-size on this system?
Stefan.
_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev
