Mercurial > hg > xemacs-beta
changeset 692:cd697e94b3d4
[xemacs-hg @ 2001-12-14 02:20:52 by youngs]
2001-12-12 John Paul Wallington <jpw@shootybangbang.com>
* font-lock.el (font-lock-mode-line-string): new customizable
variable
| author | youngs |
|---|---|
| date | Fri, 14 Dec 2001 02:20:53 +0000 |
| parents | 1df69dc58840 |
| children | b05e2a249757 |
| files | lisp/ChangeLog lisp/font-lock.el |
| diffstat | 2 files changed, 14 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Dec 13 20:53:21 2001 +0000 +++ b/lisp/ChangeLog Fri Dec 14 02:20:53 2001 +0000 @@ -1,3 +1,8 @@ +2001-12-12 John Paul Wallington <jpw@shootybangbang.com> + + * font-lock.el (font-lock-mode-line-string): new customizable + variable + 2001-10-16 Michael Diers <mdiers@elego.de> * about.el: Update e-mail address.
--- a/lisp/font-lock.el Thu Dec 13 20:53:21 2001 +0000 +++ b/lisp/font-lock.el Fri Dec 14 02:20:53 2001 +0000 @@ -319,6 +319,14 @@ string text when fontifying." :type 'boolean :group 'font-lock) + +;;;###autoload +(defcustom font-lock-mode-line-string " Font" + "*String to display in the modeline when Font Lock mode is active. +Set this to nil if you don't want a modeline indicator." + :type '(choice string + (const :tag "none" nil)) + :group 'font-lock) ;; Fontification variables: @@ -2755,7 +2763,7 @@ (add-hook 'find-file-hooks 'font-lock-set-defaults t) ;;;###autoload -(add-minor-mode 'font-lock-mode " Font") +(add-minor-mode 'font-lock-mode 'font-lock-mode-line-string) ;; Provide ourselves: