(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))))
(< choice 1)
(> choice len))
(setq choice
- (string-to-int
+ (string-to-number
(read-from-minibuffer "Enter No. of your choice: "))))
)
(set-buffer ali-buffer)
(< 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))