Merge from emacs-23

[gnu-emacs] / lisp / calc / calc-yank.el

diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el
index 18c3393ad085d88c8beae55ac92d133380a96bbf..ec801c7e5971f507f191a183c6cf0f6ff163f9da 100644 (file)
--- a/lisp/calc/calc-yank.el
+++ b/lisp/calc/calc-yank.el
@@ -282,11 +282,8 @@ With prefix arg, also delete the region."
            (setq single t)
          (setq arg (prefix-numeric-value arg))
          (if (= arg 0)
-             (save-excursion
-               (beginning-of-line)
-               (setq top (point))
-               (end-of-line)
-               (setq bot (point)))
+             (setq top (point-at-bol)
+                   bot (point-at-eol))
            (save-excursion
              (setq top (point))
              (forward-line arg)
@@ -713,5 +710,4 @@ To cancel the edit, simply kill the *Calc Edit* buffer."
 ;; generated-autoload-file: "calc-loaddefs.el"
 ;; End:
 
-;; arch-tag: ca61019e-caca-4daa-b32c-b6afe372d5b5
 ;;; calc-yank.el ends here