Mercurial > emacs
changeset 34344:a160265d0a06
(server-visit-files): Push files on file-name-history.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 07 Dec 2000 13:52:47 +0000 |
| parents | 02da8f148c03 |
| children | 39f2e2837fac |
| files | lisp/server.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))