Mercurial > emacs

changeset 93892:877d364e5ff6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(regexp-opt-group): Use substring-no-properties for correct handling of unibyte strings.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 09 Apr 2008 04:29:43 +0000
parents c3a6b4a9a15b
children ff99dcb2b31b
files lisp/emacs-lisp/regexp-opt.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/regexp-opt.el	Wed Apr 09 04:28:45 2008 +0000
+++ b/lisp/emacs-lisp/regexp-opt.el	Wed Apr 09 04:29:43 2008 +0000
@@ -226,7 +226,7 @@
 
 	      ;; 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