patch for efs-l19.10.el
sandy@ibm550.sissa.it
Wed, 15 Jun 1994 09:54:29 +0200
Here is a patch to fix the wrong number of args in
abbreviate-file-name problem with Lucids Emacs 19.10 and efs 18.
The bug was caught by Damon Lipparelli. Thanks.
-----------------cut here---------------------------------------
*** /u/fm/sandy/efs/tmp/efs-l19.10.el~ Wed Jun 15 09:47:50 1994
--- /u/fm/sandy/efs/tmp/efs-l19.10.el Wed Jun 15 09:50:22 1994
***************
*** 8,14 ****
;; Description: efs support for lucid emacs, versions 19.10 and later.
;; Author: Sandy Rutherford <sandy@ibm550.sissa.it>
;; Created: Mon May 23 21:48:42 1994 by sandy on ibm550
! ;; Modified: Thu Jun 2 16:49:20 1994 by sandy on ibm550
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 8,14 ----
;; Description: efs support for lucid emacs, versions 19.10 and later.
;; Author: Sandy Rutherford <sandy@ibm550.sissa.it>
;; Created: Mon May 23 21:48:42 1994 by sandy on ibm550
! ;; Modified: Wed Jun 15 09:50:21 1994 by sandy on ibm550
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
***************
*** 225,237 ****
(efs-overwrite-fn "efs" 'create-file-buffer 'efs-l19\.10-create-file-buffer)
! (defun efs-l19\.10-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)
! (efs-real-abbreviate-file-name filename)))))
(efs-overwrite-fn "efs" 'abbreviate-file-name
'efs-l19\.10-abbreviate-file-name)
--- 225,237 ----
(efs-overwrite-fn "efs" 'create-file-buffer 'efs-l19\.10-create-file-buffer)
! (defun efs-l19\.10-abbreviate-file-name (filename &optional hack-homedir)
"Documented as original"
(let ((handler (find-file-name-handler filename 'abbreviate-file-name)))
(if handler
! (funcall handler 'abbreviate-file-name filename hack-homedir)
(let (file-name-handler-alist)
! (efs-real-abbreviate-file-name filename hack-homedir)))))
(efs-overwrite-fn "efs" 'abbreviate-file-name
'efs-l19\.10-abbreviate-file-name)