[Emacs-diffs] Changes to emacs/lisp/calc/calc-ext.el

[Colin Walters]

Index: emacs/lisp/calc/calc-ext.el
diff -c emacs/lisp/calc/calc-ext.el:1.8 emacs/lisp/calc/calc-ext.el:1.9
*** emacs/lisp/calc/calc-ext.el:1.8     Thu Dec 20 13:48:20 2001
--- emacs/lisp/calc/calc-ext.el Tue Feb 26 14:54:21 2002
***************
*** 1303,1316 ****
                 (select-window swin)))))))
    (message "(Calculator reset)"))
  
! 
  (defun calc-scroll-left (n)
    (interactive "P")
!   (scroll-left (or n (/ (window-width) 2))))
  
  (defun calc-scroll-right (n)
    (interactive "P")
!   (scroll-right (or n (/ (window-width) 2))))
  
  (defun calc-scroll-up (n)
    (interactive "P")
--- 1303,1318 ----
                 (select-window swin)))))))
    (message "(Calculator reset)"))
  
! ;; What a pain; scroll-left behaves differently when called non-interactively.
  (defun calc-scroll-left (n)
    (interactive "P")
!   (setq prefix-arg (or n (/ (window-width) 2)))
!   (call-interactively #'scroll-left))
  
  (defun calc-scroll-right (n)
    (interactive "P")
!   (setq prefix-arg (or n (/ (window-width) 2)))
!   (call-interactively #'scroll-right))
  
  (defun calc-scroll-up (n)
    (interactive "P")