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

[Juanma Barranquero]

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)