diff options
| author | Chunyang Xu <mail@xuchunyang.me> | 2017-02-11 14:17:26 +0800 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-03-02 19:01:18 -0500 |
| commit | 55c0c3e31bc3dff83753cdba6288228bd025ac84 (patch) | |
| tree | 02dc2ec65992e490e9d3fc6cc5e603d248a215b1 /lisp/emacs-lisp/re-builder.el | |
| parent | 71871670c816f2ecc4383ef0fe516cbd9c9f781f (diff) | |
| download | emacs-55c0c3e31bc3dff83753cdba6288228bd025ac84.tar.gz emacs-55c0c3e31bc3dff83753cdba6288228bd025ac84.tar.bz2 emacs-55c0c3e31bc3dff83753cdba6288228bd025ac84.zip | |
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
Diffstat (limited to 'lisp/emacs-lisp/re-builder.el')
| -rw-r--r-- | lisp/emacs-lisp/re-builder.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el index 5264dae52ae..f60d723a883 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))) |