[Emacs-diffs] master 55c0c3e 3/3: Fix completing-read call in reb-change-syntax

[Noam Postavsky]

branch: master
commit 55c0c3e31bc3dff83753cdba6288228bd025ac84
Author: Chunyang Xu <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Fix completing-read call in reb-change-syntax
    
    * lisp/emacs-lisp/re-builder.el (reb-change-syntax): Use 'default' arg
    of completing-read.
    
    Copyright-paperwork-exempt: yes
---
 lisp/emacs-lisp/re-builder.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el
index 5264dae..f60d723 100644
--- a/lisp/emacs-lisp/re-builder.el
+++ b/lisp/emacs-lisp/re-builder.el
@@ -488,10 +488,10 @@ If the optional PAUSE is non-nil then pause at the end in 
any case."
 Optional argument SYNTAX must be specified if called non-interactively."
   (interactive
    (list (intern
-         (completing-read "Select syntax: "
-                          (mapcar (lambda (el) (cons (symbol-name el) 1))
-                                  '(read string sregex rx))
-                          nil t (symbol-name reb-re-syntax)))))
+         (completing-read
+          (format "Select syntax (default %s): " reb-re-syntax)
+          '(read string sregex rx)
+          nil t nil nil (symbol-name reb-re-syntax)))))
 
   (if (memq syntax '(read string sregex rx))
       (let ((buffer (get-buffer reb-buffer)))