RE: Efs hacking.

> >>>>> "Kai" == Kai Grossjohann <[email protected]> writes:
> 
> Kai> "OCallaghan, Timothy (ELS)" <T.OCallaghan-dUsxN/C1/n1Wk0Htik3J/[email protected]> writes:
> 
> >> One other thing. Is it possible to configure efs to create local
> >> backup files of remote files? Angeftp allows this as far as i
> >> remember, and i have found it useful in the past to have local
> >> backups.
> 
> Kai> Emacs has a variable backup-directory-alist, which allows you to
> Kai> specify the location of the backup file, depending on 
> its name.  So
> Kai> you could say that backups of files matching "^[^:]+:/" are to be
> Kai> placed in /tmp, say.  I think XEmacs has a similar 
> feature, but the
> Kai> variable has a different name.
> 
> Great hint!  In fact, it's called the same in XEmacs.
> 

not realy, as i already have this set up i think:

(require 'backup-dir)
;; localize it for safety.
(make-variable-buffer-local 'backup-inhibited)
(setq bkup-backup-directory-info
      '(
                  (t "~/.xemacs/backups/" ok-create full-path prepend-name)
                  ("^/[^/:]+:" "~/.xemacs/backups/" 
                   ok-create full-path prepend-name) ; for efs ?
                ))
(setq delete-old-versions t
      kept-old-versions 1
      kept-new-versions 3
      version-control t)

It backs up most everything else, except the remote files, though i only
edit vms files remotly, at the moment, so it might be somethign to do with
the filenames.

And may i also present my first patch. It may not be neat, but fixes the
first directory listing problem for VMS. This is a patch against the Xemacs
NT current package:

;; File:         efs.el
;; Release:      $efs release: 1.22 $
;; Version:      #Revision: 1.91 $


with any luck i'll get the other ones soon. Its annoying being only able to
edit files in your home directory.


Tim.

------------------------------------------------------------------
***************
*** 3738,3749 ****
                                         ;; arg correctly.  This will
                                         ;; hopefully work in all
                                         ;; circumstances.
-                                          ;; did not work for vms, so
fixed.
                                         (if (string-equal cmd1 "")
!                                            (if (eq host-type 'vms)
!                                                  "\[\]"
!                                                  "\" \""
!                                                )
                                           (efs-quote-string host-type
cmd1))
                                         (efs-adjust-local-path cmd2))))
               ((setq cmd-string
--- 3738,3745 ----
                                         ;; arg correctly.  This will
                                         ;; hopefully work in all
                                         ;; circumstances.
                                         (if (string-equal cmd1 "")
!                                            "\" \""
                                           (efs-quote-string host-type
cmd1))
                                         (efs-adjust-local-path cmd2))))
               ((setq cmd-string