branch: externals/auctex
commit 635107861b47f98ac66dea19efe7ab9216c71e96
Author: Mosè Giordano <[email protected]>
Commit: Mosè Giordano <[email protected]>
Use LaTeX-style-list for default classes completion.
* latex.el (TeX-arg-document): When `TeX-arg-input-file-search' is
nil, use `LaTeX-style-list' to complete document classes. Fixes
bug#21814.
---
ChangeLog | 6 ++++++
latex.el | 16 ++++++++--------
2 files changed, 14 insertions(+), 8 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index ca1d4e3..000c652 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2015-11-02 Mos� Giordano <[email protected]>
+
+ * latex.el (TeX-arg-document): When `TeX-arg-input-file-search' is
+ nil, use `LaTeX-style-list' to complete document classes. Fixes
+ bug#21814.
+
2015-10-28 Tassilo Horn <[email protected]>
* latex.el (LaTeX-fill-break-at-separators): Default to nil
diff --git a/latex.el b/latex.el
index 72d8f85..be466b8 100644
--- a/latex.el
+++ b/latex.el
@@ -2052,14 +2052,14 @@ OPTIONAL and IGNORE are ignored."
(crm-separator ",")
style var options)
(unless LaTeX-global-class-files
- (if (if (eq TeX-arg-input-file-search 'ask)
- (not (y-or-n-p "Find class yourself? "))
- TeX-arg-input-file-search)
- (progn
- (message "Searching for LaTeX classes...")
- (setq LaTeX-global-class-files
- (mapcar 'identity (TeX-search-files-by-type 'texinputs
'global t t))))
- LaTeX-style-list))
+ (setq LaTeX-global-class-files
+ (if (if (eq TeX-arg-input-file-search 'ask)
+ (not (y-or-n-p "Find class yourself? "))
+ TeX-arg-input-file-search)
+ (progn
+ (message "Searching for LaTeX classes...")
+ (mapcar 'identity (TeX-search-files-by-type 'texinputs
'global t t)))
+ LaTeX-style-list)))
(setq style (completing-read
(concat "Document class: (default " LaTeX-default-style ") ")
LaTeX-global-class-files nil nil nil nil LaTeX-default-style))
