diff options
Diffstat (limited to 'lisp/progmodes/ada-mode.el')
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index 70af389519c..452f3b99742 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 @@ -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, @@ -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) |