NetNews Usenet Archive 1992 #27/NN_1992_27.iso/spool/gnu/emacs/sources/821

Text File | 1992-11-22 | 5.1 KB | 116 lines

Path: sparky!uunet!cs.utexas.edu!sun-barr!ames!pacbell.com!iggy.GW.Vitalink.COM!cs.widener.edu!dsinc!ub!galileo.cc.rochester.edu!prodigal.psych.rochester.edu!boris
From: [e-mail] (Boris "implementation" Goldowsky)
Newsgroups: gnu.emacs.sources
Subject: shadow-files, patch #2
Message-ID: <[e-mail]>
Date: 23 Nov 92 14:18:11 GMT
Sender: [e-mail]
Reply-To: [e-mail]
Organization: University of Rochester (Rochester, NY)
Lines: 103
Nntp-Posting-Host: prodigal.psych.rochester.edu

Here are a couple more bug fixes -- many thanks to Benjamin Liblit for
sending me not only problems but solutions!

The complete package should be available soon from the elisp archive.

*** shadow-files.el.dist    Thu Nov 19 12:06:11 1992
--- shadow-files.el    Mon Nov 23 09:10:16 1992
***************
*** 1,10 ****
! ;;;; shadow-files.el: For keeping identical copies of files on multiple hosts
! ;;;  By Boris Goldowsky, 11/92.  Bugs to <[e-mail]>.

! ;;; USE: put (require 'shadow-files) in your .emacs; add clusters and file
! ;;; groups with shadow-define-cluster, shadow-define-group, and
! ;;; shadow-define-regexp-group (see the documentation for these functions for
! ;;; information on how and when to use them).  After doing this once,
  ;;; everything should be automatic.
  ;;;     If you need to remove or edit a cluster or file group, you can edit the
  ;;; .shadows buffer, then type M-x shadow-read to load in the new information
--- 1,13 ----
! ;;;; shadow-files.el
! ;;; LCD Archive Entry:
! ;;; shadow-files|Boris Goldowsky|[e-mail]|
! ;;; Helps you keep identical copies of files on multiple hosts.|
! ;;; 11/23/92|version 1.2||

! ;;; USE: put (require 'shadow-files) in your .emacs; add clusters (if
! ;;; necessary) and file groups with shadow-define-cluster, shadow-define-group,
! ;;; and shadow-define-regexp-group (see the documentation for these functions
! ;;; for information on how and when to use them).  After doing this once,
  ;;; everything should be automatic.
  ;;;     If you need to remove or edit a cluster or file group, you can edit the
  ;;; .shadows buffer, then type M-x shadow-read to load in the new information
***************
*** 13,20 ****
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; DEPENDENCIES:
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
! ;;;  All of the packages mentioned below are available from archive sites like
! ;;;  archive.cis.ohio-state.edu.

  ;;; ANGE-FTP.  This file could be modified (with some loss of generality and
  ;;; cleanliness of the user interface) to use only the standard ftp library by
--- 16,23 ----
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; DEPENDENCIES:
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
! ;;;  All of the packages mentioned below are available from archive sites,
! ;;; including archive.cis.ohio-state.edu:pub/gnu/emacs/elisp-archive.

  ;;; ANGE-FTP.  This file could be modified (with some loss of generality and
  ;;; cleanliness of the user interface) to use only the standard ftp library by
***************
*** 152,160 ****
  shadow-define-group instead of this function).  Each site can be either a
  hostname or the name of a cluster \(see shadow-define-cluster)."
    (interactive (let ((regexp (read-string "Filename regexp: "
!                       (regexp-quote
!                        (file-name-nondirectory
!                         (buffer-file-name)))))
               site sites)
           (while (setq site (shadow-read-site))
             (push site sites))
--- 155,164 ----
  shadow-define-group instead of this function).  Each site can be either a
  hostname or the name of a cluster \(see shadow-define-cluster)."
    (interactive (let ((regexp (read-string "Filename regexp: "
!                       (if (buffer-file-name)
!                           (regexp-quote
!                            (file-name-nondirectory
!                         (buffer-file-name))))))
               site sites)
           (while (setq site (shadow-read-site))
             (push site sites))
***************
*** 180,187 ****
        (let ((buffer (condition-case i
                  (set-buffer (shadow-buffer s))
                (error (if (y-or-n-p
!  (format "Buffer killed -- ftp %s anyway?" (shadow-file s)))
!                      (find-file-noselect (shadow-file s)))))))
          (when buffer
            (save-restriction
          (widen)
--- 184,196 ----
        (let ((buffer (condition-case i
                  (set-buffer (shadow-buffer s))
                (error (if (y-or-n-p
!                       (format
!                        "Buffer killed -- ftp %s anyway?"
!                        (shadow-file s)))
!                      (set-buffer
!                       (find-file-noselect
!                        (expand-file-name (shadow-file s)
!                              shadow-homedir))))))))
          (when buffer
            (save-restriction
          (widen)
--
Boris Goldowsky                        The only way you'll end up in a corner
                                        Is by walking in too straight of a li
[e-mail]        --Claudia Schmidt                 n
57 Glasgow Street, Rochester, NY 14608                                      e