Commit 55c0c3e3 authored by Chunyang Xu's avatar Chunyang Xu Committed by Noam Postavsky
Browse files

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
parent 71871670
...@@ -488,10 +488,10 @@ If the optional PAUSE is non-nil then pause at the end in any case." ...@@ -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." Optional argument SYNTAX must be specified if called non-interactively."
(interactive (interactive
(list (intern (list (intern
(completing-read "Select syntax: " (completing-read
(mapcar (lambda (el) (cons (symbol-name el) 1)) (format "Select syntax (default %s): " reb-re-syntax)
'(read string sregex rx)) '(read string sregex rx)
nil t (symbol-name reb-re-syntax))))) nil t nil nil (symbol-name reb-re-syntax)))))
(if (memq syntax '(read string sregex rx)) (if (memq syntax '(read string sregex rx))
(let ((buffer (get-buffer reb-buffer))) (let ((buffer (get-buffer reb-buffer)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment