Mercurial > emacs
comparison lisp/hexl.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 | 93f163f12d38 |
| children | f679b0ed3d82 f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
| 62401:4512c4db6912 | 62402:a7e02ef1e3d6 |
|---|---|
| 872 (setq arg (- arg 1))))) | 872 (setq arg (- arg 1))))) |
| 873 | 873 |
| 874 (defun hexl-insert-decimal-char (arg) | 874 (defun hexl-insert-decimal-char (arg) |
| 875 "Insert a character given by its decimal code ARG times at point." | 875 "Insert a character given by its decimal code ARG times at point." |
| 876 (interactive "p") | 876 (interactive "p") |
| 877 (let ((num (string-to-int (read-string "Decimal Number: ")))) | 877 (let ((num (string-to-number (read-string "Decimal Number: ")))) |
| 878 (if (< num 0) | 878 (if (< num 0) |
| 879 (error "Decimal number out of range") | 879 (error "Decimal number out of range") |
| 880 (hexl-insert-multibyte-char num arg)))) | 880 (hexl-insert-multibyte-char num arg)))) |
| 881 | 881 |
| 882 (defun hexl-insert-octal-char (arg) | 882 (defun hexl-insert-octal-char (arg) |