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/progmodes/ada-xref.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/progmodes/ada-xref.el')
| -rw-r--r-- | lisp/progmodes/ada-xref.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el index e7eb0657eac..8dba21afe9b 100644 --- a/lisp/progmodes/ada-xref.el +++ b/lisp/progmodes/ada-xref.el @@ -672,7 +672,7 @@ file. If none is set, return nil." (not (integerp choice)) (< choice 1) (> choice (length prj-files))) - (setq choice (string-to-int + (setq choice (string-to-number (read-from-minibuffer "Enter No. of your choice: ")))) (set 'selected (nth (1- choice) prj-files)))) @@ -1800,7 +1800,7 @@ This function is disabled for operators, and only works for identifiers." (< choice 1) (> choice len)) (setq choice - (string-to-int + (string-to-number (read-from-minibuffer "Enter No. of your choice: ")))) ) (set-buffer ali-buffer) @@ -1988,7 +1988,7 @@ is using." (< choice 1) (> choice (length list))) (setq choice - (string-to-int + (string-to-number (read-from-minibuffer "Enter No. of your choice: ")))) ) (set 'choice (1- choice)) |