diff options
| author | Chunyang Xu | 2017-02-11 14:17:26 +0800 |
|---|---|---|
| committer | Noam Postavsky | 2017-03-02 19:01:18 -0500 |
| commit | 55c0c3e31bc3dff83753cdba6288228bd025ac84 (patch) | |
| tree | 02dc2ec65992e490e9d3fc6cc5e603d248a215b1 | |
| parent | 71871670c816f2ecc4383ef0fe516cbd9c9f781f (diff) | |
| download | emacs-55c0c3e31bc3dff83753cdba6288228bd025ac84.tar.gz 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
| -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." | |||
| 488 | Optional argument SYNTAX must be specified if called non-interactively." | 488 | Optional argument SYNTAX must be specified if called non-interactively." |
| 489 | (interactive | 489 | (interactive |
| 490 | (list (intern | 490 | (list (intern |
| 491 | (completing-read "Select syntax: " | 491 | (completing-read |
| 492 | (mapcar (lambda (el) (cons (symbol-name el) 1)) | 492 | (format "Select syntax (default %s): " reb-re-syntax) |
| 493 | '(read string sregex rx)) | 493 | '(read string sregex rx) |
| 494 | nil t (symbol-name reb-re-syntax))))) | 494 | nil t nil nil (symbol-name reb-re-syntax))))) |
| 495 | 495 | ||
| 496 | (if (memq syntax '(read string sregex rx)) | 496 | (if (memq syntax '(read string sregex rx)) |
| 497 | (let ((buffer (get-buffer reb-buffer))) | 497 | (let ((buffer (get-buffer reb-buffer))) |