Commit 87bd269a authored by Jay Belanger's avatar Jay Belanger
Browse files

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

(calc-kill-region): Kill entire lines.
parent b1d87c10
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment