EFS 1.12 bug: bug fix for efs-call-compress

Andy Norman (ange@hplb.hpl.hp.com)
Mon, 26 Sep 1994 13:59:16 +0100


Bug team.

There was a bug in efs-call-compress.  Attempting to use this function on a
host that didn't support site-exec caused an error when attempting to
de-reference the variable 'ok'.  The patch below seems to cure this.

--- efs-dired.el~	Mon Sep  5 00:19:18 1994
+++ efs-dired.el	Mon Sep 26 13:54:26 1994
@@ -10,7 +10,7 @@
 ;;               Andy Norman <ange@hplb.hpl.hp.com>,
 ;;               Sandy Rutherford <sandy@ibm550.sissa.it>
 ;; Created:      Throughout the ages.
-;; Modified:     Sun Sep  4 23:45:04 1994 by sandy on ibm550
+;; Modified:     Mon Sep 26 13:54:26 1994 (Andy Norman) ange@hplb.hpl.hp.com
 ;; Language:     Emacs-Lisp
 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1237,7 +1237,7 @@
 					  (make-local-variable
 					   'efs-call-compress-nowait)))
 				 (ok (symbol-value
-				      (make-local-variable 'ok)))
+				      (make-local-variable 'efs-call-compress-ok)))
 				 (uncompress
 				  (symbol-value
 				   (make-local-variable


Emacs  : GNU Emacs 19.11 XEmacs Lucid of Fri Sep 23 1994 on cuckoo.hpl.hp.com (hpux)
Package: efs

current state:
==============
(setq
 efs-auto-version "1.12/1.6"
 efs-cu-version "1.12/1.7"
 efs-defun-version "1.12/1.3"
 efs-dired-version "1.12/1.25"
 efs-fnh-version "1.12/1.1"
 efs-l19.11-version "1.12/1.1"
 efs-netrc-version "1.12/1.7"
 efs-ovwrt-version "1.12/1.5"
 efs-report-version "1.12/1.7"
 efs-version "1.12/1.43"
 efs-36-bit-binary-file-name-regexp nil
 efs-anonymous-umask nil
 efs-auto-save 1
 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 t
 efs-hash-mark-size nil
 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 super-dumb-unix)
 efs-max-ftp-buffer-size 3000
 efs-maximize-idle nil
 efs-message-interval 0
 efs-nlist-cmd "nlist"
 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-retry-time 5
 efs-root-umask nil
 efs-send-hash t
 efs-short-circuit-to-remote-root nil
 efs-suppress-abort-recursive-edit-and-then nil
 efs-text-file-name-regexp ".*"
 efs-treat-crlf-as-nl t
 efs-umask 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 "\\.hp\\.com$\\|^[^.]*$"
 efs-ftp-local-host-regexp ".*"
 efs-gateway-host "hplose"
 efs-gateway-type nil
 reporter-version "2.12"
 features '(sendmail
	    mh-comp
	    reporter
	    efs-dired
	    passwd
	    efs-netrc
	    efs-defun
	    efs
	    efs-report
	    diff
	    dired-diff
	    comint
	    ring
	    dired-shell
	    dired-xemacs
	    dired
	    ange-x11
	    bbdb-mhe
	    bbdb
	    byte-optimize
	    byte-compile
	    gnuserv
	    ange-mwm
	    nntp
	    chat
	    gnus
	    ange-gnus
	    supercite
	    regi
	    mail-utils
	    mh-utils
	    mh-e
	    ange-mh
	    dos-mode
	    worklog
	    auto-save
	    view
	    default-dir
	    backquote
	    efs-cu
	    efs-l19\.11
	    efs-fnh
	    efs-ovwrt
	    efs-auto
	    header
	    ange-crypt
	    ange-acts
	    gin-mode
	    ange-hooks
	    ange-keys
	    ange-defuns
	    ange-auto
	    ange-vars
	    emacs-type
	    xselect
	    x-mouse
	    mode-motion
	    mouse
	    x-iso8859-1
	    x-faces
	    xpm
	    dialog
	    font-menu
	    menubar
	    screen
	    itimer
	    lisp-float-type
	    cc-mode
	    lisp-mode
	    iso8859-1
	    )
 )