Update of /project/crypticl/cvsroot/crypticl/etc In directory clnet:/tmp/cvs-serv7590

Modified Files: .emacs Log Message: add scp-buffer.

--- /project/crypticl/cvsroot/crypticl/etc/.emacs 2007/01/21 01:24:52 1.1 +++ /project/crypticl/cvsroot/crypticl/etc/.emacs 2007/01/21 01:55:59 1.2 @@ -182,3 +182,12 @@

(put 'upcase-region 'disabled nil) + + +;;tskogan@common-lisp.net:/project/crypticl/public_html +(defun scp-buffer (dst) + (interactive "s scp current file to remote destination: ") + (let ((retval (call-process "pscp" nil nil nil (buffer-file-name) dst))) + (if (eq 0 retval) + (princ (format "Copied file %s to %s" (buffer-file-name) dst)) + (princ (format "scp failed with return value %s" retval)))))