branch: master
commit 982b20571c07cb7a8936e4465176c8823e145ad3
Author: Arash Esbati <[email protected]>
Commit: Arash Esbati <[email protected]>
* style/ltxdoc.el ("ltxdoc"): Replace `TeX-arg-eval'.
---
style/ltxdoc.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/style/ltxdoc.el b/style/ltxdoc.el
index 48040c46..112a9b2b 100644
--- a/style/ltxdoc.el
+++ b/style/ltxdoc.el
@@ -56,17 +56,17 @@
'("oarg" "Optional argument")
'("parg" "Picture mode argument")
- '("DocInclude"
- (TeX-arg-eval
- (lambda ()
+ `("DocInclude"
+ ,(lambda (optional)
(let ((file (file-relative-name
(read-file-name
- "File to include: " nil nil nil nil
+ (TeX-argument-prompt optional nil "File to include")
+ nil nil nil nil
(lambda (x)
(or (file-directory-p x)
(string-match "\\.\\(fdd\\|dtx\\)\\'" x))))
(TeX-master-directory))))
- (format "%s" file))))))
+ (TeX-argument-insert file optional)))))
;; Fontification
(when (and (featurep 'font-latex)
