[Emacs-diffs] Changes to emacs/lisp/emulation/tpu-extras.el

[Juanma Barranquero]

Index: emacs/lisp/emulation/tpu-extras.el
diff -c emacs/lisp/emulation/tpu-extras.el:1.15 
emacs/lisp/emulation/tpu-extras.el:1.16
*** emacs/lisp/emulation/tpu-extras.el:1.15     Mon Sep  1 15:45:22 2003
--- emacs/lisp/emulation/tpu-extras.el  Mon May 16 11:14:13 2005
***************
*** 440,455 ****
    ;; set top scroll margin
    (or (string= top "")
        (if (string= "%" (substring top -1))
!         (setq tpu-top-scroll-margin (string-to-int top))
        (setq tpu-top-scroll-margin
!             (/ (1- (+ (* (string-to-int top) 100) (window-height)))
                 (window-height)))))
    ;; set bottom scroll margin
    (or (string= bottom "")
        (if (string= "%" (substring bottom -1))
!         (setq tpu-bottom-scroll-margin (string-to-int bottom))
        (setq tpu-bottom-scroll-margin
!             (/ (1- (+ (* (string-to-int bottom) 100) (window-height)))
                 (window-height)))))
    ;; report scroll margin settings if running interactively
    (and (interactive-p)
--- 440,455 ----
    ;; set top scroll margin
    (or (string= top "")
        (if (string= "%" (substring top -1))
!         (setq tpu-top-scroll-margin (string-to-number top))
        (setq tpu-top-scroll-margin
!             (/ (1- (+ (* (string-to-number top) 100) (window-height)))
                 (window-height)))))
    ;; set bottom scroll margin
    (or (string= bottom "")
        (if (string= "%" (substring bottom -1))
!         (setq tpu-bottom-scroll-margin (string-to-number bottom))
        (setq tpu-bottom-scroll-margin
!             (/ (1- (+ (* (string-to-number bottom) 100) (window-height)))
                 (window-height)))))
    ;; report scroll margin settings if running interactively
    (and (interactive-p)