mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(latex-outline-regexp): Don't use `list*';

Browse Source 
it's a function from CL.
(latex-imenu-create-index): Replace eval-when-compile with progn
because latex-section-alist is not bound while compiling.
This commit is contained in:
Gerd Moellmann 2000-09-29 08:46:30 +00:00
parent 6f5ac60d61
commit 4e9b8ebe4e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/textmodes/tex-mode.el
View File

@ -297,7 +297,7 @@ An alternative value is \" . \", if you use a font with a narrow period."
;; Look for chapters and sections.
(goto-char (point-min))
(while (search-forward-regexp
(eval-when-compile
(progn
(concat "\\\\" (regexp-opt (mapcar 'car latex-section-alist) t)
"\\*?[ \t]*{")) nil t)
(let ((start (match-beginning 0))
@ -1467,8 +1467,9 @@ Runs the shell command defined by `tex-show-queue-command'."
(defvar latex-outline-regexp
(concat "\\\\"
(regexp-opt (list* "documentstyle" "documentclass"
"begin{document}" "end{document}" "appendix"
(regexp-opt (nconc (list "documentstyle" "documentclass"
"begin{document}" "end{document}"
"appendix")
(mapcar 'car latex-section-alist)) t)))
(defun latex-outline-level ()