[elpa] externals/auctex 3536b06 48/78: Use default argument of completing-read.

[Tassilo Horn]

branch: externals/auctex
commit 3536b0645aebbac75f713cf7e2c9d052aaa4183f
Author: Mosè Giordano <address@hidden>
Commit: Mosè Giordano <address@hidden>

    Use default argument of completing-read.
    
    * tex.el (TeX-doc): Use default argument of `completing-read'.
---
 ChangeLog |    4 ++++
 tex.el    |   13 ++++++-------
 2 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 94040d4..a585737 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2015-09-24  Mos� Giordano  <address@hidden>
+
+       * tex.el (TeX-doc): Use default argument of `completing-read'.
+
 2015-09-22  Tassilo Horn  <address@hidden>
 
        * latex.el (LaTeX-find-matching-end): Find correct end when point
diff --git a/tex.el b/tex.el
index 1c9b95b..e7c54be 100644
--- a/tex.el
+++ b/tex.el
@@ -6120,13 +6120,12 @@ NAME may be a package, a command, or a document."
          (dolist (elt docs)
            (setq completions (nconc (mapcar 'list (car elt)) completions)))
          ;; Query user.
-         (setq doc (completing-read
-                    (if contained
-                        (format "Package, command, or document (default %s): "
-                                symbol)
-                      "Package, command, or document: ")
-                    completions))
-         (setq name (if (string= doc "") symbol doc))))
+         (setq name (completing-read
+                     (if contained
+                         (format "Package, command, or document (default %s): "
+                                 symbol)
+                       "Package, command, or document: ")
+                     completions nil nil nil nil symbol))))
       (if (not name)
          (message "No documentation specified")
        ;; XXX: Provide way to choose in case a symbol can be found in