Re: [jgd@lanl.gov] I think the xemacs FTP package directory is fouled up...
>>>> "APA" == Adrian Aichner
<aichner(a)ecf.teradyne.com> writes:
>>>>> "Michael" == Michael Sperber
<sperber(a)informatik.uni-tuebingen.de> writes:
>>>> "APA" == Adrian Aichner
<aichner(a)ecf.teradyne.com> writes:
>>>>> "MS" ==
Michael Sperber <sperber(a)informatik.uni-tuebingen.de> writes:
>>>> "APA" == Adrian Aichner
<aichner(a)ecf.teradyne.com> writes:
APA> This problem is still alive and
kicking.
APA> Unfortunately I don't have time to look into it.
MS> I believe I've solved it, but I haven't finished testing yet. (The
MS> patch posted here awhile ago doesn't cut it.)
APA> I realize my little patch wasn't really a solution.
APA> Yell if you need a guinea pig on NT, Michael.
Michael> Thanks. Here is the fix:
APA> Hi Michael,
APA> after applying your patch, byte-compiling efs.el, and starting a fresh
APA> (emacs-version)
APA> "XEmacs 21.1 (patch 11) \"Carlsbad Caverns\" [Lucid]
(i386-pc-win32)
APA> of Wed Jul 19 2000 on ZJ75T"
APA> I get this error when trying to
APA> M-x pui-list-packages
APA> with xemacs.org selected:
APA> Opening input file: No such file or directory,
APA> d:\anonymous＠ftp.xemacs.org:\pub\xemacs\packages\package-index.LATEST.pgp
Here a lisp *Backtrace* for another attempt:
Signaling: (file-error "Opening input file" "No such file or
directory"
"c:\\anonymous＠ftp.xemacs.org:\\pub\\xemacs\\packages\\package-index.LATEST.pgp")
signal(file-error ("Opening input file" "No such file or directory"
"c:\\anonymous＠ftp.xemacs.org:\\pub\\xemacs\\packages\\package-index.LATEST.pgp"))
byte-code("..." [run-hook-with-args insert-file-contents-error-hook filename
visit err signal] 5)
insert-file-contents("/anonymous＠ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.pgp"
nil nil nil nil)
insert-file-contents-literally("/anonymous＠ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.pgp")
(save-excursion (set-buffer buf) (erase-buffer buf) (insert-file-contents-literally
db-file) (package-get-update-base-from-buffer buf) (if (file-remote-p db-file)
(package-get-maybe-save-index db-file)))
)
(unwind-protect (save-excursion (set-buffer buf) (erase-buffer buf)
(insert-file-contents-literally db-file) (package-get-update-base-from-buffer buf) (if ...
...)) (kill-buffer buf))
)
(let ((buf ...)) (unwind-protect (save-excursion ... ... ... ... ...) (kill-buffer
buf)))
)
package-get-update-base(nil t)
(if (and (boundp ...) package-get-base (or ... package-get-was-current)) nil
(package-get-update-base nil force-current))
)
(unless (and (boundp ...) package-get-base (or ... package-get-was-current))
(package-get-update-base nil force-current))
)
package-get-require-base(t)
(lambda nil "List all packages and package information.\nThe package name, version,
and description are displayed. From the displayed\nbuffer, the user can see which
packages are installed, which are not, and\nwhich are out-of-date (a newer version is
available). The user can then\nselect packages for installation via the keyboard or
mouse." (interactive) (package-get-require-base t) (let (... ... start) (message
"Creating package list ...") (sit-for 0) (set-buffer outbuf) (setq
buffer-read-only nil) (buffer-disable-undo outbuf) (erase-buffer outbuf)
(kill-all-local-variables) (use-local-map pui-display-keymap) (setq major-mode ...) (setq
mode-name "Packages") (setq truncate-lines t) (unless package-get-remote ...)
(if pui-list-verbose ... ...) (insert sep-string) (setq start ...) (mapcar ... ...)
(insert sep-string) (insert ...) (set-buffer-modified-p nil) (setq buffer-read-only t)
(pop-to-buffer outbuf) (delete-other-windows) (goto-char start) (setq
pui-selected-packages nil) (setq pui-deleted-packages nil) (when ... ... ... ...)
(clear-message)))()
call-interactively(pui-list-packages)
APA> Will I have to formally build and install the efs package?
APA> Is patching and byte-compiling of efs.el, using it in a newly started
APA> XEmacs enough to test this?
APA> Best regards,
APA> Adrian
Michael> Index: efs.el
Michael> ===================================================================
Michael> RCS file: /afs/informatik.uni-tuebingen.de/pu/cvs/elisp/efs/efs.el,v
Michael> retrieving revision 1.58
Michael> retrieving revision 1.59
Michael> diff -u -c -r1.58 -r1.59
Michael> *** efs.el 2000/04/15 13:33:34 1.58
Michael> --- efs.el 2000/07/16 11:01:35 1.59
Michael> ***************
Michael> *** 4689,4695 ****
Michael> switches file lsargs noparse parse noerror
Michael> msg nowait cont)
Michael> (if result
Michael> ! (efs-error host user (format "CWD %s failed: " line))
Michael> (efs-send-cmd
Michael> host user
Michael> (list (if nlist 'nlist 'dir) "" (cdr temp) lsargs)
Michael> --- 4689,4698 ----
Michael> switches file lsargs noparse parse noerror
Michael> msg nowait cont)
Michael> (if result
Michael> ! (if noerror
Michael> ! (if cont
Michael> ! (efs-call-cont cont nil))
Michael> ! (efs-error host user (format "CWD %s failed: "
line)))
Michael> (efs-send-cmd
Michael> host user
Michael> (list (if nlist 'nlist 'dir) "" (cdr temp) lsargs)
Michael> --
Michael> Cheers =8-} Mike
Michael> Friede, Völkerverständigung und überhaupt blabla