[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/regexp-opt.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/regexp-opt.el
diff -c emacs/lisp/emacs-lisp/regexp-opt.el:1.20 
emacs/lisp/emacs-lisp/regexp-opt.el:1.21
*** emacs/lisp/emacs-lisp/regexp-opt.el:1.20    Tue Jan  8 19:31:50 2002
--- emacs/lisp/emacs-lisp/regexp-opt.el Tue Jun 18 17:52:42 2002
***************
*** 192,198 ****
       ;;
       ;; We have a list of different length strings.
       (t
!       (let ((prefix (try-completion "" (mapcar 'list strings))))
        (if (> (length prefix) 0)
            ;; common prefix: take it and recurse on the suffixes.
            (let* ((n (length prefix))
--- 192,198 ----
       ;;
       ;; We have a list of different length strings.
       (t
!       (let ((prefix (try-completion "" strings)))
        (if (> (length prefix) 0)
            ;; common prefix: take it and recurse on the suffixes.
            (let* ((n (length prefix))
***************
*** 205,211 ****
          (let* ((sgnirts (mapcar (lambda (s)
                                    (concat (nreverse (string-to-list s))))
                                  strings))
!                (xiffus (try-completion "" (mapcar 'list sgnirts))))
            (if (> (length xiffus) 0)
                ;; common suffix: take it and recurse on the prefixes.
                (let* ((n (- (length xiffus)))
--- 205,211 ----
          (let* ((sgnirts (mapcar (lambda (s)
                                    (concat (nreverse (string-to-list s))))
                                  strings))
!                (xiffus (try-completion "" sgnirts)))
            (if (> (length xiffus) 0)
                ;; common suffix: take it and recurse on the prefixes.
                (let* ((n (- (length xiffus)))
***************
*** 222,228 ****
              ;; Otherwise, divide the list into those that start with a
              ;; particular letter and those that do not, and recurse on them.
              (let* ((char (char-to-string (string-to-char (car strings))))
!                    (half1 (all-completions char (mapcar 'list strings)))
                     (half2 (nthcdr (length half1) strings)))
                (concat open-group
                        (regexp-opt-group half1)
--- 222,228 ----
              ;; Otherwise, divide the list into those that start with a
              ;; particular letter and those that do not, and recurse on them.
              (let* ((char (char-to-string (string-to-char (car strings))))
!                    (half1 (all-completions char strings))
                     (half2 (nthcdr (length half1) strings)))
                (concat open-group
                        (regexp-opt-group half1)