-;;; user options shared by Ada mode indentation engines -*- lexical-binding:t -*-
+;; user options shared by Ada mode indentation engines -*- lexical-binding:t -*-
;;
;; Copyright (C) 2012, 2013, 2015 Free Software Foundation, Inc.
;;
Example :
My_Var : My_Type :=
>>(Field1 => Value);"
- :type 'integer
- :safe #'integerp)
+ :type 'integer
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-broken)
(defcustom ada-indent-comment-col-0 nil
"If non-nil, comments currently starting in column 0 are left in column 0.
Otherwise, they are indented with previous comments or code."
+ :type 'boolean
+ :safe #'booleanp)
+(make-variable-buffer-local 'ada-indent-comment-col-0)
+
+(defcustom ada-indent-comment-gnat nil
+ "If non-nil, comments are indented to meet the GNAT comment style check.
+That is, one of:
+
+- multiple of ada-indent
+- next non-blank line
+- previous non-blank line
+
+Otherwise, they are indented as a with previous comments or code."
:type 'boolean
+ :group 'ada-indentation
:safe #'booleanp)
-(make-variable-buffer-local 'ada-indent-comment-col-0)
+(make-variable-buffer-local 'ada-indent-comment-gnat)
(defvar ada-label-indent nil)
(make-obsolete-variable
An example is:
type A is
>>>record"
- :type 'integer
- :safe #'integerp)
+ :type 'integer
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-record-rel-type)
(defcustom ada-indent-renames 2
function A (B : Integer)
return C
>>>>>>>>>>>renames Foo;"
- :type 'integer
- :safe #'integerp)
+ :type 'integer
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-renames)
(defcustom ada-indent-return 0
An example is:
function A (B : Integer)
>>>>>>>>>>>return C;"
- :type 'integer
- :safe #'integerp)
+ :type 'integer
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-return)
(defvar ada-use-indent nil)
An example is:
use Ada.Text_IO,
>>Ada.Numerics;"
- :type 'integer
- :safe #'integerp)
+ :type 'integer
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-use)
(defvar ada-when-indent nil)
An example is:
with Ada.Text_IO,
>>Ada.Numerics;"
- :type 'integer
- :safe #'integerp)
+ :type 'integer
+ :safe #'integerp)
(make-variable-buffer-local 'ada-indent-with)
(provide 'ada-indent-user-options)