227 |
Returns nil if nothing was entered." |
Returns nil if nothing was entered." |
228 |
(let ((x (read-string prompt ""))) |
(let ((x (read-string prompt ""))) |
229 |
(if (not (string-equal x "")) |
(if (not (string-equal x "")) |
230 |
(string-to-int x)))) |
(string-to-number x)))) |
231 |
|
|
232 |
;; The condition-case stuff is needed to catch bogus arithmetic |
;; The condition-case stuff is needed to catch bogus arithmetic |
233 |
;; exceptions that occur on some machines (like Sparcs) |
;; exceptions that occur on some machines (like Sparcs) |