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)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
