Mercurial > hg > xemacs-beta
diff lisp/gnuserv.el @ 710:a00780ef853d
[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 |
line wrap: on
line diff
--- a/lisp/gnuserv.el Thu Dec 20 07:58:23 2001 +0000 +++ b/lisp/gnuserv.el Sat Dec 22 07:20:58 2001 +0000 @@ -89,6 +89,14 @@ :group 'processes :group 'terminals) +;;;###autoload +(defcustom gnuserv-mode-line-string " Server" + "*String to display in the modeline when Gnuserv is active. +Set this to nil if you don't want a modeline indicator." + :type '(choice string + (const :tag "none" nil)) + :group 'gnuserv) + ;; Provide the old variables as aliases, to avoid breaking .emacs ;; files. However, they are obsolete and should be converted to the @@ -261,9 +269,10 @@ ;; We want the client-infested buffers to have some modeline ;; identification, so we'll make a "minor mode". (defvar gnuserv-minor-mode nil) -(make-variable-buffer-local 'gnuserv-mode) -(pushnew '(gnuserv-minor-mode " Server") minor-mode-alist - :test 'equal) +(make-variable-buffer-local 'gnuserv-minor-mode) +;;(pushnew '(gnuserv-minor-mode "Server") minor-mode-alist +;; :test 'equal) +(add-minor-mode 'gnuserv-minor-mode 'gnuserv-mode-line-string) ;; Sample gnuserv-frame functions