mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(regexp-opt-charset): Adjusted for the

Browse source 
change of map-char-table.
This commit is contained in:
Kenichi Handa 2002-03-01 02:01:36 +00:00
parent 47351009e6
commit 6466bb34d9
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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))