# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 731833637 0
# Node ID d38d32084c15794255aeb9600b9bd7b89a4c3df1
# Parent  2c87b7e144c03f4e26c005d3fdb75b922ba418e5
	* simple.el (kill-ring-save): Doc fix.

diff -r 2c87b7e144c0 -r d38d32084c15 lisp/simple.el
--- a/lisp/simple.el	Thu Mar 11 07:06:01 1993 +0000
+++ b/lisp/simple.el	Thu Mar 11 07:07:17 1993 +0000
@@ -1018,7 +1018,11 @@
   nil)
 
 (defun kill-ring-save (beg end)
-  "Save the region as if killed, but don't kill it."
+  "Save the region as if killed, but don't kill it.
+This command is similar to copy-region-as-kill, except that it gives
+visual feedback indicating the extent of the region being copied.
+If `interprogram-cut-function' is non-nil, also save the text for a window
+system cut and paste."
   (interactive "r")
   (copy-region-as-kill beg end)
   (if (interactive-p)
@@ -1067,7 +1071,8 @@
     (delete-region (point) (mark))
     (set-mark (point))
     (insert (current-kill arg))
-    (if before (exchange-point-and-mark))))
+    (if before (exchange-point-and-mark)))
+  nil)
 
 (defun yank (&optional arg)
   "Reinsert the last stretch of killed text.
@@ -1084,7 +1089,8 @@
 			 ((eq arg '-) -1)
 			 (t (1- arg)))))
   (if (consp arg)
-      (exchange-point-and-mark)))
+      (exchange-point-and-mark))
+  nil)
 
 (defun rotate-yank-pointer (arg)
   "Rotate the yanking point in the kill ring.