master 982b2057 1/3: * style/ltxdoc.el ("ltxdoc"): Replace `TeX-arg-eval'.

[Arash Esbati]

branch: master
commit 982b20571c07cb7a8936e4465176c8823e145ad3
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    * 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)