Mercurial > emacs
changeset 31990:170342999dcc
(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.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 29 Sep 2000 08:46:30 +0000 |
| parents | be8ff7580414 |
| children | 9f3e98c1221e |
| files | lisp/textmodes/tex-mode.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/tex-mode.el Fri Sep 29 06:47:05 2000 +0000 +++ b/lisp/textmodes/tex-mode.el Fri Sep 29 08:46:30 2000 +0000 @@ -297,7 +297,7 @@ ;; 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 @@ (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 ()