]> git.eshelyaron.com Git - emacs.git/commitdiff
(latex-outline-regexp): Don't use `list*';
authorGerd Moellmann <gerd@gnu.org>
Fri, 29 Sep 2000 08:46:30 +0000 (08:46 +0000)
committerGerd Moellmann <gerd@gnu.org>
Fri, 29 Sep 2000 08:46:30 +0000 (08:46 +0000)
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.

lisp/textmodes/tex-mode.el

index beb468c0ca1c69cf3a7c5db5db21eb8a3d6c3c0c..99f0d9d0e9390827734278207d834857ae6c21ca 100644 (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 ()