From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 22 Jan 1998 00:44:59 +0000 (+0000)
Subject: (PC-try-load-many-files): Load files in reverse
X-Git-Tag: emacs-20.3~2365
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3d8c659f57fa424722b295e658c369497a833b1;p=emacs.git

(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 a20fb7d6516..022e9aebafb 100644
--- 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