Using efs-1.6 and FSF Emacs 19.23 (and 24?)

hamish (hamish@bnr.ca)
Tue, 31 May 1994 13:10:00 -0400 

After applying the following patch to efs-1.6/efs-19.el, I was able to
use efs-1.6 with FSF Emacs 19.23.  I assume that the same patch will
be required for 19.24.  I suspect that after applying this patch, efs
will be unusable with earlier versions of FSF Emacs 19.

*** efs-1.6/efs-19.el	Mon Feb 21 12:13:05 1994
--- efs/efs-19.el	Tue May 31 10:48:44 1994
***************
*** 130,136 ****
  (defun efs-19-verify-visited-file-modtime (buffer)
    "Documented as original"
    (let* ((file (buffer-file-name buffer))
! 	 (handler (and file (find-file-name-handler file))))
      (if handler
  	(funcall handler 'verify-visited-file-modtime buffer)
        (let (file-name-handler-alist)
--- 130,136 ----
  (defun efs-19-verify-visited-file-modtime (buffer)
    "Documented as original"
    (let* ((file (buffer-file-name buffer))
! 	 (handler (and file (find-file-name-handler file 'verify-visited-file-modtime))))
      (if handler
  	(funcall handler 'verify-visited-file-modtime buffer)
        (let (file-name-handler-alist)
***************
*** 142,148 ****
  (defun efs-19-clear-visited-file-modtime ()
    "Documented as original"
    (let ((handler (and buffer-file-name
! 		      (find-file-name-handler buffer-file-name))))
      (if handler
  	(funcall handler 'clear-visited-file-modtime)
        (let (file-name-handler-alist)
--- 142,148 ----
  (defun efs-19-clear-visited-file-modtime ()
    "Documented as original"
    (let ((handler (and buffer-file-name
! 		      (find-file-name-handler buffer-file-name 'clear-visited-file-modtime))))
      (if handler
  	(funcall handler 'clear-visited-file-modtime)
        (let (file-name-handler-alist)
***************
*** 154,160 ****
  (defun efs-19-backup-buffer ()
    "Documented as original"
    (if buffer-file-name
!       (let ((handler (find-file-name-handler buffer-file-name)))
  	(if handler
  	    (funcall handler 'backup-buffer)
  	  (let (file-name-handler-alist)
--- 154,160 ----
  (defun efs-19-backup-buffer ()
    "Documented as original"
    (if buffer-file-name
!       (let ((handler (find-file-name-handler buffer-file-name 'backup-buffer)))
  	(if handler
  	    (funcall handler 'backup-buffer)
  	  (let (file-name-handler-alist)
***************
*** 165,171 ****
  (defun efs-19-set-visited-file-modtime (&optional time)
    "Documented as original"
    (if buffer-file-name
!       (let ((handler (find-file-name-handler buffer-file-name)))
  	(if handler
  	    (funcall handler 'set-visited-file-modtime time)
  	  (let (file-name-handler-alist)
--- 165,171 ----
  (defun efs-19-set-visited-file-modtime (&optional time)
    "Documented as original"
    (if buffer-file-name
!       (let ((handler (find-file-name-handler buffer-file-name 'set-visited-file-modtime)))
  	(if handler
  	    (funcall handler 'set-visited-file-modtime time)
  	  (let (file-name-handler-alist)
***************
*** 176,182 ****
  
  (defun efs-19-backup-extract-version (filename)
    "Documented as original"
!   (let ((handler (find-file-name-handler (expand-file-name filename))))
      (if handler
  	(funcall handler 'backup-extract-version filename)
        (let (file-name-handler-alist)
--- 176,182 ----
  
  (defun efs-19-backup-extract-version (filename)
    "Documented as original"
!   (let ((handler (find-file-name-handler (expand-file-name filename) 'backup-extract-version)))
      (if handler
  	(funcall handler 'backup-extract-version filename)
        (let (file-name-handler-alist)
***************
*** 186,192 ****
  
  (defun efs-19-create-file-buffer (file)
    "Documented as original"
!   (let ((handler (find-file-name-handler file)))
      (if handler
  	(funcall handler 'create-file-buffer file)
        (let (file-name-handler-alist)
--- 186,192 ----
  
  (defun efs-19-create-file-buffer (file)
    "Documented as original"
!   (let ((handler (find-file-name-handler file 'create-file-buffer)))
      (if handler
  	(funcall handler 'create-file-buffer file)
        (let (file-name-handler-alist)
***************
*** 196,202 ****
  
  (defun efs-19-abbreviate-file-name (filename)
    "Documented as original"
!   (let ((handler (find-file-name-handler filename)))
      (if handler
  	(funcall handler 'abbreviate-file-name filename)
        (let (file-name-handler-alist)
--- 196,202 ----
  
  (defun efs-19-abbreviate-file-name (filename)
    "Documented as original"
!   (let ((handler (find-file-name-handler filename 'abbreviate-file-name)))
      (if handler
  	(funcall handler 'abbreviate-file-name filename)
        (let (file-name-handler-alist)
***************
*** 216,227 ****
       (list (read-file-name "Recover file: "
  			   file-dir nil nil file-name))))
    (let* ((file (expand-file-name file))
! 	 (handler (find-file-name-handler file)))
      (if handler
  	(funcall handler 'recover-file file)
        (let* ((file-name (let ((buffer-file-name file))
  			  (make-auto-save-file-name)))
! 	     (handler (find-file-name-handler file-name)))
  	(if handler
  	    (funcall handler 'recover-file file)
  	  (efs-real-recover-file file))))))
--- 216,227 ----
       (list (read-file-name "Recover file: "
  			   file-dir nil nil file-name))))
    (let* ((file (expand-file-name file))
! 	 (handler (find-file-name-handler file 'recover-file)))
      (if handler
  	(funcall handler 'recover-file file)
        (let* ((file-name (let ((buffer-file-name file))
  			  (make-auto-save-file-name)))
! 	     (handler (find-file-name-handler file-name 'recover-file)))
  	(if handler
  	    (funcall handler 'recover-file file)
  	  (efs-real-recover-file file))))))