Mercurial > hg > xemacs-beta

comparison lisp/font-lock.el @ 692:cd697e94b3d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 12095b04a9b6
children 943eaba38521
comparison
equal deleted inserted replaced
691:1df69dc58840 692:cd697e94b3d4
316 ;;;###autoload 316 ;;;###autoload
317 (defcustom font-lock-fontify-string-delimiters nil 317 (defcustom font-lock-fontify-string-delimiters nil
318 "*If non-nil, apply font-lock-string-face to string delimiters as well as 318 "*If non-nil, apply font-lock-string-face to string delimiters as well as
319 string text when fontifying." 319 string text when fontifying."
320 :type 'boolean 320 :type 'boolean
321 :group 'font-lock)
322
323 ;;;###autoload
324 (defcustom font-lock-mode-line-string " Font"
325 "*String to display in the modeline when Font Lock mode is active.
326 Set this to nil if you don't want a modeline indicator."
327 :type '(choice string
328 (const :tag "none" nil))
321 :group 'font-lock) 329 :group 'font-lock)
322 330
323 ;; Fontification variables: 331 ;; Fontification variables:
324 332
325 ;;;###autoload 333 ;;;###autoload
2753 ;; Install ourselves: 2761 ;; Install ourselves:
2754 2762
2755 (add-hook 'find-file-hooks 'font-lock-set-defaults t) 2763 (add-hook 'find-file-hooks 'font-lock-set-defaults t)
2756 2764
2757 ;;;###autoload 2765 ;;;###autoload
2758 (add-minor-mode 'font-lock-mode " Font") 2766 (add-minor-mode 'font-lock-mode 'font-lock-mode-line-string)
2759 2767
2760 ;; Provide ourselves: 2768 ;; Provide ourselves:
2761 2769
2762 (provide 'font-lock) 2770 (provide 'font-lock)
2763 2771