procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix completing-read call in reb-change-syntax

Browse source 
* lisp/emacs-lisp/re-builder.el (reb-change-syntax): Use 'default' arg
of completing-read.

Copyright-paperwork-exempt: yes
This commit is contained in:
Chunyang Xu 2017-02-11 14:17:26 +08:00 • committed by Noam Postavsky
parent 71871670c8
commit 55c0c3e31b
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/re-builder.el
View file

@ -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)))