(PC-try-load-many-files): Load files in reverse

order so they come in the right order in the buffer list.

diff --git a/lisp/complete.el b/lisp/complete.el
index a20fb7d6516ac3728ec20887a16d87417d5cb165..022e9aebafb6dccd3be998ab7b42701f18343754 100644 (file)
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -781,16 +781,17 @@ or properties are considered."
       (let* ((pat buffer-file-name)
             (files (PC-expand-many-files pat))
             (first (car files))
-            (next files))
+            (next (reverse (cdr files))))
        (kill-buffer (current-buffer))
        (or files
            (error "No matching files"))
        ;; Bring the other files (not the first) into buffers.
        (save-window-excursion
-         (while (setq next (cdr next))
+         (while next
            (let ((buf (find-file-noselect (car next))))
              ;; Put this buffer at the front of the buffer list.
-             (switch-to-buffer buf))))
+             (switch-to-buffer buf))
+           (setq next (cdr next))))
        ;; This modifies the `buf' variable inside find-file-noselect.
        (setq buf (get-file-buffer first))
        (if buf