Mercurial > emacs
comparison lisp/progmodes/ada-mode.el @ 90203:187d6a1f84f7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-71
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 485-492)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 92-94)
- Merge from emacs--cvs-trunk--0
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 22 Jul 2005 08:27:27 +0000 |
parents | f9a65d7ebd29 0eca480a23a7 |
children | edf295560b5a |
comparison
equal
deleted
inserted
replaced
90202:7597b4a23c3b | 90203:187d6a1f84f7 |
---|---|
5347 The potential old buffer contents is deleted first, then we copy the | 5347 The potential old buffer contents is deleted first, then we copy the |
5348 spec buffer in here and modify it to make it a body. | 5348 spec buffer in here and modify it to make it a body. |
5349 This function typically is to be hooked into `ff-file-created-hooks'." | 5349 This function typically is to be hooked into `ff-file-created-hooks'." |
5350 (interactive) | 5350 (interactive) |
5351 (delete-region (point-min) (point-max)) | 5351 (delete-region (point-min) (point-max)) |
5352 (insert-buffer (car (cdr (buffer-list)))) | 5352 (insert-buffer-substring (car (cdr (buffer-list)))) |
5353 (goto-char (point-min)) | |
5353 (ada-mode) | 5354 (ada-mode) |
5354 | 5355 |
5355 (let (found ada-procedure-or-package-start-regexp) | 5356 (let (found ada-procedure-or-package-start-regexp) |
5356 (if (setq found | 5357 (if (setq found |
5357 (ada-search-ignore-string-comment ada-package-start-regexp nil)) | 5358 (ada-search-ignore-string-comment ada-package-start-regexp nil)) |