X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/a2216d64394d4fa6135176787626e0323914e4e3..c4c42b2e438cb9c28b36c44c17e710ec1debacbc:/lisp/ada.el

diff --git a/lisp/ada.el b/lisp/ada.el
index 46f23ada71..bf7633bf82 100644
--- a/lisp/ada.el
+++ b/lisp/ada.el
@@ -140,7 +140,9 @@ This does fairly subdued highlighting.")
   "For consideration as a value of `ada-font-lock-keywords'.
 This does a lot more highlighting.")
 
-(defvar ada-font-lock-keywords ada-font-lock-keywords-1
+(defvar ada-font-lock-keywords (if font-lock-maximum-decoration
+				   ada-font-lock-keywords-2
+				 ada-font-lock-keywords-1)
   "Additional expressions to highlight in Ada mode.")
 
 (defvar ada-mode-map nil
@@ -193,7 +195,6 @@ This does a lot more highlighting.")
 
 (defvar ada-comment-end-column)
 
-;;;###autoload
 (defun ada-mode ()
 "This is a mode intended to support program development in Ada.
 Most control constructs and declarations of Ada can be inserted in the buffer
@@ -234,7 +235,7 @@ Variable `ada-indent' controls the number of spaces for indent/undent."
   (setq ada-comment-end-column 72)
   (set-syntax-table ada-mode-syntax-table)
   (make-local-variable 'paragraph-start)
-  (setq paragraph-start (concat "^$\\|" page-delimiter))
+  (setq paragraph-start (concat "$\\|" page-delimiter))
   (make-local-variable 'paragraph-separate)
   (setq paragraph-separate paragraph-start)
   (make-local-variable 'paragraph-ignore-fill-prefix)