monnier pushed a commit to branch externals/auctex
in repository elpa.
commit 9917ced65cb5679387f2fa858e8618f2d8a23f18
Author: Mosè Giordano <[email protected]>
Date: Wed Oct 29 13:13:06 2014 +0100
Fix in LaTeX-largest-level-set for XEmacs compatibility.
* latex.el (LaTeX-largest-level-set): Set `outline-heading-alist'
only if it is bound.
---
ChangeLog | 3 +++
latex.el | 4 +++-
2 files changed, 6 insertions(+), 1 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 32afec3..897a9b8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2014-10-29 Mos� Giordano <[email protected]>
+ * latex.el (LaTeX-largest-level-set): Set `outline-heading-alist'
+ only if it is bound.
+
* .gitignore: Ignore preview/preview.el.
* Makefile.in (DISTCLEANFILES): Add preview/preview.el.
diff --git a/latex.el b/latex.el
index 565807b..33e4720 100644
--- a/latex.el
+++ b/latex.el
@@ -287,7 +287,9 @@ Additionally the function will invalidate the section
submenu in
order to let the menu filter regenerate it."
(setq LaTeX-largest-level (LaTeX-section-level section))
(let ((offset (LaTeX-outline-offset)))
- (when (> offset 0)
+ (when (and (> offset 0)
+ ;; XEmacs does not know `outline-heading-alist'.
+ (boundp 'outline-heading-alist))
(let (lst)
(dolist (tup outline-heading-alist)
(setq lst (cons (cons (car tup)
