Index: emacs/lisp/progmodes/ada-mode.el
diff -c emacs/lisp/progmodes/ada-mode.el:1.66
emacs/lisp/progmodes/ada-mode.el:1.67
*** emacs/lisp/progmodes/ada-mode.el:1.66 Mon Jul 4 16:59:17 2005
--- emacs/lisp/progmodes/ada-mode.el Mon Jul 18 11:28:53 2005
***************
*** 5349,5355 ****
This function typically is to be hooked into `ff-file-created-hooks'."
(interactive)
(delete-region (point-min) (point-max))
! (insert-buffer (car (cdr (buffer-list))))
(ada-mode)
(let (found ada-procedure-or-package-start-regexp)
--- 5349,5356 ----
This function typically is to be hooked into `ff-file-created-hooks'."
(interactive)
(delete-region (point-min) (point-max))
! (insert-buffer-substring (car (cdr (buffer-list))))
! (goto-char (point-min))
(ada-mode)
(let (found ada-procedure-or-package-start-regexp)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
