672 |
(not (integerp choice)) |
(not (integerp choice)) |
673 |
(< choice 1) |
(< choice 1) |
674 |
(> choice (length prj-files))) |
(> choice (length prj-files))) |
675 |
(setq choice (string-to-int |
(setq choice (string-to-number |
676 |
(read-from-minibuffer "Enter No. of your choice: ")))) |
(read-from-minibuffer "Enter No. of your choice: ")))) |
677 |
(set 'selected (nth (1- choice) prj-files)))) |
(set 'selected (nth (1- choice) prj-files)))) |
678 |
|
|
1800 |
(< choice 1) |
(< choice 1) |
1801 |
(> choice len)) |
(> choice len)) |
1802 |
(setq choice |
(setq choice |
1803 |
(string-to-int |
(string-to-number |
1804 |
(read-from-minibuffer "Enter No. of your choice: ")))) |
(read-from-minibuffer "Enter No. of your choice: ")))) |
1805 |
) |
) |
1806 |
(set-buffer ali-buffer) |
(set-buffer ali-buffer) |
1988 |
(< choice 1) |
(< choice 1) |
1989 |
(> choice (length list))) |
(> choice (length list))) |
1990 |
(setq choice |
(setq choice |
1991 |
(string-to-int |
(string-to-number |
1992 |
(read-from-minibuffer "Enter No. of your choice: ")))) |
(read-from-minibuffer "Enter No. of your choice: ")))) |
1993 |
) |
) |
1994 |
(set 'choice (1- choice)) |
(set 'choice (1- choice)) |