Mercurial > hg > xemacs-beta

comparison lisp/packages/font-lock.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 0132846995bd
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
1 ;;; font-lock.el --- decorating source files with fonts/colors based on syntax 1 ;;; font-lock.el --- decorating source files with fonts/colors based on syntax
2 2
3 ;; Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992-1995, 1997 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Amdahl Corporation. 4 ;; Copyright (C) 1995 Amdahl Corporation.
5 ;; Copyright (C) 1996 Ben Wing. 5 ;; Copyright (C) 1996 Ben Wing.
6 6
7 ;; Author: Jamie Zawinski <jwz@netscape.com>, for the LISPM Preservation Society. 7 ;; Author: Jamie Zawinski <jwz@netscape.com>, for the LISPM Preservation Society.
8 ;; Minimally merged with FSF 19.34 by Barry Warsaw <bwarsaw@python.org> 8 ;; Minimally merged with FSF 19.34 by Barry Warsaw <bwarsaw@python.org>
9 ;; Then (partially) synched with FSF 19.30, leading to: 9 ;; Then (partially) synched with FSF 19.30, leading to:
10 ;; Next Author: RMS 10 ;; Next Author: RMS
11 ;; Next Author: Simon Marshall <simon@gnu.ai.mit.edu> 11 ;; Next Author: Simon Marshall <simon@gnu.ai.mit.edu>
12 ;; Latest XEmacs Author: Ben Wing 12 ;; Latest XEmacs Author: Ben Wing
13 ;; Maintainer: FSF (well, maybe) 13 ;; Maintainer: XEmacs Development Team (sigh :-( )
14 ;; Keywords: languages, faces 14 ;; Keywords: languages, faces
15 15
16 ;; This file is part of XEmacs. 16 ;; This file is part of XEmacs.
17 17
18 ;; XEmacs is free software; you can redistribute it and/or modify it 18 ;; XEmacs is free software; you can redistribute it and/or modify it
1290 (setq i (1- i))))) 1290 (setq i (1- i)))))
1291 (set (make-local-variable 'font-lock-keywords-only) (not got-one))))) 1291 (set (make-local-variable 'font-lock-keywords-only) (not got-one)))))
1292 1292
1293 ;; font-lock-set-defaults is in fontl-hooks.el. 1293 ;; font-lock-set-defaults is in fontl-hooks.el.
1294 1294
1295 ;;;###autoload
1295 (defun font-lock-set-defaults-1 (&optional explicit-defaults) 1296 (defun font-lock-set-defaults-1 (&optional explicit-defaults)
1296 ;; does everything that font-lock-set-defaults does except 1297 ;; does everything that font-lock-set-defaults does except
1297 ;; enable font-lock-mode. This is called by `font-lock-mode'. 1298 ;; enable font-lock-mode. This is called by `font-lock-mode'.
1298 ;; Note that the return value is used! 1299 ;; Note that the return value is used!
1299 1300