[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-xref.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/ada-xref.el
diff -c emacs/lisp/progmodes/ada-xref.el:1.21 
emacs/lisp/progmodes/ada-xref.el:1.22
*** emacs/lisp/progmodes/ada-xref.el:1.21       Sun Nov  7 03:58:37 2004
--- emacs/lisp/progmodes/ada-xref.el    Mon May 16 11:26:54 2005
***************
*** 672,678 ****
                    (not (integerp choice))
                    (< choice 1)
                    (> choice (length prj-files)))
!             (setq choice (string-to-int
                            (read-from-minibuffer "Enter No. of your choice: 
"))))
            (set 'selected (nth (1- choice) prj-files))))
  
--- 672,678 ----
                    (not (integerp choice))
                    (< choice 1)
                    (> choice (length prj-files)))
!             (setq choice (string-to-number
                            (read-from-minibuffer "Enter No. of your choice: 
"))))
            (set 'selected (nth (1- choice) prj-files))))
  
***************
*** 1800,1806 ****
                      (< choice 1)
                      (> choice len))
                (setq choice
!                     (string-to-int
                       (read-from-minibuffer "Enter No. of your choice: "))))
              )
            (set-buffer ali-buffer)
--- 1800,1806 ----
                      (< choice 1)
                      (> choice len))
                (setq choice
!                     (string-to-number
                       (read-from-minibuffer "Enter No. of your choice: "))))
              )
            (set-buffer ali-buffer)
***************
*** 1988,1994 ****
                   (< choice 1)
                   (> choice (length list)))
          (setq choice
!               (string-to-int
                 (read-from-minibuffer "Enter No. of your choice: "))))
        )
        (set 'choice (1- choice))
--- 1988,1994 ----
                   (< choice 1)
                   (> choice (length list)))
          (setq choice
!               (string-to-number
                 (read-from-minibuffer "Enter No. of your choice: "))))
        )
        (set 'choice (1- choice))