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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
