Mercurial > hg > xemacs-beta

comparison lisp/gnuserv.el @ 710:a00780ef853d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-22 07:20:57 by youngs] 2001-12-18 John Paul Wallington <jpw@shootybangbang.com> * gnuserv.el: (gnuserv-mode-line-string): new customizable variable (gnuserv-minor-mode): make variable buffer-local * isearch-mode.el: (isearch-mode-line-string): new customizable variable
author youngs
date Sat, 22 Dec 2001 07:20:58 +0000
parents 0784d089fdc9
children 0a85daf64258
comparison
equal deleted inserted replaced
709:1df7a5cfb04a 710:a00780ef853d
86 (defgroup gnuserv nil 86 (defgroup gnuserv nil
87 "The gnuserv suite of programs to talk to Emacs from outside." 87 "The gnuserv suite of programs to talk to Emacs from outside."
88 :group 'environment 88 :group 'environment
89 :group 'processes 89 :group 'processes
90 :group 'terminals) 90 :group 'terminals)
91
92 ;;;###autoload
93 (defcustom gnuserv-mode-line-string " Server"
94 "*String to display in the modeline when Gnuserv is active.
95 Set this to nil if you don't want a modeline indicator."
96 :type '(choice string
97 (const :tag "none" nil))
98 :group 'gnuserv)
91 99
92 100
93 ;; Provide the old variables as aliases, to avoid breaking .emacs 101 ;; Provide the old variables as aliases, to avoid breaking .emacs
94 ;; files. However, they are obsolete and should be converted to the 102 ;; files. However, they are obsolete and should be converted to the
95 ;; new forms. This ugly crock must be before the variable 103 ;; new forms. This ugly crock must be before the variable
259 "Frame created specially for Server.") 267 "Frame created specially for Server.")
260 268
261 ;; We want the client-infested buffers to have some modeline 269 ;; We want the client-infested buffers to have some modeline
262 ;; identification, so we'll make a "minor mode". 270 ;; identification, so we'll make a "minor mode".
263 (defvar gnuserv-minor-mode nil) 271 (defvar gnuserv-minor-mode nil)
264 (make-variable-buffer-local 'gnuserv-mode) 272 (make-variable-buffer-local 'gnuserv-minor-mode)
265 (pushnew '(gnuserv-minor-mode " Server") minor-mode-alist 273 ;;(pushnew '(gnuserv-minor-mode "Server") minor-mode-alist
266 :test 'equal) 274 ;; :test 'equal)
275 (add-minor-mode 'gnuserv-minor-mode 'gnuserv-mode-line-string)
267 276
268 277
269 ;; Sample gnuserv-frame functions 278 ;; Sample gnuserv-frame functions
270 279
271 (defun gnuserv-main-frame-function (type) 280 (defun gnuserv-main-frame-function (type)