Mercurial > emacs
comparison lisp/term/w32-win.el @ 62402:a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 16 May 2005 11:33:47 +0000 |
| parents | eaa9acd9122c |
| children | a8fa7c632ee4 f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
| 62401:4512c4db6912 | 62402:a7e02ef1e3d6 |
|---|---|
| 144 | 144 |
| 145 (defun x-handle-numeric-switch (switch) | 145 (defun x-handle-numeric-switch (switch) |
| 146 "Handle SWITCH of the form \"-switch n\"." | 146 "Handle SWITCH of the form \"-switch n\"." |
| 147 (let ((aelt (assoc switch command-line-x-option-alist))) | 147 (let ((aelt (assoc switch command-line-x-option-alist))) |
| 148 (if aelt | 148 (if aelt |
| 149 (push (cons (nth 3 aelt) (string-to-int (pop x-invocation-args))) | 149 (push (cons (nth 3 aelt) (string-to-number (pop x-invocation-args))) |
| 150 default-frame-alist)))) | 150 default-frame-alist)))) |
| 151 | 151 |
| 152 ;; Handle options that apply to initial frame only | 152 ;; Handle options that apply to initial frame only |
| 153 (defun x-handle-initial-switch (switch) | 153 (defun x-handle-initial-switch (switch) |
| 154 (let ((aelt (assoc switch command-line-x-option-alist))) | 154 (let ((aelt (assoc switch command-line-x-option-alist))) |