mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

* lisp/character-fold.el (character-fold-to-regexp): Fix case

Browse Source 
where string ends in space
This commit is contained in:
Artur Malabarba 2015-10-28 15:50:17 +00:00
parent 7dfe247864
commit 020e850557
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/character-fold.el
View File

@ -101,6 +101,13 @@
equiv))
"Used for folding characters of the same group during search.")
(defun character-fold--make-space-string (n)
"Return a string that matches N spaces."
(format "\\(?:%s\\|%s\\)"
(make-string n ?\s)
(apply #'concat
(make-list n (or (aref character-fold-table ?\s) " ")))))
;;;###autoload
(defun character-fold-to-regexp (string &optional _lax)
"Return a regexp matching anything that character-folds into STRING.
@ -121,18 +128,16 @@ regexp) and other characters are `regexp-quote'd."
(setq spaces (1+ spaces))
nil)
((> spaces 0)
(prog1 (format "\\(?:%s\\|%s\\)%s"
(make-string spaces ?\s)
(apply #'concat
(make-list spaces
(or (aref character-fold-table ?\s) " ")))
(prog1 (concat (character-fold--make-space-string spaces)
(or (aref character-fold-table c)
(regexp-quote (string c))))
(setq spaces 0)))
(t (or (aref character-fold-table c)
(regexp-quote (string c))))))
(setq chars (cdr chars))))
(apply #'concat out)))
(concat (apply #'concat out)
(when (> spaces 0)
(character-fold--make-space-string spaces)))))
;;; Commands provided for completeness.