emacs/lisp/shadowfile.el

29 ;;  place - possibly on different machines.  When you save a file, it checks
31 ;;  copy it when you exit emacs (or use the shadow-copy-files command).
41 ;;  so that they can be remembered from one emacs session to another, even
42 ;;  (as much as possible) if the emacs session terminates abnormally.  The
50 ;;  be asked again next time you hit C-x 4 s or exit emacs.  If you do not
52 ;;  until you change the file and save it again.  If you do not want to
89   :link '(emacs-commentary-link "shadowfile")
105   "If non-nil, shadowfile won't redefine \\[save-buffers-kill-emacs].
106 Normally it overloads the function `save-buffers-kill-emacs' to check
519 `shadow-save-buffers-kill-emacs', so it is not usually necessary to
525     (save-excursion
586       (save-restriction
668     (save-excursion
673 		   (file-newer-than-file-p (make-auto-save-file-name)
677 		   (car (insert-file-contents (make-auto-save-file-name))))
684 		   (file-newer-than-file-p (make-auto-save-file-name)
688 		   (car (insert-file-contents (make-auto-save-file-name))))
700       (save-excursion
709 (defun shadow-write-todo-file (&optional save)
712   (save-excursion
718     (if save (shadow-save-todo-file))))
720 (defun shadow-save-todo-file ()
722       (save-excursion
725 	    (basic-save-buffer)		; error, otherwise kill-emacs might
727 	   (message "WARNING: Can't save shadow todo file; it is locked!")
752 (defun shadow-save-buffers-kill-emacs (&optional arg)
753   "Offer to save each buffer and copy shadows, then kill this Emacs process.
754 With prefix arg, silently save all file-visiting buffers, then kill.
756 Extended by shadowfile to automatically save `shadow-todo-file' and
758   ;; This function is necessary because we need to get control and save
760   ;; message about unsaved buffers (because it can get modified by the
761   ;; action of saving other buffers).  `kill-emacs-hook' is no good
766   (shadow-save-todo-file)
767   (save-some-buffers arg t)
769   (shadow-save-todo-file)
774 	   (yes-or-no-p "Modified buffers exist; exit anyway? "))
785 		 (yes-or-no-p "Active processes exist; kill them and exit anyway? "))))
786        (kill-emacs)))
795 ;(when (string-match "Lucid" emacs-version)
829 	       (not (fboundp 'shadow-orig-save-buffers-kill-emacs)))
830       (defalias 'shadow-orig-save-buffers-kill-emacs
831 	(symbol-function 'save-buffers-kill-emacs))
832       (defalias 'save-buffers-kill-emacs 'shadow-save-buffers-kill-emacs))
837   (if (fboundp 'shadow-orig-save-buffers-kill-emacs)
838       (fset 'save-buffers-kill-emacs
839 	    (symbol-function 'shadow-orig-save-buffers-kill-emacs)))