diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2018-06-24 10:57:12 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2018-06-24 10:57:54 -0400 |
| commit | 7488de4f277f1396eaa7fe7322fa599dacaf8882 (patch) | |
| tree | 1385c4352f5db3f3aa943bfc31cf5baa8e58fc82 /lisp/emacs-lisp | |
| parent | 0b69807015d2d6d6c0ee5e7c6400e63ef1c97ff8 (diff) | |
| download | emacs-7488de4f277f1396eaa7fe7322fa599dacaf8882.tar.gz emacs-7488de4f277f1396eaa7fe7322fa599dacaf8882.tar.bz2 emacs-7488de4f277f1396eaa7fe7322fa599dacaf8882.zip | |
* lisp/emacs-lisp/regexp-opt.el (regexp-opt): Fix docstring quotes.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/regexp-opt.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el index 3e05b6cb8c9..8de4959c10a 100644 --- a/lisp/emacs-lisp/regexp-opt.el +++ b/lisp/emacs-lisp/regexp-opt.el @@ -117,12 +117,12 @@ than that of a simplified version: (defun simplified-regexp-opt (strings &optional paren) (let ((parens (cond ((stringp paren) (cons paren \"\\\\)\")) - ((eq paren 'words) '(\"\\\\\\=<\\\\(\" . \"\\\\)\\\\>\")) - ((eq paren 'symbols) '(\"\\\\_<\\\\(\" . \"\\\\)\\\\_>\")) - ((null paren) '(\"\\\\(?:\" . \"\\\\)\")) - (t '(\"\\\\(\" . \"\\\\)\"))))) + ((eq paren \\='words) \\='(\"\\\\\\=<\\\\(\" . \"\\\\)\\\\>\")) + ((eq paren \\='symbols) \\='(\"\\\\_<\\\\(\" . \"\\\\)\\\\_>\")) + ((null paren) \\='(\"\\\\(?:\" . \"\\\\)\")) + (t \\='(\"\\\\(\" . \"\\\\)\"))))) (concat (car paren) - (mapconcat 'regexp-quote strings \"\\\\|\") + (mapconcat \\='regexp-quote strings \"\\\\|\") (cdr paren))))" (save-match-data ;; Recurse on the sorted list. |