8:21 a.m.
Gruss bug team:
make_process_internal in XEmacs 21.5 loops until it can successfully
create a process:
for (i = 1; ; i++)
{
char suffix[10];
Lisp_Object tem = Fget_process (name1);
if (NILP (tem))
break;
sprintf (suffix, "<%d>", i);
name1 = concat2 (name, build_string (suffix));
}
This means that the process name you ask for might not be what you
get, modulo a suffix. This can confuse the heck out of EFS, which
becomes a factory for FTP processes.
I humbly suggest the following patch:
--- efs.el.orig Mon Oct 1 08:01:16 2001
+++ efs.el Mon Oct 1 08:03:32 2001
＠＠ -3233,10 +3233,11 ＠＠
(if case-fold (setq user (downcase user)))
(while (and (not found) list)
(setq name (process-name (car list)))
- (if (and (> (length name) len)
+ (if (and (>= (length name) len)
(string-equal (substring name 0 5) "*ftp ")
(string-equal
- (if case-fold (downcase (substring name 5)) (substring name 5))
+ (if case-fold (downcase (substring name 5 len))
+ (substring name 5 len))
(or fmt (setq fmt (format "%s＠%s*" user host))))
(memq (process-status (car list)) '(run open)))
(setq found (car list))
[As a backstop, perhaps it would be useful for EFS to limit the number
of times it forked ftp for a given request.]
Regards,
- Phil
Emacs : XEmacs 21.5 (beta3) "asparagus" [Lucid] (i686-pc-cygwin) of Tue Sep 25
2001 on PASTON
Package: efs
efs believes that the host type of localhost is unix.
current state:
==============
(setq
efs-cu-version "1.20pre2/1.12"
efs-defun-version "1.20pre2/1.1"
efs-dired-version "1.20pre2/1.32"
efs-dump-version "1.20pre2/1.2"
efs-fnh-version "1.20pre2/1.4"
efs-netrc-version "1.20pre2/1.2"
efs-ovwrt-version "1.20pre2/1.3"
efs-report-version "1.20pre2/1.10"
efs-version "1.20pre2/1.63"
efs-x19.15-version "1.20pre2/1.2"
efs-36-bit-binary-file-name-regexp nil
efs-anonymous-umask nil
efs-auto-save 0
efs-auto-save-remotely nil
efs-backup-by-copying nil
efs-binary-file-host-regexp nil
efs-binary-file-name-regexp
"\\.\\([zZ]\\|t?gz\\|lzh\\|arc\\|zip\\|zoo\\|ta[rz]\\|dvi\\|sit\\|ps\\|elc\\|gif\\|Z-part-..\\|tpz\\|exe\\|[jm]pg\\|TZ[a-z]?\\|lib\\)\\(~\\|~[0-9]+~\\)?$\\|\\.\\(ARC\\|ELC\\|TAGS\\|EXE\\|ZIP\\|DVI|ZOO\\|GIF\\|T?GZ\\|[JM]PG\\)\\([.#;][0-9]+\\)?$"
efs-buffer-name-case nil
efs-compute-remote-buffer-file-truename nil
efs-debug-ftp-connection nil
efs-ding-on-chmod-failure t
efs-ding-on-umask-failure t
efs-disable-netrc-security-check nil
efs-expire-ftp-buffers t
efs-ftp-buffer-expire-time nil
efs-ftp-program-args '("-i" "-n" "-g" "-v")
efs-ftp-prompt-regexp "^\\(ftp\\|Ftp\\|FTP\\)> *"
efs-gateway-ftp-prompt-regexp "^\\(ftp\\|Ftp\\|FTP\\)> *"
efs-gateway-hash-mark-size nil
efs-gateway-incoming-binary-hm-size nil
efs-generate-anonymous-password "philipa(a)bea.com"
efs-hash-mark-size 1024
efs-high-security-hosts nil
efs-incoming-binary-hm-size nil
efs-local-apollo-unix nil
efs-ls-cache-max 5
efs-make-backup-files '(unix sysV-unix bsd-unix next-unix apollo-unix
dumb-unix dumb-apollo-unix super-dumb-unix)
efs-max-ftp-buffer-size 3000
efs-maximize-idle nil
efs-message-interval 0
efs-nlist-cmd "ls"
efs-nslookup-on-connect nil
efs-nslookup-program "nslookup"
efs-prompt-for-transfer-type nil
efs-pty-check-retry-time 5
efs-pty-check-threshold 1000
efs-quote-local-paths nil
efs-retry-time 5
efs-root-umask nil
efs-send-hash t
efs-send-progress-off nil
efs-set-modtimes-synchronously nil
efs-short-circuit nil
efs-short-circuit-to-remote-root nil
efs-slash-local-paths nil
efs-suppress-abort-recursive-edit-and-then nil
efs-text-file-name-regexp ".*"
efs-treat-crlf-as-nl nil
efs-umask nil
efs-use-passive-mode nil
efs-verbose t
efs-verify-anonymous-modtime nil
efs-verify-modtime-host-regexp ".*"
efs-ftp-program-name "ftp"
efs-ftp-program-args '("-i" "-n" "-g" "-v")
efs-local-host-regexp nil
efs-ftp-local-host-regexp nil
efs-gateway-host nil
efs-gateway-type nil
reporter-version "3.35"
features '(mail-abbrevs sendmail reporter efs-report efs-dired dired-faces
dired-xemacs dired hyper-apropos passwd efs-x19\.15 efs-fnh
efs-ovwrt efs-netrc efs-defun efs efs-dump cc-mode cc-align
cc-cmds cc-engine cc-langs cc-menus imenu cl-specs edebug eval-reg
efs-cu find-func view-less view paren blink-paren pending-del
rsz-minibuf vm-mouse browse-url gnuserv mailcrypt rfc822 comint
ring cc-styles cc-vars cc-defs byte-optimize bytecomp byte-compile
savehist time w3-hot url-file url-cache url-http url-cookie
timezone w3 w3-menu url-news url-gw w3-script w3-jscript w3-elisp
w3-java cus-edit cus-load w3-emulate w3-auto w3-parse url mm
w3-display w3-mouse advice advice-preload w3-imap w3-widget
w3-vars w3-keyword wid-edit w3-cus url-parse url-vars css font
disp-table mule-sysdp w3-cfg w3-sysdp x-compose vc-hooks
scroll-in-place recent-files func-menu font-lock cus-face
xslt-process-autoloads xemacs-devel-autoloads
xemacs-base-autoloads w3-autoloads vm-autoloads
view-process-autoloads vc-autoloads tm-autoloads time-autoloads
textools-autoloads text-modes-autoloads texinfo-autoloads
supercite-autoloads strokes-autoloads speedbar-autoloads
sounds-wav-autoloads slider-autoloads sh-script-autoloads
sgml-autoloads semantic-autoloads scheme-autoloads psgml-autoloads
prog-modes-autoloads pcl-cvs-autoloads pc-autoloads
os-utils-autoloads net-utils-autoloads mule-base-autoloads
misc-games-autoloads mine-autoloads mailcrypt-autoloads
mail-lib-autoloads leim-autoloads jde-autoloads ispell-autoloads
igrep-autoloads hm--html-menus-autoloads gnus-autoloads
gnats-autoloads games-autoloads fsf-compat-autoloads
frame-icon-autoloads footnote-autoloads eudc-autoloads
eterm-autoloads emerge-autoloads elib-autoloads eieio-autoloads
eicq-autoloads efs-autoloads edt-autoloads edit-utils-autoloads
ediff-autoloads edebug-autoloads dired-autoloads debug-autoloads
cookie-autoloads cc-mode-autoloads calendar-autoloads
calc-autoloads c-support-autoloads auctex-autoloads apel-autoloads
-autoloads loadhist auto-show fontl-hooks x-iso8859-1 code-cmds
gutter-items menubar-items x-menubar dragdrop mode-motion mouse
itimer auto-save lisp-mode easymenu iso8859-1 page buff-menu
lib-complete help-nomule cus-file derived frame text-props
obsolete cus-start custom widget cl-extra mini-cl cl cl-19
packages backquote very-early-lisp postgresqlv7 postgresql
file-coding mswindows-scrollbars mswindows lucid-scrollbars
cut-buffer lucid-menubars athena-dialogs x c-balloon-help
tty-frames tty toolbar native-sound scrollbar unix-processes
multicast network-streams subprocesses modules
menu-accelerator-support menubar berkeley-db dbm md5 xemacs gutter
tiff png gif jpeg xpm xbm lisp-float-type cygwin32 dragdrop-api
dialog devices window-system base64)
)