[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 1a2060af: * style/pdfpages.el ("pdfpages"): Replace `TeX-arg-eval
From: |
Arash Esbati |
Subject: |
master 1a2060af: * style/pdfpages.el ("pdfpages"): Replace `TeX-arg-eval'. |
Date: |
Sat, 25 Mar 2023 18:14:51 -0400 (EDT) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 1a2060af: * style/pdfpages.el ("pdfpages"): Replace `TeX-arg-eval'.,
Arash Esbati <=