mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(server-visit-files): Set server-existing-buffer

Browse Source 
correctly.
(server-visit-files): Run server-visit-hook after going to
line 1 so that the hook can set point as it sees fit.
This commit is contained in:
Gerd Moellmann 2001-04-09 14:29:56 +00:00
parent 522ed7fb45
commit 92a6563f8d
2 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,5 +1,10 @@
2001-04-09 Gerd Moellmann <gerd@gnu.org>
* server.el (server-visit-files): Set server-existing-buffer
correctly.
(server-visit-files): Run server-visit-hook after going to
line 1 so that the hook can set point as it sees fit.
* bindings.el (mode-line-modified): Unify help messages.
2001-04-07 Eli Zaretskii <eliz@is.elta.co.il>

28
lisp/server.el
View File

@ -1,6 +1,6 @@
;;; server.el --- Lisp code for GNU Emacs running as server process.
;; Copyright (C) 1986, 87, 92, 94, 95, 96, 97, 98, 99, 2000
;; Copyright (C) 1986, 87, 92, 94, 95, 96, 97, 98, 99, 2000, 2001
;; Free Software Foundation, Inc.
;; Author: William Sommerfeld <wesommer@athena.mit.edu>
@ -310,20 +310,22 @@ so don't mark these buffers specially, just visit them normally."
(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))
(buffer-modified-p obuf))
(revert-buffer t nil)))
(t
(if (y-or-n-p
(concat "File no longer exists: "
filen
", write buffer to file? "))
(write-file filen))))
(progn
(cond ((file-exists-p filen)
(if (or (not (verify-visited-file-modtime obuf))
(buffer-modified-p obuf))
(revert-buffer t nil)))
(t
(if (y-or-n-p
(concat "File no longer exists: "
filen
", write buffer to file? "))
(write-file filen))))
(setq server-existing-buffer t)
(goto-line (nth 1 (car files))))
(set-buffer (find-file-noselect filen))
(setq server-existing-buffer t)
(goto-line (nth 1 (car files)))
(run-hooks 'server-visit-hook)))
(goto-line (nth 1 (car files)))
(if (not nowait)
(setq server-buffer-clients
(cons (car client) server-buffer-clients)))