874 |
(defun hexl-insert-decimal-char (arg) |
(defun hexl-insert-decimal-char (arg) |
875 |
"Insert a character given by its decimal code ARG times at point." |
"Insert a character given by its decimal code ARG times at point." |
876 |
(interactive "p") |
(interactive "p") |
877 |
(let ((num (string-to-int (read-string "Decimal Number: ")))) |
(let ((num (string-to-number (read-string "Decimal Number: ")))) |
878 |
(if (< num 0) |
(if (< num 0) |
879 |
(error "Decimal number out of range") |
(error "Decimal number out of range") |
880 |
(hexl-insert-multibyte-char num arg)))) |
(hexl-insert-multibyte-char num arg)))) |