branch: externals/auctex
commit 1e397682876ff9ff2bfe393fcd36480e46019992
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@gnu.org>
Robustify in-buffer completion for surrounding comments
* latex.el (LaTeX-completion-find-argument-boundaries): Fix the
function name.
Ignore comments when finding possible boundaries of an argument.
(LaTeX--arguments-completion-at-point): Use the new name.
---
latex.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/latex.el b/latex.el
index 36177c4847..1f84598d4e 100644
--- a/latex.el
+++ b/latex.el
@@ -8079,8 +8079,8 @@ ARG is the entry for the current argument in buffer
stored in
(t nil)))))
-(defun LaTeX-completion-find-argument-boundries (&rest args)
- "Find the boundries of the current LaTeX argument.
+(defun LaTeX-completion-find-argument-boundaries (&rest args)
+ "Find the boundaries of the current LaTeX argument.
ARGS are characters passed to the function
`TeX-search-syntax-table'. If ARGS are omitted, all characters
defined in the variable `LaTeX-completion-macro-delimiters' are
@@ -8088,7 +8088,8 @@ taken."
(save-restriction
(narrow-to-region (line-beginning-position -40)
(line-beginning-position 40))
- (let ((args (or args (LaTeX-completion-macro-delimiters))))
+ (let ((args (or args (LaTeX-completion-macro-delimiters)))
+ (parse-sexp-ignore-comments t))
(condition-case nil
(with-syntax-table (apply #'TeX-search-syntax-table args)
(scan-lists (point) 1 1))
@@ -8100,7 +8101,7 @@ Completion for macros starting with `\\' is provided by
the
function `TeX--completion-at-point' which should come first in
`completion-at-point-functions'."
;; Exit if not inside an argument or in a comment:
- (when (and (LaTeX-completion-find-argument-boundries)
+ (when (and (LaTeX-completion-find-argument-boundaries)
(not (nth 4 (syntax-ppss))))
(let ((entry (LaTeX-what-macro)))
(cond ((and entry
