From: boris@prodigal.psych.rochester.edu (Boris "implementation" Goldowsky)
Newsgroups: gnu.emacs.sources
Subject: shadow-files, patch #2
Date: 23 Nov 92 14:18:11 GMT
Reply-To: boris@cc.rochester.edu
Organization: University of Rochester (Rochester, NY)

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 <boris@prodigal.psych.rochester.edu>.
  
! ;;; 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|boris@prodigal.psych.rochester.edu|
! ;;; 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
boris@prodigal.psych.rochester.edu        --Claudia Schmidt                 n
57 Glasgow Street, Rochester, NY 14608                                      e
Newsgroups: gnu.emacs.sources