diff options
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 2 |
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. |
| 5423 | The spec must be the previously visited buffer. | 5423 | The spec must be the previously visited buffer. |
| 5424 | This function typically is to be hooked into `ff-file-created-hooks'." | 5424 | This 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)) |