(calc-kill): Make sure that only the stack is operated on.

(calc-kill-region): Kill entire lines.

lisp/ChangeLog

+2008-05-18  Jay Belanger  <jay.p.belanger@gmail.com>
+
+	* calc/calc-yank.el (calc-kill): Make sure that only the stack is
+	operated on.
+	(calc-kill-region): Kill entire lines.
+
 2008-05-17  Glenn Morris  <rgm@gnu.org>
 	* ezimage.el (ezimage-use-images): Drop support for Emacs < 21 and

lisp/calc/calc-yank.el

@@ -46,6 +46,7 @@
 		   (setq num (1- num)))
 	       (setq num (- num n)
 		     n (- n))))
+         (calc-check-stack num)
 	 (let ((stuff (calc-top-list n (- num n -1))))
 	   (calc-cursor-stack-index num)
 	   (let ((first (point)))
@@ -82,9 +83,15 @@
        (calc-force-refresh)
        (calc-set-command-flag 'no-align)
        (let* ((top-num (calc-locate-cursor-element top))
+              (top-pos (save-excursion
+                         (calc-cursor-stack-index top-num)
+                         (point)))
 	      (bot-num (calc-locate-cursor-element (1- bot)))
+              (bot-pos (save-excursion
+                         (calc-cursor-stack-index (max 0 (1- bot-num)))
+                         (point)))
 	      (num (- top-num bot-num -1)))
-	 (copy-region-as-kill top bot)
+	 (copy-region-as-kill top-pos bot-pos)
 	 (setq calc-last-kill (cons (car kill-ring)
 				    (calc-top-list num bot-num)))
 	 (if (not no-delete)