branch: externals/auctex
commit 1a2060af30258bab872d2f3a607f863a7be9e6b5
Author: Arash Esbati <[email protected]>
Commit: Arash Esbati <[email protected]>
* 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 2fd44a7d19..ed32e9ca44 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 <[email protected]>
;; Maintainer: [email protected]
@@ -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
