From 4e9b8ebe4eaf8fd36bc517528bc818956f1d4b8a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 29 Sep 2000 08:46:30 +0000 Subject: [PATCH] (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. --- lisp/textmodes/tex-mode.el | 7 ++++--- 1 file 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 () -- 2.39.2