Index: emacs/lisp/emulation/edt.el
diff -c emacs/lisp/emulation/edt.el:1.44 emacs/lisp/emulation/edt.el:1.45
*** emacs/lisp/emulation/edt.el:1.44 Mon Sep 1 15:45:22 2003
--- emacs/lisp/emulation/edt.el Mon May 16 11:14:13 2005
***************
*** 1256,1271 ****
;; set top scroll margin
(or (string= top "")
(if (string= "%" (substring top -1))
! (setq edt-top-scroll-margin (string-to-int top))
(setq edt-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 edt-bottom-scroll-margin (string-to-int bottom))
(setq edt-bottom-scroll-margin
! (/ (1- (+ (* (string-to-int bottom) 100) (window-height)))
(window-height)))))
;; report scroll margin settings if running interactively
(and (interactive-p)
--- 1256,1271 ----
;; set top scroll margin
(or (string= top "")
(if (string= "%" (substring top -1))
! (setq edt-top-scroll-margin (string-to-number top))
(setq edt-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 edt-bottom-scroll-margin (string-to-number bottom))
(setq edt-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
