[elpa] externals/auctex a853f3fed7 2/2: Improve insertion of \item (bug#74056)

[ELPA Syncer]

branch: externals/auctex
commit a853f3fed7ef3648ecd9a31e0f5102cb5401a95d
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>

    Improve insertion of \item (bug#74056)
    
    * latex.el (LaTeX-insert-item): On whitespace-only line, use that line
    to put \item and don't create a new line after it.
    * tests/latex/latex-test.el (LaTeX-insert-item-in-whitespace-only-line):
    New test.
---
 latex.el                  | 13 ++++++++++++-
 tests/latex/latex-test.el | 18 ++++++++++++++++++
 2 files changed, 30 insertions(+), 1 deletion(-)

diff --git a/latex.el b/latex.el
index 5e1c628c57..91aa16b5af 100644
--- a/latex.el
+++ b/latex.el
@@ -1535,7 +1535,18 @@ You may use `LaTeX-item-list' to change the routines 
used to insert the item."
     (when (and (TeX-active-mark)
                (> (point) (mark)))
       (exchange-point-and-mark))
-    (unless (bolp) (LaTeX-newline))
+    (if (save-excursion
+          ;; If the current line has only whitespace characters, put
+          ;; the new \item on this line, not creating a new line
+          ;; below.
+          (goto-char (line-beginning-position))
+          (if LaTeX-insert-into-comments
+              (re-search-forward
+               (concat "\\=" TeX-comment-start-regexp "+")
+               (line-end-position) t))
+          (looking-at "[ \t]*$"))
+        (delete-region (match-beginning 0) (match-end 0))
+      (LaTeX-newline))
     (if (assoc environment LaTeX-item-list)
         (funcall (cdr (assoc environment LaTeX-item-list)))
       (TeX-insert-macro "item"))
diff --git a/tests/latex/latex-test.el b/tests/latex/latex-test.el
index e22d2a0835..d7d202fc9b 100644
--- a/tests/latex/latex-test.el
+++ b/tests/latex/latex-test.el
@@ -730,4 +730,22 @@ check the indentation for optional argument of 
\\usepackage."
              (insert-file-contents docTeX/out)
              (buffer-string)))))
 
+;; bug#74056
+(ert-deftest LaTeX-insert-item-in-whitespace-only-line ()
+  "Test if `LaTeX-insert-item' doesn't insert spurious line."
+  (with-temp-buffer
+    (LaTeX-mode)
+    (insert "\
+\\begin{itemize}
+\\item abc
+\s\s\t")
+    (backward-char 1)
+    (LaTeX-insert-item)
+    (should (string=
+             (buffer-string)
+             "\
+\\begin{itemize}
+\\item abc
+\\item "))))
+
 ;;; latex-test.el ends here