[crypticl-cvs] CVS crypticl/etc

[tskogan]

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 at 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)))))