diff options
| author | Gerd Moellmann <[email protected]> | 2000-09-29 08:46:30 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 2000-09-29 08:46:30 +0000 |
| commit | 4e9b8ebe4eaf8fd36bc517528bc818956f1d4b8a (patch) | |
| tree | 8722e05d195ed8a048eab5adad2494b817ca2e03 /lisp/textmodes | |
| parent | 6f5ac60d61defda8325e598df48aec02ad04ec5f (diff) | |
(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.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index beb468c0ca..99f0d9d0e9 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 () |