Mercurial > emacs
comparison lisp/emacs-lisp/regexp-opt.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 8bfc6a0f6b3e |
| children | 645707022f8f d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 216 (concat open-group | 216 (concat open-group |
| 217 (regexp-opt-group prefixes t t) | 217 (regexp-opt-group prefixes t t) |
| 218 (regexp-quote | 218 (regexp-quote |
| 219 (concat (nreverse (string-to-list xiffus)))) | 219 (concat (nreverse (string-to-list xiffus)))) |
| 220 close-group)) | 220 close-group)) |
| 221 | 221 |
| 222 ;; Otherwise, divide the list into those that start with a | 222 ;; Otherwise, divide the list into those that start with a |
| 223 ;; particular letter and those that do not, and recurse on them. | 223 ;; particular letter and those that do not, and recurse on them. |
| 224 (let* ((char (char-to-string (string-to-char (car strings)))) | 224 (let* ((char (char-to-string (string-to-char (car strings)))) |
| 225 (half1 (all-completions char strings)) | 225 (half1 (all-completions char strings)) |
| 226 (half2 (nthcdr (length half1) strings))) | 226 (half2 (nthcdr (length half1) strings))) |