diff options
Diffstat (limited to 'lisp/progmodes/ada-mode.el')
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index fdb1a9d69f7..3b6a6d611d2 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -1,7 +1,7 @@ ;;; ada-mode.el --- major-mode for editing Ada sources -;; Copyright (C) 1994, 95, 97, 98, 99, 2000, 2001, 2002, 03, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Rolf Ebert <ebert@inf.enst.fr> ;; Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de> @@ -133,6 +133,9 @@ (require 'which-func nil t) (require 'compile nil t)) +(defvar compile-auto-highlight) +(defvar skeleton-further-elements) + ;; this function is needed at compile time (eval-and-compile (defun ada-check-emacs-version (major minor &optional is-xemacs) @@ -1280,7 +1283,7 @@ If you use ada-xref.el: (progn (add-to-list 'align-dq-string-modes 'ada-mode) (add-to-list 'align-open-comment-modes 'ada-mode) - (set (make-variable-buffer-local 'align-region-separate) + (set (make-local-variable 'align-region-separate) ada-align-region-separate) ;; Exclude comments alone on line from alignment. @@ -5349,7 +5352,8 @@ spec buffer in here and modify it to make it a body. 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)))) + (insert-buffer-substring (car (cdr (buffer-list)))) + (goto-char (point-min)) (ada-mode) (let (found ada-procedure-or-package-start-regexp) |