[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Invalid format character: ?m
From: |
Tim Connors |
Subject: |
Invalid format character: ?m |
Date: |
Thu, 1 Jan 2004 17:42:48 +1100 (EST) |
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/address@hidden" ((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/address@hidden/home/office/tconnors/magellanic/work/flag"
nil)
apply(tramp-handle-expand-file-name
("/[rsync/address@hidden/home/office/tconnors/magellanic/work/flag" nil))
tramp-sh-file-name-handler(expand-file-name
"/[rsync/address@hidden/home/office/tconnors/magellanic/work/flag" nil)
apply(tramp-sh-file-name-handler expand-file-name
("/[rsync/address@hidden/home/office/tconnors/magellanic/work/flag" nil))
tramp-file-name-handler(expand-file-name
"/[rsync/address@hidden/home/office/tconnors/magellanic/work/flag" nil)
expand-file-name("/[rsync/address@hidden/home/office/tconnors/magellanic/work/flag")
find-file-noselect("/[rsync/address@hidden/home/office/tconnors/magellanic/work/flag")
find-file("/[rsync/address@hidden/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.
- Invalid format character: ?m,
Tim Connors <=