[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/syntax.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        06/12/12 02:36:39

Index: emacs-lisp/syntax.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/syntax.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- emacs-lisp/syntax.el        7 May 2006 14:11:05 -0000       1.18
+++ emacs-lisp/syntax.el        12 Dec 2006 02:36:38 -0000      1.19
@@ -52,6 +52,14 @@
 (defsubst syntax-ppss-depth (ppss)
   (nth 0 ppss))
 
+(defun syntax-ppss-toplevel-pos (ppss)
+  "Return the last preceding position at toplevel.
+\"At toplevel\" means that it is outside of any syntactic entity:
+outside of any parentheses, or comments, or strings.
+Returns nil iff PPSS itself corresponds to a toplevel position."
+  (or (car (nth 9 ppss))
+      (nth 8 ppss)))      
+
 (defsubst syntax-ppss-context (ppss)
   (cond
    ((nth 3 ppss) 'string)