(ebrowse-revert-tree-buffer-from-file): Use with-no-warnings.

[gnu-emacs] / lisp / progmodes / ada-xref.el

diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index e7eb0657eac68d0da86eb9e4edee835c40cfd9b1..8dba21afe9bd7313f14f83dbf6a5d8801391d9f6 100644 (file)
--- 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))