Commit ab074cb1 authored by Juanma Barranquero's avatar Juanma Barranquero

(ada-check-current): Doc fix.

(ada-make-body-gnatstub): Doc fix.  Remove redundant `progn'.
parent 56c5808a
...@@ -1190,7 +1190,7 @@ command, and should be either `comp_cmd' (default) or `check_cmd'." ...@@ -1190,7 +1190,7 @@ command, and should be either `comp_cmd' (default) or `check_cmd'."
(compile (ada-quote-cmd cmd)))) (compile (ada-quote-cmd cmd))))
(defun ada-check-current (&optional arg) (defun ada-check-current (&optional arg)
"Recompile the current file. "Check the current file for syntax errors.
If ARG is not nil, ask for user confirmation of the command." If ARG is not nil, ask for user confirmation of the command."
(interactive "P") (interactive "P")
(ada-compile-current arg 'check_cmd)) (ada-compile-current arg 'check_cmd))
...@@ -2211,6 +2211,7 @@ This is a GNAT specific function that uses gnatkrunch." ...@@ -2211,6 +2211,7 @@ This is a GNAT specific function that uses gnatkrunch."
(defun ada-make-body-gnatstub (&optional interactive) (defun ada-make-body-gnatstub (&optional interactive)
"Create an Ada package body in the current buffer. "Create an Ada package body in the current buffer.
This function uses the `gnatstub' program to create the body. This function uses the `gnatstub' program to create the body.
If INTERACTIVE is nil, kill the current buffer.
This function typically is to be hooked into `ff-file-created-hook'." This function typically is to be hooked into `ff-file-created-hook'."
(interactive "p") (interactive "p")
(ada-require-project-file) (ada-require-project-file)
...@@ -2220,9 +2221,8 @@ This function typically is to be hooked into `ff-file-created-hook'." ...@@ -2220,9 +2221,8 @@ This function typically is to be hooked into `ff-file-created-hook'."
;; If the current buffer is the body (as is the case when calling this ;; If the current buffer is the body (as is the case when calling this
;; function from ff-file-created-hook), then kill this temporary buffer ;; function from ff-file-created-hook), then kill this temporary buffer
(unless interactive (unless interactive
(progn (set-buffer-modified-p nil)
(set-buffer-modified-p nil) (kill-buffer (current-buffer)))
(kill-buffer (current-buffer))))
;; Make sure the current buffer is the spec (this might not be the case ;; Make sure the current buffer is the spec (this might not be the case
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment