[elpa] externals/auctex 0efe678 14/28: Improve completion of includepdf macro.

[Tassilo Horn]

branch: externals/auctex
commit 0efe67851762d1f9c00124629d5984b23cf37bd7
Author: Arash Esbati <address@hidden>
Commit: Mosè Giordano <address@hidden>

    Improve completion of includepdf macro.
    
    * style/pdfpages.el ("pdfpages"): Restrict suggested files to
    *.pdf files.  File name should be relative to master file
    directory.
    
    Signed-off-by: Mosè Giordano <address@hidden>
---
 ChangeLog         |    6 ++++++
 style/pdfpages.el |    8 ++++++--
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 599dbfa..c64649b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2015-06-14  Arash Esbati  <address@hidden>
+
+       * style/pdfpages.el ("pdfpages"): Restrict suggested files to
+       *.pdf files.  File name should be relative to master file
+       directory.
+
 2015-06-13  Mos� Giordano  <address@hidden>
 
        * tex-buf.el (TeX-LaTeX-sentinel-has-warnings, TeX-parse-error):
diff --git a/style/pdfpages.el b/style/pdfpages.el
index 8957cf7..d034668 100644
--- a/style/pdfpages.el
+++ b/style/pdfpages.el
@@ -98,8 +98,12 @@
       [TeX-arg-key-val LaTeX-pdfpages-key-val-options]
       (TeX-arg-eval
        (lambda ()
-        (let ((pdffile (file-relative-name
-                        (read-file-name "File to include: "))))
+         (let ((pdffile (file-relative-name
+                        (read-file-name
+                         "File to include: " nil nil nil nil
+                         (lambda (pdfs)
+                           (string-match "\\.pdf$" pdfs)))
+                        (TeX-master-directory))))
           (format "%s" pdffile)))))
 
     ;; \includepdfmerge[<options>]{<file-page-list>}