From: Richard M. Stallman 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