Mercurial > emacs

changeset 20709:780929dca508

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(PC-try-load-many-files): Load files in reverse order so they come in the right order in the buffer list.
author Richard M. Stallman <rms@gnu.org>
date Thu, 22 Jan 1998 00:44:59 +0000
parents ed9ed828415e
children 3ca65e83c8a1
files lisp/complete.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/complete.el	Wed Jan 21 23:32:12 1998 +0000
+++ b/lisp/complete.el	Thu Jan 22 00:44:59 1998 +0000
@@ -781,16 +781,17 @@
       (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