I'm not sure whether DVC bugs should be reported to the Xtla bugtracker. Let me know if you'd prefer it to be there.
I'm using GNU Emacs 22.0.50.1 with
[EMAIL PROTECTED]/dvc--dev--0--patch-174.
Here are the steps I took to trigger the error.
- Set up a new bzr-managed project with "bzr init".
- Added files manually with "bzr add".
- In Emacs, hit C-x T c to get to a *bzr-log-edit* buffer.
- Enter one sentence and hit C-c C-c to attempt to commit.
- Received the following backtrace.
Debugger entered--Lisp error: (invalid-function (macro lambda (body arg
&optional show-progress distinguish-one-marked) "Eval BODY with point on each
marked line. Return a list of BODY's results.
If no marked file could be found, execute BODY on the current line.
If ARG is an integer, use the next ARG (or previous -ARG, if ARG<0)
files instead of the marked files.
In that case point is dragged along. This is so that commands on
the next ARG (instead of the marked) files can be chained easily.
If ARG is otherwise non-nil, use current file instead.
If optional third arg SHOW-PROGRESS evaluates to non-nil,
redisplay the dired buffer after each file is processed.
No guarantee is made about the position on the marked line.
BODY must ensure this itself if it depends on this.
Search starts at the beginning of the buffer, thus the car of the list
corresponds to the line nearest to the buffer's bottom. This
is also true for (positive and negative) integer values of ARG.
BODY should not be too long as it is expanded four times.
If DISTINGUISH-ONE-MARKED is non-nil, then if we find just one marked file,
return (t FILENAME) instead of (FILENAME)." (\` (prog1 (let (buffer-read-only
case-fold-search found results) (if (\, arg) (if (integerp (\, arg)) (progn
(dired-repeat-over-lines (\, arg) (function (lambda nil (if (\, show-progress)
(sit-for 0)) (setq results (cons (\, body) results))))) (if (< (\, arg) 0)
(nreverse results) results)) (list (\, body))) (let ((regexp
(dired-marker-regexp)) next-position) (save-excursion (goto-char (point-min))
(setq next-position (and (re-search-forward regexp nil t) (point-marker)) found
(not (null next-position))) (while next-position (goto-char next-position) (if
(\, show-progress) (sit-for 0)) (setq results (cons (\, body) results))
(goto-char next-position) (forward-line 1) (set-marker next-position nil) (setq
next-position (and (re-search-forward regexp nil t) (point-marker))))) (if (and
(\, distinguish-one-marked) (= (length results) 1)) (setq results (cons t
results))) (if found results (list (\, body)))))) (dired-move-to-filename)))))
dired-map-over-marks("/home/mwolson/proj/classes/cs352/proj3/.bzr" nil)
dvc-current-file-list(nil-if-none-marked)
bzr-dvc-log-edit-done()
apply(bzr-dvc-log-edit-done nil)
dvc-apply("dvc-log-edit-done")
dvc-log-edit-done()
call-interactively(dvc-log-edit-done)
Commenting out the following lines in `dvc-current-file-list' provides
a temporary fix.
((eq major-mode 'dired-mode)
(dired-map-over-marks (dired-get-filename) nil))
--
Michael Olson -- FSF Associate Member #652 -- http://www.mwolson.org/
Interests: Emacs Lisp, text markup, IRC, EMMS, anime, manga, Debian
/` |\ | | | IRC: mwolson on freenode.net: #hcoop, #muse, #PurdueLUG
|_] | \| |_| Jabber: mwolson_at_hcoop.net
pgpYjnmsp6Rne.pgp
Description: PGP signature
_______________________________________________ Xtla-el-dev mailing list [email protected] https://mail.gna.org/listinfo/xtla-el-dev
