From: Michal Nazarewicz <mina86@mina86.com>
Date: Mon, 5 Sep 2016 18:01:23 +0000 (+0200)
Subject: Don’t allocate char-table’s extra slots in regexp-out-charset
X-Git-Tag: emacs-26.0.90~1629
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4516130d5a4bec47e86bdf560a1375740b6bb110;p=emacs.git

Don’t allocate char-table’s extra slots in regexp-out-charset

* lisp/emacs-lisp/regexp-opt.el (regexp-opt-charset): Do not use
'case-table as charmap char-table’s property.  The function has nothing
to do with casing and in addition using 'case-table causes unnecessary
extra slots to be allocated which ‘regexp-opt-charset’ does not use.
---

diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index b1e132a76e3..cf6653046b5 100644
--- a/lisp/emacs-lisp/regexp-opt.el
+++ b/lisp/emacs-lisp/regexp-opt.el
@@ -236,7 +236,7 @@ CHARS should be a list of characters."
   ;; The basic idea is to find character ranges.  Also we take care in the
   ;; position of character set meta characters in the character set regexp.
   ;;
-  (let* ((charmap (make-char-table 'case-table))
+  (let* ((charmap (make-char-table 'regexp-opt-charset))
 	 (start -1) (end -2)
 	 (charset "")
 	 (bracket "") (dash "") (caret ""))