(compilation-next-error-function):

[gnu-emacs] / lisp / progmodes / ada-xref.el

diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index fc1d2d46ab37b7cbabca94b56410841100f12e74..8dba21afe9bd7313f14f83dbf6a5d8801391d9f6 100644 (file)
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -672,7 +672,7 @@ file.  If none is set, return nil."
                    (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))))
 
@@ -1292,7 +1292,7 @@ If ARG is non-nil, ask the user to confirm the command."
 
       ;;  Move to the end of the debugger buffer, so that it is automatically
       ;;  scrolled from then on.
-      (end-of-buffer)
+      (goto-char (point-max))
 
       ;;  Display both the source window and the debugger window (the former
       ;;  above the latter).  No need to show the debugger window unless it
@@ -1800,7 +1800,7 @@ This function is disabled for operators, and only works for identifiers."
                      (< choice 1)
                      (> choice len))
                (setq choice
-                     (string-to-int
+                     (string-to-number
                       (read-from-minibuffer "Enter No. of your choice: "))))
              )
            (set-buffer ali-buffer)
@@ -1988,7 +1988,7 @@ is using."
                   (< 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))
@@ -2154,17 +2154,17 @@ This is a GNAT specific function that uses gnatkrunch."
   adaname
   )
 
-(defun ada-make-body-gnatstub ()
+(defun ada-make-body-gnatstub (&optional interactive)
   "Create an Ada package body in the current buffer.
 This function uses the `gnatstub' program to create the body.
 This function typically is to be hooked into `ff-file-created-hooks'."
-  (interactive)
+  (interactive "p")
 
   (save-some-buffers nil nil)
 
   ;; If the current buffer is the body (as is the case when calling this
   ;; function from ff-file-created-hooks), then kill this temporary buffer
-  (unless (interactive-p)
+  (unless interactive
     (progn
       (set-buffer-modified-p nil)
       (kill-buffer (current-buffer))))