Article View: gnu.emacs.bug
Article #100096minor nit in server.el
From: Cesar Quiroz
Date: Mon, 06 Nov 1989 04:08
Date: Mon, 06 Nov 1989 04:08
28 lines
1627 bytes
1627 bytes
This is Emacs 18.55.
This has probably been reported before. In server-done:
(defun server-done ()
"Offer to save current buffer, mark it as \"done\" for clients,
bury it, and return a suggested buffer to select next."
(let ((buffer (current-buffer)))
(if server-buffer-clients
(progn
(if (mh-draft-p buffer)
(progn (save-buffer)
(write-region (point-min) (point-max)
(concat buffer-file-name "~"))
(kill-buffer buffer))
(if (and (buffer-modified-p)
(y-or-n-p (concat "Save file" buffer-file-name "? ")))
-------------------------------------------------^
(save-buffer buffer)))
(server-buffer-done buffer)))))
a space would be nice where the arrow shows.
--
Cesar Augusto Quiroz Gonzalez
Department of Computer Science
University of Rochester
Rochester, NY 14627
Technical Details
Message-ID:
<1989Nov6.040828.22591@cs.rochester.edu>Path:
arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!samsung!shadooby!mailrus!cornell!rochester!quirozShow Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: fb2f1,d12c63db6db27776,start X-Google-Attributes: gidfb2f1,public X-Google-ArrivalTime: 1989-11-06 13:47:25 PST Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!samsung!shadooby!mailrus!cornell!rochester!quiroz From: quiroz@cs.rochester.edu (Cesar Quiroz) Newsgroups: gnu.emacs.bug Subject: minor nit in server.el Message-ID: <1989Nov6.040828.22591@cs.rochester.edu> Date: 6 Nov 89 04:08:28 GMT Reply-To: quiroz@cs.rochester.edu (Cesar Quiroz) Organization: U of Rochester, Dept. of Computer Science, Rochester, NY 14627 Lines: 28 Posted: Mon Nov 6 05:08:28 1989