Commit 6466bb34 authored by Kenichi Handa's avatar Kenichi Handa

(regexp-opt-charset): Adjusted for the

change of map-char-table.
parent 47351009
......@@ -258,13 +258,21 @@ so we can use character sets rather than grouping parenthesis."
(map-char-table
(lambda (c v)
(when v
(if (= (1- c) end) (setq end c)
(if (> end (+ start 2))
(if (consp c)
(if (= (1- (car c)) end) (setq end (cdr c))
(if (> end (+ start 2))
(setq charset (format "%s%c-%c" charset start end))
(while (>= end start)
(setq charset (format "%s%c" charset start))
(incf start)))
(setq start (car c) end (cdr c)))
(if (= (1- c) end) (setq end c)
(if (> end (+ start 2))
(setq charset (format "%s%c-%c" charset start end))
(while (>= end start)
(setq charset (format "%s%c" charset start))
(incf start)))
(setq start c end c))))
(setq start c end c)))))
charmap)
(when (>= end start)
(if (> end (+ start 2))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment