Mercurial > emacs

comparison lisp/emacs-lisp/syntax.el @ 83353:532e0a9335a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS trunk. Plus added lisp/term tweaks. Patches applied: * lorentey@elte.hu--2004/emacs--cvs-trunk--0--base-0 tag of miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-474 * lorentey@elte.hu--2004/emacs--cvs-trunk--0--patch-1 Add CVS metadata files. * lorentey@elte.hu--2004/emacs--cvs-trunk--0--patch-2 Update from CVS. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-393
author Karoly Lorentey <lorentey@elte.hu>
date Sun, 04 Sep 2005 03:48:17 +0000
parents 364fe66bab84
children f15e775dfb97 a3716f7538f2
comparison
equal deleted inserted replaced
83352:b258b3492423 83353:532e0a9335a9
1 ;;; syntax.el --- helper functions to find syntactic context 1 ;;; syntax.el --- helper functions to find syntactic context
2 2
3 ;; Copyright (C) 2000, 2003 Free Software Foundation, Inc. 3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
4 ;; 2005 Free Software Foundation, Inc.
4 5
5 ;; Maintainer: FSF 6 ;; Maintainer: FSF
6 ;; Keywords: internal 7 ;; Keywords: internal
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
43 ;;; Code: 44 ;;; Code:
44 45
45 ;; Note: PPSS stands for `parse-partial-sexp state' 46 ;; Note: PPSS stands for `parse-partial-sexp state'
46 47
47 (eval-when-compile (require 'cl)) 48 (eval-when-compile (require 'cl))
49
50 (defvar font-lock-beginning-of-syntax-function)
48 51
49 (defsubst syntax-ppss-depth (ppss) 52 (defsubst syntax-ppss-depth (ppss)
50 (nth 0 ppss)) 53 (nth 0 ppss))
51 54
52 (defsubst syntax-ppss-context (ppss) 55 (defsubst syntax-ppss-context (ppss)