bug-auctex
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#20685: 2015-04-19; args-out-of-range error when no newline at eob.


From: Nicolas Richard
Subject: bug#20685: 2015-04-19; args-out-of-range error when no newline at eob.
Date: Thu, 28 May 2015 20:42:33 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux)

Hi,

This one often bites me when I'm in a narrowed buffer.

Here's a backtrace from a minimal recipe (which is in the backtrace).

Debugger entered--Lisp error: (args-out-of-range #<buffer temp> 57 58)
  buffer-substring-no-properties(57 58)
  LaTeX-backward-paragraph()
  LaTeX-fill-region(41 57 nil " environment document")
  LaTeX-fill-environment(nil)
  call-interactively(LaTeX-fill-environment)
  (let ((data 
"\\documentclass{minimal}\n\\begin{document}\n\n\\end{document}")) 
(switch-to-buffer (get-buffer-create "temp")) (TeX-latex-mode) (insert data) 
(search-backward "\n\n") (call-interactively (quote LaTeX-fill-environment)))
  eval-buffer(#<buffer  *load*> nil 
"/home/youngfrog/tmp-test-auctex-filling.el" nil t)  ; Reading at buffer 
position 319
  load-with-code-conversion("/home/youngfrog/tmp-test-auctex-filling.el" 
"/home/youngfrog/tmp-test-auctex-filling.el" nil t)
  load("/home/youngfrog/tmp-test-auctex-filling.el" nil t)
  command-line-1(("-l" "/home/youngfrog/tmp-test-auctex-filling.el"))
  command-line()
  normal-top-level()

I suggest the following change:

--8<---------------cut here---------------start------------->8---
modified   latex.el
@@ -4475,10 +4475,7 @@ If COUNT is non-nil, do it COUNT times."
                                                "address@hidden|[ \t]*\\($\\|"
                                                TeX-comment-start-regexp "\\)"))
                            (progn
-                             (when (string= (buffer-substring-no-properties
-                                             (point) (+ (point)
-                                                        (length TeX-esc)))
-                                            TeX-esc)
+                             (when (looking-at (regexp-quote TeX-esc))
                                (goto-char (TeX-find-macro-end)))
                              (forward-line 1)
                              (when (< (point) start)
--8<---------------cut here---------------end--------------->8---





reply via email to

[Prev in Thread] Current Thread [Next in Thread]