Re: EFS 1.11 bug: efs causes bug in make-dir
sandy@ibm550.sissa.it
Fri, 2 Sep 1994 21:03:37 +0200
>>>>> On Fri, 2 Sep 1994 19:55:00 +1000,
Ken Robinson <Ken.Robinson@serg.cse.unsw.edu.au> said:
> Having installed efs 1.11 the standard command make-dir fails with an error as
> shown by the following traceback.
> Signalling: (void-function efs-19\.23-real-make-directory-internal)
Here's a patch. Thanks. This overload was added at the last minute
to solve a problem with make-directory-internal in fileio.c of 19.25.
I made a typo in doing this. That'll teach me to do things like this
at the last minute.
--sandy
============================================================
diff -c /u/fm/sandy/efs/1.11/efs-1.11/efs-19.23.el /u/fm/sandy/lisp/efs/efs-19.23.el.gz
*** /u/fm/sandy/efs/1.11/efs-1.11/efs-19.23.el Fri Sep 2 20:59:12 1994
--- /u/fm/sandy/lisp/efs/efs-19.23.el.gz Fri Sep 2 20:59:12 1994
***************
*** 3,15 ****
;;
;; File: efs-19.23.el
;; Release: $efs release: 1.11 $
! ;; Version: $Revision: 1.6 $
;; RCS:
;; Description: efs support for the original GNU Emacs from FSF,
;; version 19.23 and later
;; Author: Sandy Rutherford <sandy@ibm550.sissa.it>
;; Created: Mon May 23 21:44:12 1994 by sandy on ibm550
! ;; Modified: Thu Aug 25 17:38:28 1994 by sandy on ibm550
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 3,15 ----
;;
;; File: efs-19.23.el
;; Release: $efs release: 1.11 $
! ;; Version: $Revision: 1.7 $
;; RCS:
;; Description: efs support for the original GNU Emacs from FSF,
;; version 19.23 and later
;; Author: Sandy Rutherford <sandy@ibm550.sissa.it>
;; Created: Mon May 23 21:44:12 1994 by sandy on ibm550
! ;; Modified: Fri Sep 2 20:50:52 1994 by sandy on ibm550
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
***************
*** 26,32 ****
(defconst efs-19\.23-version
(concat (substring "$efs release: 1.11 $" 14 -2)
"/"
! (substring "$Revision: 1.6 $" 11 -2)))
(defvar buffer-file-truename)
--- 26,32 ----
(defconst efs-19\.23-version
(concat (substring "$efs release: 1.11 $" 14 -2)
"/"
! (substring "$Revision: 1.7 $" 11 -2)))
(defvar buffer-file-truename)
***************
*** 94,101 ****
(if handler
(funcall handler 'make-directory-internal dirname)
(let (file-name-handler-alist)
! (efs-19\.23-real-make-directory-internal dirname)))))
!
(efs-overwrite-fn "efs" 'make-directory-internal
'efs-19\.23-make-directory-internal)
--- 94,101 ----
(if handler
(funcall handler 'make-directory-internal dirname)
(let (file-name-handler-alist)
! (efs-real-make-directory-internal dirname)))))
!
(efs-overwrite-fn "efs" 'make-directory-internal
'efs-19\.23-make-directory-internal)