/[emacs]/emacs/lisp/progmodes/ada-xref.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/ada-xref.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by rms, Sun Nov 7 03:58:37 2004 UTC revision 1.22 by lektu, Mon May 16 11:26:54 2005 UTC
# Line 672  file.  If none is set, return nil." Line 672  file.  If none is set, return nil."
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    
# Line 1800  This function is disabled for operators, Line 1800  This function is disabled for operators,
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)
# Line 1988  is using." Line 1988  is using."
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))

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26