branch: externals/auctex
commit 32bc5485bc93b720c93c96c166ece4d744f3bea5
Author: Ikumi Keita <[email protected]>
Commit: Ikumi Keita <[email protected]>
; Fix typos and doc string
* doc/auctex.texi:
* latex.el: preceed{ing,ed} -> preced{ing,ed}
(LaTeX--find-preceding-left-macro-name): Rename from wrongly-spelled
`LaTeX-find-preceeding-left-macro-name'. Change all the caller.
Supply `define-obsolete-function-alias' for backward compatibility.
Fix comments and doc strings.
---
doc/auctex.texi | 2 +-
latex.el | 21 ++++++++++++---------
2 files changed, 13 insertions(+), 10 deletions(-)
diff --git a/doc/auctex.texi b/doc/auctex.texi
index 9761ba7..6fd65a8 100644
--- a/doc/auctex.texi
+++ b/doc/auctex.texi
@@ -519,7 +519,7 @@ immediately adds the corresponding right brace @samp{)},
@samp{@}} or
@samp{]}. The point is left after the opening brace. If there is an
active region, braces are put around it.
-They recognize the preceeding backslash or size adjusting macros such
+They recognize the preceding backslash or size adjusting macros such
as @samp{\left}, @samp{\bigl} etc., so the following completions will
occur:
@itemize @bullet
diff --git a/latex.el b/latex.el
index 98621ff..9cb97de 100644
--- a/latex.el
+++ b/latex.el
@@ -2764,9 +2764,8 @@ string."
(defun TeX-arg-insert-right-brace-maybe (optional)
"Insert the suitable right brace macro such as \\rangle.
Insertion is done when `TeX-arg-right-insert-p' is non-nil.
-If the left brace macro is preceeded by \\left, \\bigl etc.,
-supply the corresponding macro such as \\right before the right brace macro.
-OPTIONAL is ignored."
+If the left brace macro is preceded by \\left, \\bigl etc.,
+supply the corresponding macro such as \\right before the right brace macro."
;; Nothing is done when TeX-arg-right-insert-p is nil.
(when TeX-arg-right-insert-p
(let (left-brace left-macro)
@@ -2776,9 +2775,9 @@ OPTIONAL is ignored."
(point)
(progn (backward-word) (backward-char)
(point)))
- ;; Obtain the name of preceeding left macro, if any,
+ ;; Obtain the name of preceding left macro, if any,
;; such as "left", "bigl" etc.
- left-macro (LaTeX-find-preceeding-left-macro-name)))
+ left-macro (LaTeX--find-preceding-left-macro-name)))
(save-excursion
(if (TeX-active-mark)
(goto-char (mark)))
@@ -2817,9 +2816,9 @@ Normally bound to keys \(, { and [."
;; Otherwise, don't search for left macros.
(setq skip-p t)))
(unless skip-p
- ;; Obtain the name of preceeding left macro, if any,
+ ;; Obtain the name of preceding left macro, if any,
;; such as "left", "bigl" etc.
- (setq lmacro (LaTeX-find-preceeding-left-macro-name))))
+ (setq lmacro (LaTeX--find-preceding-left-macro-name))))
(let ((TeX-arg-right-insert-p t)
;; "{" and "}" are paired temporally so that typing
;; a single "{" should insert a pair "{}".
@@ -2867,9 +2866,9 @@ is nil, consult user which brace should be used."
(or rbrace "."))) TeX-left-right-braces
nil nil nil nil (or rbrace ".")))))))
-(defun LaTeX-find-preceeding-left-macro-name ()
+(defun LaTeX--find-preceding-left-macro-name ()
"Return the left macro name just before the point, if any.
-If the preceeding macro isn't left macros such as \\left, \\bigl etc.,
+If the preceding macro isn't left macros such as \\left, \\bigl etc.,
return nil.
If the point is just after unescaped `TeX-esc', return the null string."
;; \left-!- => "left"
@@ -2891,6 +2890,10 @@ If the point is just after unescaped `TeX-esc', return
the null string."
(or (string= name "")
(assoc name LaTeX-left-right-macros-association)))
name)))
+(define-obsolete-function-alias
+ 'LaTeX-find-preceeding-left-macro-name
+ #'LaTeX--find-preceding-left-macro-name "AUCTeX 12.2"
+ "Compatibility function for typo in its name.")
(defcustom LaTeX-default-author 'user-full-name
"Initial input to `LaTeX-arg-author' prompt.
