git-svn-id: svn://bknr.net/svn/trunk/thirdparty/cl-ppcre@4620 4281704c-cde7-0310-8518-8e2dc76b1ff0
This commit is contained in:
Edi Weitz
2010-10-20 12:05:40 +00:00
parent 6496f7c843
commit be81a49e00
2 changed files with 3 additions and 3 deletions

View File

@ -1224,8 +1224,8 @@ sections. These sections may nest."
(let* ((*use-bmh-matchers* nil)
(comment-scanner (create-scanner "(?s)\\(\\?#.*?\\)"))
(extended-comment-scanner (create-scanner "(?m:#.*?$)|(?s:\\(\\?#.*?\\))"))
(quote-token-scanner "\\\\[QE]")
(quote-token-replace-scanner "\\\\([QE])"))
(quote-token-scanner (create-scanner "\\\\[QE]"))
(quote-token-replace-scanner (create-scanner "\\\\([QE])")))
(defun clean-comments (string &optional extended-mode)
"Clean \(?#...) comments within STRING for quoting, i.e. convert
\\Q to Q and \\E to E. If EXTENDED-MODE is true, also clean