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

[Daniel Serodio]

On Wed, 2002-07-17 at 11:43, Kai Großjohann wrote:
> Daniel Serodio <address@hidden> writes:
> 
> >   signal(wrong-number-of-arguments ((lambda (directory &optional full
> > match nosort) "Like `directory-files' for tramp files." (let ... ... ...
> > ... ... ... ... result)) 5))
> >   byte-code("..." [buf data kill-buffer signal] 3)
> >   find-file-noselect("/[alicia]/tmp/teste")
> 
> The byte-code is interesting.  Find out where find-file-noselect is
> defined and do M-x load-file RET on the corresponding *.el file (not
> the *.elc file).  Then you should get a better backtrace.
> 
> kai

        I loaded files.el (instead of .elc) and got the following backtrace:

Signaling: (wrong-number-of-arguments (lambda (directory &optional full
match nosort) "Like `directory-files' for tramp files." (let ((v
(tramp-dissect-file-name (tramp-handle-expand-file-name directory)))
multi-method method user host path result x) (setq multi-method
(tramp-file-name-multi-method v)) (setq method (tramp-file-name-method
v)) (setq user (tramp-file-name-user v)) (setq host
(tramp-file-name-host v)) (setq path (tramp-file-name-path v))
(save-excursion (tramp-barf-unless-okay multi-method method user host
(concat "cd " (tramp-shell-quote-argument path)) nil (quote file-error)
"tramp-handle-directory-files: couldn't `cd %s'"
(tramp-shell-quote-argument path)) (tramp-send-command multi-method
method user host (concat (tramp-get-ls-command multi-method method user
host) " -a | cat")) (tramp-wait-for-output) (goto-char (point-max))
(while (zerop (forward-line -1)) (setq x (buffer-substring (point)
(tramp-line-end-position))) (when (or (not match) (string-match match
x)) (if full (push (concat (file-name-as-directory directory) x) result)
(push x result)))) (tramp-send-command multi-method method user host
"cd") (tramp-wait-for-output)) result)) 5)
  signal(wrong-number-of-arguments ((lambda (directory &optional full
match nosort) "Like `directory-files' for tramp files." (let ... ... ...
... ... ... ... result)) 5))
  (condition-case data (progn (set-buffer-major-mode buf) (set-buffer
buf) (erase-buffer) (condition-case nil ... ...) (unless
buffer-file-truename ...) (setq buffer-file-number number) (and
find-file-use-truenames ...) (setq default-directory ...) (and ... ...)
(if rawfile nil ... ...)) (t (kill-buffer buf) (signal ... ...)))
  (save-excursion (setq buf (create-file-buffer filename))
(condition-case data (progn ... ... ... ... ... ... ... ... ... ...) (t
... ...)))
  (if buf (or nowarn (verify-visited-file-modtime buf) (cond ... ...
...)) (save-excursion (setq buf ...) (condition-case data ... ...)))
  (let* ((buf ...) (truename ...) (number ...) (error nil)) (when (and
buf ... ...) (save-excursion ... ...)) (if buf (or nowarn ... ...)
(save-excursion ... ...)) buf)
  (if (file-directory-p filename) (if (and ... find-file-run-dired)
(dired-noselect ...) (error "%s is a directory" filename)) (let* (...
... ... ...) (when ... ...) (if buf ... ...) buf))
  find-file-noselect("/[alicia]/tmp/teste")
  (switch-to-buffer (find-file-noselect filename))
  (if codesys (let (...) (switch-to-buffer ...)) (switch-to-buffer
(find-file-noselect filename)))
  find-file("/[alicia]/tmp/teste" nil)
  call-interactively(find-file)

        Does it make any sense?

-- 
[]'s
Daniel Serodio