monnier pushed a commit to branch externals/auctex
in repository elpa.
commit e6bcd3a0c5864fca0b029f316e0add69ce04c8e0
Author: Mosè Giordano <[email protected]>
Date: Sat Mar 15 12:59:26 2014 +0100
Prevent an infinite loop in TeX-command-expand.
* tex.el (TeX-view-command-raw): Throw an error when `spec' is
nil, otherwise when the function returns nil `TeX-command-expand'
enters an infinite loop.
---
ChangeLog | 4 ++++
tex.el | 4 ++++
2 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index ab2c75c..f0ca214 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2014-03-15 Mos� Giordano <[email protected]>
+ * tex.el (TeX-view-command-raw): Throw an error when `spec' is
+ nil, otherwise when the function returns nil `TeX-command-expand'
+ enters an infinite loop.
+
* style/paralist.el: Update copyright years.
("paralist"): Use `LaTeX-provided-package-options-member' to
conditionally define environments.
diff --git a/tex.el b/tex.el
index 23e99a0..796b1d8 100644
--- a/tex.el
+++ b/tex.el
@@ -1304,6 +1304,10 @@ predicates are true, nil otherwise."
(prin1-to-string spec))
((stringp spec)
spec)
+ ((null spec)
+ (error
+ (format "Unknown %S viewer. \
+Check the `TeX-view-program-selection' variable." viewer)))
(t
;; Build the unexpanded command line. Pieces with predicates are
;; only added if the predicate is evaluated positively.
