From b3d8c659f57fa424722b295e658c369497a833b1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 22 Jan 1998 00:44:59 +0000 Subject: [PATCH] (PC-try-load-many-files): Load files in reverse order so they come in the right order in the buffer list. --- lisp/complete.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 -- 2.39.2