(server-visit-files): Push files on file-name-history.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 78c91f722e2..536f5eee03e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2000-12-07  Gerd Moellmann  <gerd@gnu.org>
 
+        * server.el (server-visit-files): Push files on file-name-history.
+
         * progmodes/cc-langs.el: Update copyright.
 
         * progmodes/idlw-shell.el, progmodes/idlwave.el: Update copyright.
diff --git a/lisp/server.el b/lisp/server.el
index 35738eeb407..e362c8e5607 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -1,6 +1,7 @@
 ;;; server.el --- Lisp code for GNU Emacs running as server process.
 
-;; Copyright (C) 1986, 87, 92, 94, 95, 96, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1986, 87, 92, 94, 95, 96, 97, 98, 99, 2000
+;;       Free Software Foundation, Inc.
 
 ;; Author: William Sommerfeld <wesommer@athena.mit.edu>
 ;; Maintainer: FSF
@@ -307,6 +308,7 @@ so don't mark these buffers specially, just visit them normally."
           ;; deleted file, offer to write it.
           (let* ((filen (car (car files)))
                  (obuf (get-file-buffer filen)))
+            (push filen file-name-history)
             (if (and obuf (set-buffer obuf))
                 (cond ((file-exists-p filen)
                        (if (or (not (verify-visited-file-modtime obuf))