(time-stamp-string-preprocess): Add %U code.

[gnu-emacs] / lisp / server.el

diff --git a/lisp/server.el b/lisp/server.el
index 49fd8172c40b58af5743afa2a2134c4b390fa88a..5a8720e377e74c599cab616ea2691774af1c9069 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -1,6 +1,6 @@
 ;;; server.el --- Lisp code for GNU Emacs running as server process.
 
-;; Copyright (C) 1986, 1987, 1992, 1994, 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1986, 87, 92, 94, 95, 96, 1997 Free Software Foundation, Inc.
 
 ;; Author: William Sommerfeld <wesommer@athena.mit.edu>
 ;; Maintainer: FSF
@@ -75,17 +75,29 @@
 
 ;;; Code:
 \f
-(defvar server-program (expand-file-name "emacsserver" exec-directory)
-  "*The program to use as the edit server.")
-
-(defvar server-visit-hook nil
-  "*List of hooks to call when visiting a file for the Emacs server.")
-
-(defvar server-switch-hook nil
-  "*List of hooks to call when switching to a buffer for the Emacs server.")
-
-(defvar server-done-hook nil
-  "*List of hooks to call when done editing a buffer for the Emacs server.")
+(defgroup server nil
+  "Emacs running as a server process."
+  :group 'external)
+
+(defcustom server-program (expand-file-name "emacsserver" exec-directory)
+  "*The program to use as the edit server."
+  :group 'server
+  :type 'string)
+
+(defcustom server-visit-hook nil
+  "*List of hooks to call when visiting a file for the Emacs server."
+  :group 'server
+  :type '(repeat function))
+
+(defcustom server-switch-hook nil
+  "*List of hooks to call when switching to a buffer for the Emacs server."
+  :group 'server
+  :type '(repeat function))
+
+(defcustom server-done-hook nil
+  "*List of hooks to call when done editing a buffer for the Emacs server."
+  :group 'server
+  :type '(repeat function))
 
 (defvar server-process nil 
   "the current server process")
@@ -109,10 +121,12 @@ When a buffer is marked as \"done\", it is removed from this list.")
 If nil, use the selected window.
 If it is a frame, use the frame's selected window.")
 
-(defvar server-temp-file-regexp "^/tmp/Re\\|/draft$"
+(defcustom server-temp-file-regexp "^/tmp/Re\\|/draft$"
   "*Regexp which should match filenames of temporary files
 which are deleted and reused after each edit
-by the programs that invoke the emacs server.")
+by the programs that invoke the emacs server."
+  :group 'server
+  :type 'regexp)
 
 (or (assq 'server-buffer-clients minor-mode-alist)
     (setq minor-mode-alist (cons '(server-buffer-clients " Server") minor-mode-alist)))
@@ -285,7 +299,8 @@ so don't mark these buffers specially, just visit them normally."
   "Mark BUFFER as \"done\" for its client(s).
 This buries the buffer, then returns a list of the form (NEXT-BUFFER KILLED).
 NEXT-BUFFER is another server buffer, as a suggestion for what to select next,
-or nil.  KILLED is t if we killed BUFFER (because it was a temp file)."
+or nil.  KILLED is t if we killed BUFFER
+\(typically, because it was visiting a temp file)."
   (let ((running (eq (process-status server-process) 'run))
        (next-buffer nil)
        (killed nil)
@@ -318,16 +333,24 @@ or nil.  KILLED is t if we killed BUFFER (because it was a temp file)."
          (setq server-clients (delq client server-clients))))
       (setq old-clients (cdr old-clients)))
     (if (and (bufferp buffer) (buffer-name buffer))
-       (progn
+       ;; We may or may not kill this buffer;
+       ;; if we do, do not call server-buffer-done recursively
+       ;; from kill-buffer-hook.
+       (let ((server-kill-buffer-running t))
          (save-excursion
            (set-buffer buffer)
            (setq server-buffer-clients nil)
            (run-hooks 'server-done-hook))
-         (if for-killing
+         ;; Notice whether server-done-hook killed the buffer.
+         (if (null (buffer-name buffer))
+             (setq killed t)
+           ;; Don't bother killing or burying the buffer
+           ;; when we are called from kill-buffer.
+           (unless for-killing
              (if (server-temp-file-p buffer)
                  (progn (kill-buffer buffer)
                         (setq killed t))
-               (bury-buffer buffer)))))
+               (bury-buffer buffer))))))
     (list next-buffer killed)))
 
 (defun server-temp-file-p (buffer)
@@ -344,7 +367,8 @@ are considered temporary."
   "Offer to save current buffer, mark it as \"done\" for clients.
 This buries the buffer, then returns a list of the form (NEXT-BUFFER KILLED).
 NEXT-BUFFER is another server buffer, as a suggestion for what to select next,
-or nil.  KILLED is t if we killed the BUFFER (because it was a temp file)."
+or nil.  KILLED is t if we killed BUFFER
+\(typically, because it was visiting a temp file)."
   (let ((buffer (current-buffer)))
     (if server-buffer-clients
        (progn
@@ -386,7 +410,7 @@ or nil.  KILLED is t if we killed the BUFFER (because it was a temp file)."
 (add-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function)
 
 (defvar server-kill-buffer-running nil
-  "Non-nil while `server-kill-buffer' is running.")
+  "Non-nil while `server-kill-buffer' or `server-buffer-done' is running.")
 
 ;; When a buffer is killed, inform the clients.
 (add-hook 'kill-buffer-hook 'server-kill-buffer)
@@ -394,9 +418,10 @@ or nil.  KILLED is t if we killed the BUFFER (because it was a temp file)."
   ;; Prevent infinite recursion if user has made server-done-hook
   ;; call kill-buffer.
   (or server-kill-buffer-running
-      (let ((server-kill-buffer-running t))
-       (when server-process
-         (server-buffer-done (current-buffer) t)))))
+      (and server-buffer-clients
+          (let ((server-kill-buffer-running t))
+            (when server-process
+              (server-buffer-done (current-buffer) t))))))
 \f
 (defun server-edit (&optional arg)
   "Switch to next server editing buffer; say \"Done\" for current buffer.