diff options
| author | Michal Nazarewicz <mina86@mina86.com> | 2016-09-05 20:01:23 +0200 |
|---|---|---|
| committer | Michal Nazarewicz <mina86@mina86.com> | 2016-09-09 03:07:15 +0200 |
| commit | 4516130d5a4bec47e86bdf560a1375740b6bb110 (patch) | |
| tree | 3baa5e5cf2c6422506ade7609814fc20063c0e5d | |
| parent | 0e7eb64076c17b3252249aa2a3ef340ce9f395bb (diff) | |
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.
| -rw-r--r-- | lisp/emacs-lisp/regexp-opt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el index b1e132a76e..cf6653046b 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 "")) |