X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/37fc4433fb7e0f99a0ff74ddb23075127b7e4656..23a624ca1d40fa9cefd7229ac6152b79278a6517:/packages/ada-mode/ada-fix-error.el?ds=sidebyside

diff --git a/packages/ada-mode/ada-fix-error.el b/packages/ada-mode/ada-fix-error.el
old mode 100755
new mode 100644
index e8115fa38..33d202f5b
--- a/packages/ada-mode/ada-fix-error.el
+++ b/packages/ada-mode/ada-fix-error.el
@@ -36,10 +36,11 @@
   :group 'ada)
 
 (defvar ada-fix-context-clause nil
-  "Function to return the region containing the context clause for the current buffer.
-Called with no arguments; return (BEGIN . END). BEGIN and
-END must be at beginning of line.  If there is no context
-clause, BEGIN = END, at start of compilation unit.")
+  "Function to return the region containing the context clause for the current buffer,
+excluding leading pragmas.  Called with no arguments;
+return (BEGIN . END). BEGIN and END must be at beginning of line.
+If there is no context clause, BEGIN = END, at start of
+compilation unit.")
 
 (defun ada-fix-context-clause ()
   (when ada-fix-context-clause