(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.

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index beb468c0ca1..99f0d9d0e93 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -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 ()