Mercurial > emacs

comparison lisp/font-lock.el @ 5294:f5fdaf66b013

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-set-defaults): Do nothing if font-lock-keywords is already set.
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Dec 1993 04:36:41 +0000
parents 64211dda414c
children 7e5fce72b793
comparison
equal deleted inserted replaced
5293:346d921eaf3b 5294:f5fdaf66b013
407 407
408 ;;; Various mode-specific information. 408 ;;; Various mode-specific information.
409 409
410 (defun font-lock-set-defaults () 410 (defun font-lock-set-defaults ()
411 "Set `font-lock-keywords' to something appropriate for this mode." 411 "Set `font-lock-keywords' to something appropriate for this mode."
412 (setq font-lock-keywords 412 (if (not font-lock-keywords) ; if not already set.
413 (cond ((eq major-mode 'lisp-mode) lisp-font-lock-keywords) 413 (setq font-lock-keywords
414 ((eq major-mode 'emacs-lisp-mode) lisp-font-lock-keywords) 414 (cond ((eq major-mode 'lisp-mode) lisp-font-lock-keywords)
415 ((eq major-mode 'c-mode) c-font-lock-keywords) 415 ((eq major-mode 'emacs-lisp-mode) lisp-font-lock-keywords)
416 ((eq major-mode 'c++-c-mode) c-font-lock-keywords) 416 ((eq major-mode 'c-mode) c-font-lock-keywords)
417 ((eq major-mode 'c++-mode) c++-font-lock-keywords) 417 ((eq major-mode 'c++-c-mode) c-font-lock-keywords)
418 ((eq major-mode 'perl-mode) perl-font-lock-keywords) 418 ((eq major-mode 'c++-mode) c++-font-lock-keywords)
419 ((eq major-mode 'tex-mode) tex-font-lock-keywords) 419 ((eq major-mode 'perl-mode) perl-font-lock-keywords)
420 ((eq major-mode 'texinfo-mode) texi-font-lock-keywords) 420 ((eq major-mode 'tex-mode) tex-font-lock-keywords)
421 (t nil)))) 421 ((eq major-mode 'texinfo-mode) texi-font-lock-keywords)
422 (t nil))))
422 423
423 (defconst lisp-font-lock-keywords-1 424 (defconst lisp-font-lock-keywords-1
424 '(;; 425 '(;;
425 ;; highlight defining forms. This doesn't work too nicely for 426 ;; highlight defining forms. This doesn't work too nicely for
426 ;; (defun (setf foo) ...) but it does work for (defvar foo) which 427 ;; (defun (setf foo) ...) but it does work for (defvar foo) which