diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-16 11:34:49 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-16 11:34:49 +0000 |
| commit | 027a4b6b3fd229f8aea323f59cb246d99deb8a75 (patch) | |
| tree | c92da7d3049376d7bd687db6bc5c8dce82ed9335 /lisp/emulation/tpu-extras.el | |
| parent | 216d380630ec8be9569a56687f0e08b89ee97c47 (diff) | |
| download | emacs-027a4b6b3fd229f8aea323f59cb246d99deb8a75.tar.gz emacs-027a4b6b3fd229f8aea323f59cb246d99deb8a75.tar.bz2 emacs-027a4b6b3fd229f8aea323f59cb246d99deb8a75.zip | |
Replace `string-to-int' by `string-to-number'.
Diffstat (limited to 'lisp/emulation/tpu-extras.el')
| -rw-r--r-- | lisp/emulation/tpu-extras.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el index ced88ff3fdf..9c417dd3a40 100644 --- a/lisp/emulation/tpu-extras.el +++ b/lisp/emulation/tpu-extras.el @@ -440,16 +440,16 @@ version that respects the bottom scroll margin." ;; 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 (string-to-number top)) (setq tpu-top-scroll-margin - (/ (1- (+ (* (string-to-int top) 100) (window-height))) + (/ (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-int bottom)) + (setq tpu-bottom-scroll-margin (string-to-number bottom)) (setq tpu-bottom-scroll-margin - (/ (1- (+ (* (string-to-int bottom) 100) (window-height))) + (/ (1- (+ (* (string-to-number bottom) 100) (window-height))) (window-height))))) ;; report scroll margin settings if running interactively (and (interactive-p) |