# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1146872275 0
# Node ID 718312081ce0dcca0f01fd7dbdf1efb8c3671936
# Parent  c18be7440465eeef935470abc5bbe6756b03abfb
(server-visit-files): Use add-to-history.

diff -r c18be7440465 -r 718312081ce0 lisp/server.el
--- a/lisp/server.el	Fri May 05 23:37:37 2006 +0000
+++ b/lisp/server.el	Fri May 05 23:37:55 2006 +0000
@@ -411,7 +411,7 @@
 	;; deleted file, offer to write it.
 	(let* ((filen (car file))
 	       (obuf (get-file-buffer filen)))
-	  (push filen file-name-history)
+	  (add-to-history 'file-name-history filen)
 	  (if (and obuf (set-buffer obuf))
 	      (progn
 		(cond ((file-exists-p filen)