diff options
Diffstat (limited to 'lisp/progmodes/ada-mode.el')
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index c1bc79c599c..70af389519c 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -286,11 +286,11 @@ type A is :type 'boolean :group 'ada) (defcustom ada-indent-is-separate t - "Non-nil means indent 'is separate' or 'is abstract' if on a single line." + "Non-nil means indent ‘is separate’ or ‘is abstract’ if on a single line." :type 'boolean :group 'ada) (defcustom ada-indent-record-rel-type 3 - "Indentation for 'record' relative to 'type' or 'use'. + "Indentation for ‘record’ relative to ‘type’ or ‘use’. An example is: type A is @@ -309,7 +309,7 @@ An example is: :type 'integer :group 'ada) (defcustom ada-indent-return 0 - "Indentation for 'return' relative to the matching 'function' statement. + "Indentation for `return' relative to the matching `function' statement. If `ada-indent-return' is null or negative, the indentation is done relative to the open parenthesis (if there is no parenthesis, `ada-broken-indent' is used). @@ -349,7 +349,7 @@ This is also used for <<..>> labels" :type '(choice (const ada83) (const ada95) (const ada2005)) :group 'ada) (defcustom ada-move-to-declaration nil - "Non-nil means `ada-move-to-start' moves to the subprogram declaration, not to 'begin'." + "Non-nil means `ada-move-to-start' moves to the subprogram declaration, not to `begin'." :type 'boolean :group 'ada) (defcustom ada-popup-key '[down-mouse-3] @@ -397,7 +397,7 @@ Must be one of : :group 'ada) (defcustom ada-use-indent ada-broken-indent - "Indentation for the lines in a 'use' statement. + "Indentation for the lines in a ‘use’ statement. An example is: use Ada.Text_IO, @@ -405,7 +405,7 @@ An example is: :type 'integer :group 'ada) (defcustom ada-when-indent 3 - "Indentation for 'when' relative to 'exception' or 'case'. + "Indentation for ‘when’ relative to ‘exception’ or ‘case’. An example is: case A is @@ -413,7 +413,7 @@ An example is: :type 'integer :group 'ada) (defcustom ada-with-indent ada-broken-indent - "Indentation for the lines in a 'with' statement. + "Indentation for the lines in a ‘with’ statement. An example is: with Ada.Text_IO, @@ -493,7 +493,7 @@ Used to define `ada-*-keywords.'")) "Alist of substrings (entities) that have special casing. The substrings are detected for word constituent when the word is not itself in `ada-case-exception', and only for substrings that -either are at the beginning or end of the word, or start after '_'.") +either are at the beginning or end of the word, or start after `_'.") (defvar ada-lfd-binding nil "Variable to save key binding of LFD when casing is activated.") @@ -1689,7 +1689,7 @@ See also `ada-auto-case' to disable auto casing altogether." nil) (defun ada-capitalize-word (&optional _arg) - "Upcase first letter and letters following '_', lower case other letters. + "Upcase first letter and letters following `_', lower case other letters. ARG is ignored, and is there for compatibility with `capitalize-word' only." (interactive) (let ((end (save-excursion (skip-syntax-forward "w") (point))) @@ -2834,7 +2834,7 @@ ORGPOINT is the limit position used in the calculation." (save-excursion (goto-char (car match-cons)) (unless (ada-search-ignore-string-comment "when" t opos) - (error "Missing 'when' between 'case' and '=>'")) + (error "Missing ‘when’ between ‘case’ and ‘=>’")) (list (save-excursion (back-to-indentation) (point)) 'ada-indent))) ;; ;; case..is..when @@ -3003,7 +3003,7 @@ ORGPOINT is the limit position used in the calculation." (list cur-indent 'ada-broken-indent))))) (defun ada-get-indent-noindent (orgpoint) - "Calculate the indentation when point is just before a 'noindent stmt'. + "Calculate the indentation when point is just before a ‘noindent stmt’. ORGPOINT is the limit position used in the calculation." (let ((label 0)) (save-excursion @@ -3429,7 +3429,7 @@ Return the new position of point or nil if not found." Moves point to the matching block start." (ada-goto-matching-start 0) (unless (looking-at (concat "\\<" keyword "\\>")) - (error "Matching start is not '%s'" keyword))) + (error "Matching start is not ‘%s’" keyword))) (defun ada-check-defun-name (defun-name) @@ -3667,7 +3667,7 @@ otherwise throw error." "Move point to the beginning of a block-start. Which block depends on the value of NEST-LEVEL, which defaults to zero. If NOERROR is non-nil, it only returns nil if no matching start was found. -If GOTOTHEN is non-nil, point moves to the 'then' following 'if'." +If GOTOTHEN is non-nil, point moves to the ‘then’ following ‘if’." (let ((nest-count (if nest-level nest-level 0)) (found nil) @@ -3734,7 +3734,7 @@ If GOTOTHEN is non-nil, point moves to the 'then' following 'if'." (if pos (goto-char (car pos)) (error (concat - "No matching 'is' or 'renames' for 'package' at" + "No matching ‘is’ or ‘renames’ for ‘package’ at" " line " (number-to-string (count-lines 1 (1+ current))))))) (unless (looking-at "renames") @@ -3862,7 +3862,7 @@ If GOTOTHEN is non-nil, point moves to the 'then' following 'if'." ((looking-at "do") (unless (ada-search-ignore-string-comment "\\<accept\\|return\\>" t) - (error "Missing 'accept' or 'return' in front of 'do'")))) + (error "Missing ‘accept’ or ‘return’ in front of ‘do’")))) (point)) (if noerror @@ -4073,7 +4073,7 @@ Assumes point to be at the end of a statement." (defun ada-looking-at-semi-or () - "Return t if looking at an 'or' following a semicolon." + "Return t if looking at an ‘or’ following a semicolon." (save-excursion (and (looking-at "\\<or\\>") (progn @@ -4146,7 +4146,7 @@ Return nil if the private is part of the package name, as in "type\\)\\>")))))) (defun ada-search-ignore-complex-boolean (regexp backwardp) - "Search for REGEXP, ignoring comments, strings, 'and then', 'or else'. + "Search for REGEXP, ignoring comments, strings, ‘and then’, ‘or else’. If BACKWARDP is non-nil, search backward; search forward otherwise." (let (result) (while (and (setq result (ada-search-ignore-string-comment regexp backwardp)) @@ -4366,7 +4366,7 @@ of the region. Otherwise, operate only on the current line." (defun ada-move-to-end () "Move point to the end of the block around point. -Moves to 'begin' if in a declarative part." +Moves to ‘begin’ if in a declarative part." (interactive) (let ((pos (point)) decl-start) |