[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 7488de4: * lisp/emacs-lisp/regexp-opt.el (regexp-
From: |
Noam Postavsky |
Subject: |
[Emacs-diffs] emacs-26 7488de4: * lisp/emacs-lisp/regexp-opt.el (regexp-opt): Fix docstring quotes. |
Date: |
Sun, 24 Jun 2018 11:00:09 -0400 (EDT) |
branch: emacs-26
commit 7488de4f277f1396eaa7fe7322fa599dacaf8882
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>
* lisp/emacs-lisp/regexp-opt.el (regexp-opt): Fix docstring quotes.
---
lisp/emacs-lisp/regexp-opt.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index 3e05b6c..8de4959 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 7488de4: * lisp/emacs-lisp/regexp-opt.el (regexp-opt): Fix docstring quotes.,
Noam Postavsky <=