Related to why I wanted to go back to a previous tramp versiuon yesterday
was this problem:
However, now that I have upgraded xemacs to Debian's Sid version, I get
the error on the both CVS HEAD and a version from around Nov 29 (2.0.36)
A google search shows this has affected some other Xemacs user before,
more than a year ago, but a fix had made it into CVS. I notice that things
like (format-spec x `((?u . ,user)))) are still there in slightly differnt
forms, so I see no why this is happening again.
BTW, (locate-library format-spec) is returning the version from tramp CVS.
So the trace from CVS HEAD is shown below:
Signaling: (error "Invalid format character: ?m")
signal(error ("Invalid format character: ?m"))
cerror("Invalid format character: %s" ?m)
apply(cerror "Invalid format character: %s" ?m)
error("Invalid format character: %s" ?m)
(if val nil (error "Invalid format character: %s" spec))
(unless val (error "Invalid format character: %s" spec))
(let* ((num ...) (spec ...) (val ...)) (delete-region (1- ...) (match-end 0))
(unless val (error "Invalid format character: %s" spec)) (insert (format ... val)))
(cond ((eq ... ?%) (delete-char 1)) ((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)")
(let* ... ... ... ...)) (t (error "Invalid format string")))
(while (search-forward "%" nil t) (cond (... ...) (... ...) (t ...)))
(save-current-buffer (set-buffer temp-buffer) (insert format) (goto-char
(point-min)) (while (search-forward "%" nil t) (cond ... ... ...)) (buffer-string))
(with-current-buffer temp-buffer (insert format) (goto-char (point-min)) (while
(search-forward "%" nil t) (cond ... ... ...)) (buffer-string))
(unwind-protect (with-current-buffer temp-buffer (insert format) (goto-char ...)
(while ... ...) (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer
temp-buffer)))
(let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ...
... ...) (and ... ...)))
(with-temp-buffer (insert format) (goto-char (point-min)) (while (search-forward "%"
nil t) (cond ... ... ...)) (buffer-string))
format-spec("/[%m/[EMAIL PROTECTED]" ((109 . "rsync") (117 . "tconnors") (104 .
"hexane") (112 . "/home/office/tconnors/magellanic/work/flag")))
tramp-make-tramp-file-name(nil "rsync" "tconnors" "hexane"
"/home/office/tconnors/magellanic/work/flag")
tramp-handle-expand-file-name("/[rsync/[EMAIL
PROTECTED]/home/office/tconnors/magellanic/work/flag" nil)
apply(tramp-handle-expand-file-name ("/[rsync/[EMAIL
PROTECTED]/home/office/tconnors/magellanic/work/flag" nil))
tramp-sh-file-name-handler(expand-file-name "/[rsync/[EMAIL
PROTECTED]/home/office/tconnors/magellanic/work/flag" nil)
apply(tramp-sh-file-name-handler expand-file-name ("/[rsync/[EMAIL
PROTECTED]/home/office/tconnors/magellanic/work/flag" nil))
tramp-file-name-handler(expand-file-name "/[rsync/[EMAIL
PROTECTED]/home/office/tconnors/magellanic/work/flag" nil)
expand-file-name("/[rsync/[EMAIL
PROTECTED]/home/office/tconnors/magellanic/work/flag")
find-file-noselect("/[rsync/[EMAIL
PROTECTED]/home/office/tconnors/magellanic/work/flag")
find-file("/[rsync/[EMAIL PROTECTED]/home/office/tconnors/magellanic/work/flag" nil)
call-interactively(find-file)
--
TimC -- http://astronomy.swin.edu.au/staff/tconnors/
'It's amazing I won. I was running against peace, prosperity and incumbency.'
-- George W. Bush. June 14, 2001, to Swedish PM Goran Perrson,
unaware that a live television camera was still rolling.
_______________________________________________
Tramp-devel mailing list
[EMAIL PROTECTED]
http://mail.nongnu.org/mailman/listinfo/tramp-devel
