# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 976197167 0
# Node ID a160265d0a06fa5a7153952b02e706c184d2c32e
# Parent  02da8f148c0383067f2b9f40aabc2734850e3200
(server-visit-files): Push files on file-name-history.

diff -r 02da8f148c03 -r a160265d0a06 lisp/server.el
--- a/lisp/server.el	Thu Dec 07 13:44:45 2000 +0000
+++ b/lisp/server.el	Thu Dec 07 13:52:47 2000 +0000
@@ -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 @@
 	  ;; 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))