diff options
| author | Noam Postavsky | 2018-06-24 10:57:12 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2018-06-24 10:57:54 -0400 |
| commit | 7488de4f277f1396eaa7fe7322fa599dacaf8882 (patch) | |
| tree | 1385c4352f5db3f3aa943bfc31cf5baa8e58fc82 | |
| parent | 0b69807015d2d6d6c0ee5e7c6400e63ef1c97ff8 (diff) | |
| download | emacs-7488de4f277f1396eaa7fe7322fa599dacaf8882.tar.gz emacs-7488de4f277f1396eaa7fe7322fa599dacaf8882.zip | |
* lisp/emacs-lisp/regexp-opt.el (regexp-opt): Fix docstring quotes.
| -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: | |||
| 117 | (defun simplified-regexp-opt (strings &optional paren) | 117 | (defun simplified-regexp-opt (strings &optional paren) |
| 118 | (let ((parens | 118 | (let ((parens |
| 119 | (cond ((stringp paren) (cons paren \"\\\\)\")) | 119 | (cond ((stringp paren) (cons paren \"\\\\)\")) |
| 120 | ((eq paren 'words) '(\"\\\\\\=<\\\\(\" . \"\\\\)\\\\>\")) | 120 | ((eq paren \\='words) \\='(\"\\\\\\=<\\\\(\" . \"\\\\)\\\\>\")) |
| 121 | ((eq paren 'symbols) '(\"\\\\_<\\\\(\" . \"\\\\)\\\\_>\")) | 121 | ((eq paren \\='symbols) \\='(\"\\\\_<\\\\(\" . \"\\\\)\\\\_>\")) |
| 122 | ((null paren) '(\"\\\\(?:\" . \"\\\\)\")) | 122 | ((null paren) \\='(\"\\\\(?:\" . \"\\\\)\")) |
| 123 | (t '(\"\\\\(\" . \"\\\\)\"))))) | 123 | (t \\='(\"\\\\(\" . \"\\\\)\"))))) |
| 124 | (concat (car paren) | 124 | (concat (car paren) |
| 125 | (mapconcat 'regexp-quote strings \"\\\\|\") | 125 | (mapconcat \\='regexp-quote strings \"\\\\|\") |
| 126 | (cdr paren))))" | 126 | (cdr paren))))" |
| 127 | (save-match-data | 127 | (save-match-data |
| 128 | ;; Recurse on the sorted list. | 128 | ;; Recurse on the sorted list. |