Mercurial > emacs
comparison lisp/progmodes/ada-mode.el @ 74073:ef8cf7255613
(ada-make-body): Fix typo.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 19 Nov 2006 01:35:31 +0000 |
| parents | 5909c257c4ea |
| children | abb4062752c5 dbe3f29e61d6 |
comparison
equal
deleted
inserted
replaced
| 74072:3174edc171d7 | 74073:ef8cf7255613 |
|---|---|
| 5419 )))))) | 5419 )))))) |
| 5420 | 5420 |
| 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)) |
| 5428 (ada-mode) | 5428 (ada-mode) |
| 5429 | 5429 |