Commit 4e9b8ebe authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

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.
parent 6f5ac60d
...@@ -297,7 +297,7 @@ An alternative value is \" . \", if you use a font with a narrow period." ...@@ -297,7 +297,7 @@ An alternative value is \" . \", if you use a font with a narrow period."
;; Look for chapters and sections. ;; Look for chapters and sections.
(goto-char (point-min)) (goto-char (point-min))
(while (search-forward-regexp (while (search-forward-regexp
(eval-when-compile (progn
(concat "\\\\" (regexp-opt (mapcar 'car latex-section-alist) t) (concat "\\\\" (regexp-opt (mapcar 'car latex-section-alist) t)
"\\*?[ \t]*{")) nil t) "\\*?[ \t]*{")) nil t)
(let ((start (match-beginning 0)) (let ((start (match-beginning 0))
...@@ -1467,8 +1467,9 @@ Runs the shell command defined by `tex-show-queue-command'." ...@@ -1467,8 +1467,9 @@ Runs the shell command defined by `tex-show-queue-command'."
(defvar latex-outline-regexp (defvar latex-outline-regexp
(concat "\\\\" (concat "\\\\"
(regexp-opt (list* "documentstyle" "documentclass" (regexp-opt (nconc (list "documentstyle" "documentclass"
"begin{document}" "end{document}" "appendix" "begin{document}" "end{document}"
"appendix")
(mapcar 'car latex-section-alist)) t))) (mapcar 'car latex-section-alist)) t)))
(defun latex-outline-level () (defun latex-outline-level ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment