Re: Help needed from XEmacs gurus (was: Invalid format character: ?m)

[Daniel Serodio]

On Sun, 2002-07-21 at 05:46, Kai Großjohann wrote:
> Pete Forman <address@hidden> writes:
> 
> > At 2002-07-17 16:45 +0200, Kai =?iso-8859-15?q?Gro=DFjohann?= wrote:
> >>Could you put that code in a file, byte-compile it, and then execute
> >>the byte-compiled code?  I hope it's still the same then.
> >
> > Yes, it is the same.
> 
> Well, I changed all occurrences of format-spec to use backticks now.
> I hope I didn't make too many mistakes.  And I hope it now works on
> XEmacs, too.
> 
> Daniel, could you test the most recent version from CVS (on Savannah)?
> 
> kai

        Using the lastest CVS version (2.0.2) I got the following error:

Signaling: (error "Not a tramp file name:
/[(scp)/(alicia)](/tmp/teste)")
  signal(error ("Not a tramp file name: /[(scp)/(alicia)](/tmp/teste)"))
  cerror("Not a tramp file name: %s" "/[(scp)/(alicia)](/tmp/teste)")
  apply(cerror "Not a tramp file name: %s"
"/[(scp)/(alicia)](/tmp/teste)")
  error("Not a tramp file name: %s" "/[(scp)/(alicia)](/tmp/teste)")
  (if (string-match (nth 0 tramp-file-name-structure) name) nil (error
"Not a tramp file name: %s" name))
  (unless (string-match (nth 0 tramp-file-name-structure) name) (error
"Not a tramp file name: %s" name))
  (progn (unless (string-match ... name) (error "Not a tramp file name:
%s" name)) (setq method (match-string ... name)) (if (and method ...)
(tramp-dissect-multi-file-name name) (let ... ... ...)))
  (unwind-protect (progn (unless ... ...) (setq method ...) (if ... ...
...)) (store-match-data match-data))
  (let ((match-data ...)) (unwind-protect (progn ... ... ...)
(store-match-data match-data)))
  (save-match-data (unless (string-match ... name) (error "Not a tramp
file name: %s" name)) (setq method (match-string ... name)) (if (and
method ...) (tramp-dissect-multi-file-name name) (let ... ... ...)))
  (let (method) (save-match-data (unless ... ...) (setq method ...) (if
... ... ...)))
  tramp-dissect-file-name("/[(scp)/(alicia)](/tmp/teste)")
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...)
(path ...)) (when (tramp-ange-ftp-file-name-p multi-method method)
(tramp-invoke-ange-ftp ... name nil)) (unless (file-name-absolute-p
path) (setq path ...)) (save-excursion (when ... ...) (let ... ...)))
  (with-parsed-tramp-file-name name nil (when
(tramp-ange-ftp-file-name-p multi-method method) (tramp-invoke-ange-ftp
... name nil)) (unless (file-name-absolute-p path) (setq path ...))
(save-excursion (when ... ...) (let ... ...)))
  (if (not (tramp-tramp-file-p name)) (tramp-run-real-handler (quote
expand-file-name) (list name nil)) (with-parsed-tramp-file-name name nil
(when ... ...) (unless ... ...) (save-excursion ... ...)))
  tramp-handle-expand-file-name("/[(scp)/(alicia)](/tmp/teste)"
"/home/daniel/")
  apply(tramp-handle-expand-file-name ("/[(scp)/(alicia)](/tmp/teste)"
"/home/daniel/"))
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (store-match-data
match-data))
  (let ((match-data ...)) (unwind-protect (progn ...) (store-match-data
match-data)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ...
args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...))
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler
operation args)))
  tramp-file-name-handler(expand-file-name
"/[(scp)/(alicia)](/tmp/teste)" "/home/daniel/")
  file-directory-p("/[(scp)/(alicia)](/tmp/teste)")
  find-file-noselect("/[alicia]/tmp/teste")
  find-file("/[alicia]/tmp/teste" nil)
  call-interactively(find-file)


-- 
[]'s
Daniel Serodio