From 0f5f7c3eb668e701d00f77d92441dd4ea91422ec Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 7 Dec 2000 13:53:21 +0000 Subject: [PATCH] (server-visit-files): Push files on file-name-history. --- lisp/ChangeLog | 2 ++ lisp/server.el | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + * 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 ;; 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)) -- 2.39.5