I added auto-save code to *-write-region and to
*-insert-file-contents. Dunno if that was the right thing.
Patch from 1.35 follows, complete file available via ftp.
kai
--
I like _b_o_t_h kinds of music.
--- rssh.el 1999/02/18 10:39:06 1.35
+++ rssh.el 1999/02/18 11:24:31 1.36
@@ -4,7 +4,7 @@
;; Author: [EMAIL PROTECTED]
;; Keywords: comm, processes
-;; Version: $Id: rssh.el,v 1.35 1999/02/18 10:39:06 grossjoh Exp $
+;; Version: $Id: rssh.el,v 1.36 1999/02/18 11:24:31 grossjoh Exp $
;; rssh.el is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -79,6 +79,7 @@
;; * Is it cleaner to use whole commands rather than just abbrevs for
;; the binary?
;; * BSD doesn't grok `-n' to print numeric user/group ids.
+;; * ``Active processes exist; kill them and exit anyway?''
;; Functions for file-name-handler-alist:
;; diff-latest-backup-file -- in diff.el
@@ -644,7 +645,9 @@
(when visit
(setq buffer-file-name filename)
(set-visited-file-modtime '(0 0))
- (set-buffer-modified-p nil))
+ (set-buffer-modified-p nil)
+ ;; Is this the right way to go about auto-saving?
+ (when auto-save-default (auto-save-mode 1)))
(rssh-run-real-handler 'insert-file-contents
(list local-copy nil beg end replace))
(delete-file local-copy)
@@ -674,6 +677,8 @@
(rssh-file-name-host v)
(rssh-file-name-path v)))
(delete-file tmpfil)
+ ;; Is this right for auto-saving?
+ (when auto-save-default (auto-save-mode 1))
(message "Wrote %s" filename)))
;; Main function.
