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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 78c91f722e2e56d62414f6b64419f9a597a30fb8..536f5eee03e8c154cb438b4b888d777bb74d1924 100644 (file)
--- 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 35738eeb40706e214f0f7066f699463c9b69944c..e362c8e5607c70f53c590e984227f24fb6c2210f 100644 (file)
--- 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))