aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/progmodes/ada-mode.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 8b9394ab086..ccd91d3b060 100644
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -5421,7 +5421,7 @@ for `ada-procedure-start-regexp'."
5421(defun ada-make-body () 5421(defun ada-make-body ()
5422 "Create an Ada package body in the current buffer. 5422 "Create an Ada package body in the current buffer.
5423The spec must be the previously visited buffer. 5423The spec must be the previously visited buffer.
5424This function typically is to be hooked into `ff-file-created-hooks'." 5424This function typically is to be hooked into `ff-file-created-hook'."
5425 (delete-region (point-min) (point-max)) 5425 (delete-region (point-min) (point-max))
5426 (insert-buffer-substring (car (cdr (buffer-list)))) 5426 (insert-buffer-substring (car (cdr (buffer-list))))
5427 (goto-char (point-min)) 5427 (goto-char (point-min))