master 1a2060af: * style/pdfpages.el ("pdfpages"): Replace `TeX-arg-eval'.

[Arash Esbati]

branch: master
commit 1a2060af30258bab872d2f3a607f863a7be9e6b5
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    * style/pdfpages.el ("pdfpages"): Replace `TeX-arg-eval'.
---
 style/pdfpages.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/style/pdfpages.el b/style/pdfpages.el
index 2fd44a7d..ed32e9ca 100644
--- a/style/pdfpages.el
+++ b/style/pdfpages.el
@@ -1,6 +1,6 @@
 ;;; pdfpages.el --- AUCTeX style for `pdfpages.sty' (v0.4v)  -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2015--2023 Free Software Foundation, Inc.
 
 ;; Author: Arash Esbati <arash@gnu.org>
 ;; Maintainer: auctex-devel@gnu.org
@@ -102,18 +102,18 @@
 
    (TeX-add-symbols
     ;; \includepdf[<options>]{<filename>}
-    '("includepdf"
+    `("includepdf"
       [TeX-arg-key-val LaTeX-pdfpages-key-val-options]
-      (TeX-arg-eval
-       (lambda ()
+      ,(lambda (optional)
          (let ((pdffile (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 (pdfs)
                             (or (file-directory-p pdfs)
                                 (string-match "\\.pdf\\'" pdfs))))
                          (TeX-master-directory))))
-           (format "%s" pdffile)))))
+           (TeX-argument-insert pdffile optional))))
 
     ;; \includepdfmerge[<options>]{<file-page-list>}
     ;; The mandatory argument is complex, we just insert a pair of