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

* lisp/emacs-lisp/regexp-opt.el (regexp-opt): Fix docstring quotes.

Browse source
This commit is contained in:
Noam Postavsky 2018-06-24 10:57:12 -04:00
parent 0b69807015
commit 7488de4f27
1 changed files with 5 additions and 5 deletions

10
lisp/emacs-lisp/regexp-opt.el
View file

@ -117,12 +117,12 @@ than that of a simplified version:
(defun simplified-regexp-opt (strings &optional paren) (defun simplified-regexp-opt (strings &optional paren)
(let ((parens (let ((parens
(cond ((stringp paren) (cons paren \"\\\\)\")) (cond ((stringp paren) (cons paren \"\\\\)\"))
((eq paren 'words) '(\"\\\\\\=<\\\\(\" . \"\\\\)\\\\>\")) ((eq paren \\='words) \\='(\"\\\\\\=<\\\\(\" . \"\\\\)\\\\>\"))
((eq paren 'symbols) '(\"\\\\_<\\\\(\" . \"\\\\)\\\\_>\")) ((eq paren \\='symbols) \\='(\"\\\\_<\\\\(\" . \"\\\\)\\\\_>\"))
((null paren) '(\"\\\\(?:\" . \"\\\\)\")) ((null paren) \\='(\"\\\\(?:\" . \"\\\\)\"))
(t '(\"\\\\(\" . \"\\\\)\"))))) (t \\='(\"\\\\(\" . \"\\\\)\")))))
(concat (car paren) (concat (car paren)
(mapconcat 'regexp-quote strings \"\\\\|\") (mapconcat \\='regexp-quote strings \"\\\\|\")
(cdr paren))))" (cdr paren))))"
(save-match-data (save-match-data
;; Recurse on the sorted list. ;; Recurse on the sorted list.