From: Gerd Moellmann Date: Thu, 7 Dec 2000 13:53:21 +0000 (+0000) Subject: (server-visit-files): Push files on file-name-history. X-Git-Tag: emacs-pretest-21.0.93~101 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0f5f7c3eb668e701d00f77d92441dd4ea91422ec;p=emacs.git (server-visit-files): Push files on file-name-history. --- 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))