autocompletion error

[alex]

Hello,

Auto completition seems to work fine on some of computers, and does
not work on others.

I have searched archives, found at least one message points to same problem:
 http://lists.gnu.org/archive/html/tramp-devel/2007-03/msg00016.html

I am running tramp 2.1.4 with emacs-cvs-22.0.9999-r2(22.0.93)(10:39:13 
13.02.2007)

Debugger entered--Lisp error: (error "Not enough arguments for format string")
  message("tramp: Wrong number of arguments: (lambda (filename directory) \"Like 
`file-name-completion' for tramp files.\" (unless (tramp-tramp-file-p directory) (error 
\"tramp-handle-file-name-completion invoked on non-tramp directory `%s'\" directory)) 
(try-completion filename (mapcar (lambda (x) (cons x nil)) (file-name-all-completions filename directory)))), 
3")
  apply(message "tramp: Wrong number of arguments: (lambda (filename directory) \"Like 
`file-name-completion' for tramp files.\" (unless (tramp-tramp-file-p directory) (error 
\"tramp-handle-file-name-completion invoked on non-tramp directory `%s'\" directory)) 
(try-completion filename (mapcar (lambda (x) (cons x nil)) (file-name-all-completions filename directory)))), 
3" nil)
  (progn (apply (quote message) (concat "tramp: " fmt-string) args) (when 
tramp-debug-buffer (apply ... ... args)))
  (if (<= level tramp-verbose) (progn (apply ... ... args) (when 
tramp-debug-buffer ...)))
  (when (<= level tramp-verbose) (apply (quote message) (concat "tramp: " 
fmt-string) args) (when tramp-debug-buffer (apply ... ... args)))
  tramp-message(1 "Wrong number of arguments: (lambda (filename directory) \"Like 
`file-name-completion' for tramp files.\" (unless (tramp-tramp-file-p directory) (error 
\"tramp-handle-file-name-completion invoked on non-tramp directory `%s'\" directory)) 
(try-completion filename (mapcar (lambda (x) (cons x nil)) (file-name-all-completions filename directory)))), 
3")
  apply(tramp-message 1 "Wrong number of arguments: (lambda (filename directory) \"Like 
`file-name-completion' for tramp files.\" (unless (tramp-tramp-file-p directory) (error 
\"tramp-handle-file-name-completion invoked on non-tramp directory `%s'\" directory)) 
(try-completion filename (mapcar (lambda (x) (cons x nil)) (file-name-all-completions filename directory)))), 
3" nil)
  (save-current-buffer (set-buffer (tramp-get-buffer method user host)) (apply 
(quote tramp-message) level fmt-string args))
  (with-current-buffer (tramp-get-buffer method user host) (apply (quote 
tramp-message) level fmt-string args))
  (progn (with-current-buffer (tramp-get-buffer method user host) (apply ... 
level fmt-string args)))
  (if (get-buffer (tramp-buffer-name method user host)) (progn 
(with-current-buffer ... ...)))
  (when (get-buffer (tramp-buffer-name method user host)) (with-current-buffer 
(tramp-get-buffer method user host) (apply ... level fmt-string args)))
  tramp-message-for-buffer("ssh" "alex" "appserver" 1 "Wrong number of arguments: (lambda (filename 
directory) \"Like `file-name-completion' for tramp files.\" (unless (tramp-tramp-file-p directory) (error 
\"tramp-handle-file-name-completion invoked on non-tramp directory `%s'\" directory)) (try-completion filename (mapcar (lambda 
(x) (cons x nil)) (file-name-all-completions filename directory)))), 3")
  (let* ((v ...) (method ...) (user ...) (host ...) (localname ...)) 
(tramp-message-for-buffer method user host 1 (error-message-string var)))
  (with-parsed-tramp-file-name filename nil (tramp-message-for-buffer method 
user host 1 (error-message-string var)))
  (condition-case var (apply foreign operation args) (error 
(with-parsed-tramp-file-name filename nil ...) (signal ... ...)))
  (cond (foreign (condition-case var ... ...)) (t (tramp-run-real-handler 
operation args)))
  (let* ((filename ...) (foreign ...)) (cond (foreign ...) (t ...)))
  (progn (let* (... ...) (cond ... ...)))
  (unwind-protect (progn (let* ... ...)) (set-match-data 
save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal ...)))
  (save-match-data (let* (... ...) (cond ... ...)))
  tramp-file-name-handler(file-name-completion "" 
"/ssh:address@hidden:/home/alex/.adobe/" file-exists-p)
  read-file-name-internal("/ssh:address@hidden:/home/alex/.adobe/" 
"/ssh:address@hidden:/home/alex/.adobe/" nil)
  minibuffer-complete()
  call-interactively(minibuffer-complete)
  read-file-name("Find file: " nil "/ssh:address@hidden:/home/alex/.adobe/" nil)
  find-file-read-args("Find file: " nil)
  call-interactively(find-file)

--
Alex V. Koval
http://www.halogen-dg.com/
http://www.zwarehouse.org/