diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-18 20:01:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-18 20:01:25 +0000 |
| commit | ab1c7f352775e81baaa9137e87dca9afef6257f0 (patch) | |
| tree | efcb9d9c164822cc9ac94097fb0585fa6479f0e0 /lisp/server.el | |
| parent | dd9d15d6379485dcd33117c60134ed1c49980dcb (diff) | |
| download | emacs-ab1c7f352775e81baaa9137e87dca9afef6257f0.tar.gz | |
Customized.
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 42 |
1 files changed, 28 insertions, 14 deletions
diff --git a/lisp/server.el b/lisp/server.el index 49fd8172c40..d46156d15e7 100644 --- 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: -(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))) |