;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
-;; Author: Boris Goldowsky <boris@gnu.ai.mit.edu>
+;; Author: Boris Goldowsky <boris@gnu.org>
;; Keywords: comm
;; This file is part of GNU Emacs.
;; - It will not make directories for you, it just fails to copy files
;; that belong in non-existent directories.
;;
-;; Please report any bugs to me (boris@gnu.ai.mit.edu). Also let me know
+;; Please report any bugs to me (boris@gnu.org). Also let me know
;; if you have suggestions or would like to be informed of updates.
;;; Code:
(provide 'shadowfile)
(require 'ange-ftp)
-(setq find-file-visit-truename t) ; makes life easier with symbolic links
-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Variables
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defvar shadow-noquery nil
+(defgroup shadow nil
+ "Automatic file copying when saving a file."
+ :prefix "shadow-"
+ :group 'files)
+
+(defcustom shadow-noquery nil
"*If t, always copy shadow files without asking.
If nil \(the default), always ask. If not nil and not t, ask only if there
-is no buffer currently visiting the file.")
+is no buffer currently visiting the file."
+ :type '(choice (const t) (const nil) (other :tag "Ask if no buffer" maybe))
+ :group 'shadow)
-(defvar shadow-inhibit-message nil
- "*If nonnil, do not display a message when a file needs copying.")
+(defcustom shadow-inhibit-message nil
+ "*If nonnil, do not display a message when a file needs copying."
+ :type 'boolean
+ :group 'shadow)
-(defvar shadow-inhibit-overload nil
+(defcustom shadow-inhibit-overload nil
"If nonnil, shadowfile won't redefine C-x C-c.
Normally it overloads the function `save-buffers-kill-emacs' to check
-for files have been changed and need to be copied to other systems.")
+for files have been changed and need to be copied to other systems."
+ :type 'boolean
+ :group 'shadow)
-(defvar shadow-info-file nil
+(defcustom shadow-info-file nil
"File to keep shadow information in.
The shadow-info-file should be shadowed to all your accounts to
-ensure consistency. Default: ~/.shadows")
+ensure consistency. Default: ~/.shadows"
+ :type '(choice (const nil) file)
+ :group 'shadow)
-(defvar shadow-todo-file nil
+(defcustom shadow-todo-file nil
"File to store the list of uncopied shadows in.
This means that if a remote system is down, or for any reason you cannot or
decide not to copy your shadow files at the end of one emacs session, it will
remember and ask you again in your next emacs session.
This file must NOT be shadowed to any other system, it is host-specific.
-Default: ~/.shadow_todo")
+Default: ~/.shadow_todo"
+ :type '(choice (const nil) file)
+ :group 'shadow)
+
;;; The following two variables should in most cases initialize themselves
;;; correctly. They are provided as variables in case the defaults are wrong
;;; Syntactic sugar; General list and string manipulation
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defmacro shadow-when (condition &rest body)
- ;; From cl.el
- "(shadow-when CONDITION . BODY) => evaluate BODY if CONDITION is true."
- (` (if (not (, condition)) () (,@ body))))
-
(defun shadow-union (a b)
"Add members of list A to list B
if they are not equal to items already in B."
(car s))))
(find-file-noselect (car s)))))
(to (shadow-expand-cluster-in-file-name (cdr s))))
- (shadow-when buffer
+ (when buffer
(set-buffer buffer)
(save-restriction
(widen)
(let ((shadows (shadow-shadows-of
(shadow-expand-file-name
(buffer-file-name (current-buffer))))))
- (shadow-when shadows
+ (when shadows
(setq shadow-files-to-copy
(shadow-union shadows shadow-files-to-copy))
- (shadow-when (not shadow-inhibit-message)
+ (when (not shadow-inhibit-message)
(message "%s" (substitute-command-keys
"Use \\[shadow-copy-files] to update shadows."))
(sit-for 1))
(sit-for 3)
nil)
(save-excursion
- (shadow-when shadow-info-file
+ (when shadow-info-file
(set-buffer (setq shadow-info-buffer
(find-file-noselect shadow-info-file)))
- (shadow-when (and (not (buffer-modified-p))
- (file-newer-than-file-p (make-auto-save-file-name)
- shadow-info-file))
+ (when (and (not (buffer-modified-p))
+ (file-newer-than-file-p (make-auto-save-file-name)
+ shadow-info-file))
(erase-buffer)
(message "Data recovered from %s."
(car (insert-file-contents (make-auto-save-file-name))))
(sit-for 1))
(eval-current-buffer))
- (shadow-when shadow-todo-file
+ (when shadow-todo-file
(set-buffer (setq shadow-todo-buffer
(find-file-noselect shadow-todo-file)))
- (shadow-when (and (not (buffer-modified-p))
- (file-newer-than-file-p (make-auto-save-file-name)
- shadow-todo-file))
+ (when (and (not (buffer-modified-p))
+ (file-newer-than-file-p (make-auto-save-file-name)
+ shadow-todo-file))
(erase-buffer)
(message "Data recovered from %s."
(car (insert-file-contents (make-auto-save-file-name))))
;; This is on hold until someone tells me about a working version of
;; map-ynp for Lucid Emacs.
-;(shadow-when (string-match "Lucid" emacs-version)
+;(when (string-match "Lucid" emacs-version)
; (require 'symlink-fix)
; (require 'ange-ftp)
; (require 'map-ynp)
(message "Shadowfile information files not found - aborting")
(beep)
(sit-for 3))
- (shadow-when (and (not shadow-inhibit-overload)
- (not (fboundp 'shadow-orig-save-buffers-kill-emacs)))
+ (when (and (not shadow-inhibit-overload)
+ (not (fboundp 'shadow-orig-save-buffers-kill-emacs)))
(fset 'shadow-orig-save-buffers-kill-emacs
(symbol-function 'save-buffers-kill-emacs))
(fset 'save-buffers-kill-emacs
(add-hook 'write-file-hooks 'shadow-add-to-todo)
(define-key ctl-x-4-map "s" 'shadow-copy-files)))
-(if noninteractive
- (add-hook 'after-init-hook 'shadow-initialize)
- (shadow-initialize))
-
-;;;Local Variables:
-;;;eval:(put 'shadow-when 'lisp-indent-hook 1)
-;;;End:
-
;;; shadowfile.el ends here
HCoop / bpt / emacs.git / blobdiff