andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(regexp-opt-group): Use substring-no-properties for correct handling

Browse source 
of unibyte strings.
This commit is contained in:
Chong Yidong 2008-04-09 04:29:43 +00:00
parent 2d9653c498
commit 75407435b1
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -226,7 +226,7 @@ This means the number of non-shy regexp grouping constructs
;; Otherwise, divide the list into those that start with a
;; particular letter and those that do not, and recurse on them.
(let* ((char (char-to-string (string-to-char (car strings))))
(let* ((char (substring-no-properties (car strings) 0 1))
(half1 (all-completions char strings))
(half2 (nthcdr (length half1) strings)))
(concat open-group