eshell/cp not able to use Tramp syntax ?

[Bastien]

Hi all,

someone encountered a problem when trying to use eshell/cp to copy files
to a destination directory like "/[user@ssh-server]public_html/"

The problem was mentionned on emacs-orgmode mailing list but I think
it's not related to org-publish.el at all.

Can someone knowing eshell/Tramp digg this a bit further?

See below for the original report.

Thanks,

========================================================================
I've tried to publish the following org file:

        blah blah blah
        [[file:test.c][test]]

where test.c is just:

        int main(void) {return 0;}


I've the following setup in my init.el:

(setq org-publish-project-alist
      `(.../...
        ("TESTorg"
         :base-directory "~/Devel/Emacs/Org/"
         :publishing-directory
         "/[puitg@ssh-leibniz.imag.fr]public_html/")
        ("TESTsources"
         :base-directory "~/Devel/Emacs/Org/"
         :base-extension "c"
         :publishing-directory
         "/[puitg@ssh-leibniz.imag.fr]public_html/"
         :publishing-function org-publish-attachment)
        ("TEST" :components ("TESTorg" "TESTsources"))))

After hitting C-c C-e  P, the connexion  is established and a bunch of
tramp  messages  are displayed  in the   minibuffer. The  org file  is
correctly exported and published, but the source file attached is not:
at some point, I get a  wrong type arg error: number-char-or-marker-p,
(0 . 7498).

Oh, and I can't use EFS because I need ssh.

Backtrace, and system information below.


-- Frnçs


Debugger entered--Lisp error: (wrong-type-argument number-char-or-marker-p (0 . 
7498))
  eshell-shuffle-files("cp" "copying" ("/home/fran/Devel/Emacs/Org/test.c") 
"/[puitg@ssh-leibniz.imag.fr]public_html/" copy-file nil t nil)
  (let ((target ...) ange-cache) (setcdr (last args 2) nil) 
(eshell-shuffle-files "cp" "copying" args target (quote copy-file) nil (if ... 
1 ...) preserve))
  (if (and t (string-match eshell-tar-regexp ...) (or ... ...)) 
(eshell-shorthand-tar-command "cp" args) (let (... ange-cache) (setcdr ... nil) 
(eshell-shuffle-files "cp" "copying" args target ... nil ... preserve)) nil)
  (let ((len ...)) (if (or ... ...) (error "%s: missing destination file or 
directory" "cp")) (if (= len 1) (nconc args ...)) (setq args 
(eshell-stringify-list ...)) (if (and t ... ...) (eshell-shorthand-tar-command 
"cp" args) (let ... ... ...) nil))
  (eshell-mvcpln-template "cp" "copying" (quote copy-file) 
eshell-cp-interactive-query eshell-cp-overwrite-files preserve)
  (progn (if archive (setq preserve t no-dereference t recursive t)) 
(eshell-mvcpln-template "cp" "copying" (quote copy-file) 
eshell-cp-interactive-query eshell-cp-overwrite-files preserve))
  eval((progn (if archive (setq preserve t no-dereference t recursive t)) 
(eshell-mvcpln-template "cp" "copying" (quote copy-file) 
eshell-cp-interactive-query eshell-cp-overwrite-files preserve)))
  byte-code("..." [body-forms name last-value options args nil 0 :show-usage 
throw eshell-usage eshell-show-usage eshell-process-args eval append progn] 5)
  [...]
  eshell-do-opt("cp" ((?a "archive" nil archive "same as -dpR") (?d 
"no-dereference" nil no-dereference "preserve links") (?f "force" nil force 
"remove existing destinations, never prompt") (?i "interactive" nil interactive 
"request confirmation if target already exists") (?n "preview" nil preview 
"don't change anything on disk") (?p "preserve" nil preserve "preserve file 
attributes if possible") (?R "recursive" nil recursive "copy directories 
recursively") (?v "verbose" nil verbose "explain what is being done") (nil 
"help" nil nil "show this usage screen") :preserve-args :external "cp" 
:show-usage :usage "[OPTION]... SOURCE DEST\n   or:  cp [OPTION]... SOURCE... 
DIRECTORY\nCopy SOURCE to DEST, or multiple SOURCE(s) to DIRECTORY.") ((if 
archive (setq preserve t no-dereference t recursive t)) (eshell-mvcpln-template 
"cp" "copying" (quote copy-file) eshell-cp-interactive-query 
eshell-cp-overwrite-files preserve)))
  eshell/cp("/home/fran/Devel/Emacs/Org/test.c" 
"/[puitg@ssh-leibniz.imag.fr]public_html/")
  (let ((destination ...)) (eshell/cp filename destination))
  org-publish-attachment((:base-directory "~/Devel/Emacs/Org/" :base-extension 
"c" :publishing-directory "/[puitg@ssh-leibniz.imag.fr]public_html/" 
:publishing-function org-publish-attachment) 
"/home/fran/Devel/Emacs/Org/test.c")
  funcall(org-publish-attachment (:base-directory "~/Devel/Emacs/Org/" 
:base-extension "c" :publishing-directory 
"/[puitg@ssh-leibniz.imag.fr]public_html/" :publishing-function 
org-publish-attachment) "/home/fran/Devel/Emacs/Org/test.c")
  (if (listp publishing-function) (mapc (lambda ... ...) publishing-function) 
(funcall publishing-function plist f))
  (progn (if (listp publishing-function) (mapc ... publishing-function) 
(funcall publishing-function plist f)) (org-publish-update-timestamp f))
  (if (org-publish-needed-p f) (progn (if ... ... ...) 
(org-publish-update-timestamp f)))
  (when (org-publish-needed-p f) (if (listp publishing-function) (mapc ... 
publishing-function) (funcall publishing-function plist f)) 
(org-publish-update-timestamp f))
  (while (setq f (pop files)) (when (org-publish-needed-p f) (if ... ... ...) 
(org-publish-update-timestamp f)))
  (let ((files ...)) (while (setq f ...) (when ... ... ...)))
  (let* ((exclude-regexp ...) (publishing-function ...) (index-p ...) 
(index-filename ...) (index-function ...) (preparation-function ...) (f nil)) 
(when preparation-function (funcall preparation-function)) (if index-p (funcall 
index-function plist index-filename)) (let (...) (while ... ...)))
  org-publish-plist((:base-directory "~/Devel/Emacs/Org/" :base-extension "c" 
:publishing-directory "/[puitg@ssh-leibniz.imag.fr]public_html/" 
:publishing-function org-publish-attachment))
  mapcar(org-publish-plist ((:base-directory "~/Devel/Emacs/Org/" 
:publishing-directory "/[puitg@ssh-leibniz.imag.fr]public_html/") 
(:base-directory "~/Devel/Emacs/Org/" :base-extension "c" :publishing-directory 
"/[puitg@ssh-leibniz.imag.fr]public_html/" :publishing-function 
org-publish-attachment)))
  (let ((org-publish-use-timestamps-flag ...) (plists ...)) (mapcar (quote 
org-publish-plist) plists))
  (save-window-excursion (let (... ...) (mapcar ... plists)))
  org-publish("TEST")
  (let* ((project-name ...) (org-publish-use-timestamps-flag ...)) (if (not 
project-name) (error ...)) (org-publish project-name))
  (save-window-excursion (let* (... ...) (if ... ...) (org-publish 
project-name)))
  org-publish-current-project(nil)
  call-interactively(org-publish-current-project)
  (if (setq ass (assq r2 cmds)) (call-interactively (cdr ass)) (error "No 
command associated with key %c" r1))
  (let ((help "[t]   insert the export option template\n[v]   limit export to 
visible part of outline tree\n\n[a] export as ASCII\n\n[h] export as HTML\n[H] 
export as HTML to temporary buffer\n[R] export region as HTML\n[b] export as 
HTML and browse immediately\n[x] export as XOXO\n\n[l] export as LaTeX\n[L] 
export as LaTeX to temporary buffer\n\n[i] export current file as iCalendar 
file\n[I] export all agenda files as iCalendar files\n[c] export agenda files 
into combined iCalendar file\n\n[F] publish current file\n[P] publish current 
project\n[X] publish... (project will be prompted for)\n[A] publish all 
projects") (cmds ...) r1 r2 ass) (save-window-excursion (delete-other-windows) 
(with-output-to-temp-buffer "*Org Export/Publishing Help*" ...) (message 
"Select command: ") (setq r1 ...)) (setq r2 (if ... ... r1)) (if (setq ass ...) 
(call-interactively ...) (error "No command associated with key %c" r1)))
  (lambda (&optional arg) (interactive) (let (... ... r1 r2 ass) 
(save-window-excursion ... ... ... ...) (setq r2 ...) (if ... ... ...)))()
  call-interactively(org-export)

========================================================================

-- 
Bastien