diff lisp/emacs-lisp/syntax.el @ 83550:17e0dd217877

Merged from [e-mail]. Patches applied: * [e-mail]/emacs--devo--0--patch-536 Update from CVS * [e-mail]/emacs--devo--0--patch-537 Update from CVS * [e-mail]/emacs--devo--0--patch-538 Update from CVS * [e-mail]/emacs--devo--0--patch-539 Update from CVS * [e-mail]/emacs--devo--0--patch-540 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-541 Update from CVS * [e-mail]/emacs--devo--0--patch-542 Update from CVS * [e-mail]/emacs--devo--0--patch-543 Update from CVS * [e-mail]/emacs--devo--0--patch-544 Update from CVS * [e-mail]/emacs--devo--0--patch-545 Update from CVS * [e-mail]/emacs--devo--0--patch-546 Update from erc--emacs--22 * [e-mail]/emacs--devo--0--patch-547 Update from CVS * [e-mail]/emacs--devo--0--patch-548 Update from CVS * [e-mail]/emacs--devo--0--patch-549 Update from CVS * [e-mail]/emacs--devo--0--patch-550 Update from CVS * [e-mail]/emacs--devo--0--patch-551 Update from CVS * [e-mail]/emacs--devo--0--patch-552 Update from CVS * [e-mail]/emacs--devo--0--patch-553 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-554 Update from CVS * [e-mail]/emacs--devo--0--patch-555 erc-iswitchb: Temporarily enable iswitchb mode * [e-mail]/emacs--devo--0--patch-556 Update from CVS * [e-mail]/emacs--devo--0--patch-557 Update from CVS * [e-mail]/emacs--devo--0--patch-558 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-559 Update from CVS * [e-mail]/emacs--devo--0--patch-560 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-561 Update from CVS * [e-mail]/emacs--devo--0--patch-562 Update from CVS * [e-mail]/emacs--devo--0--patch-563 Update from CVS * [e-mail]/emacs--devo--0--patch-564 Update from CVS * [e-mail]/emacs--devo--0--patch-565 Update from CVS * [e-mail]/emacs--devo--0--patch-566 Update from CVS * [e-mail]/emacs--devo--0--patch-567 Update from CVS * [e-mail]/emacs--devo--0--patch-568 Update from CVS * [e-mail]/emacs--devo--0--patch-569 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-570 Update from CVS * [e-mail]/emacs--devo--0--patch-571 Update from CVS * [e-mail]/emacs--devo--0--patch-572 Update from CVS * [e-mail]/emacs--devo--0--patch-573 Update from CVS * [e-mail]/emacs--devo--0--patch-574 Update from CVS * [e-mail]/emacs--devo--0--patch-575 Update from CVS * [e-mail]/emacs--devo--0--patch-576 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-577 Update from CVS * [e-mail]/emacs--devo--0--patch-578 Update from CVS * [e-mail]/emacs--devo--0--patch-579 Update from CVS * [e-mail]/emacs--devo--0--patch-580 Update from CVS * [e-mail]/emacs--devo--0--patch-581 Update from CVS * [e-mail]/emacs--devo--0--patch-582 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-583 Update from CVS * [e-mail]/emacs--devo--0--patch-584 Fix admin/quick-install-emacs to work with recent versions of autoconf * [e-mail]/gnus--rel--5.10--patch-171 Update from CVS * [e-mail]/gnus--rel--5.10--patch-172 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-173 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-174 Update from CVS * [e-mail]/gnus--rel--5.10--patch-175 Update from CVS: lisp/legacy-gnus-agent.el: Add Copyright notice. * [e-mail]/gnus--rel--5.10--patch-176 Update from CVS * [e-mail]/gnus--rel--5.10--patch-177 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-178 Update from CVS * [e-mail]/gnus--rel--5.10--patch-179 Update from CVS * [e-mail]/gnus--rel--5.10--patch-180 Update from CVS * [e-mail]/gnus--rel--5.10--patch-181 Update from CVS * [e-mail]/gnus--rel--5.10--patch-182 Update from CVS * [e-mail]/gnus--rel--5.10--patch-183 Update from CVS * [e-mail]/gnus--rel--5.10--patch-184 Update from CVS * [e-mail]/gnus--rel--5.10--patch-185 Merge from emacs--devo--0 git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-590

--- a/lisp/emacs-lisp/syntax.el	Sun Dec 03 15:12:18 2006 +0000
+++ b/lisp/emacs-lisp/syntax.el	Mon Jan 01 17:38:32 2007 +0000
@@ -52,6 +52,22 @@
 (defsubst syntax-ppss-depth (ppss)
   (nth 0 ppss))
 
+(defun syntax-ppss-toplevel-pos (ppss)
+  "Get the latest syntactically outermost position found in a syntactic scan.
+PPSS is a scan state, as returned by `partial-parse-sexp' or `syntax-ppss'.
+An \"outermost position\" means one that it is outside of any syntactic entity:
+outside of any parentheses, comments, or strings encountered in the scan.
+If no such position is recorded in PPSS (because the end of the scan was
+itself at the outermost level), return nil."
+  ;; BEWARE! We rely on the undocumented 9th field.  The 9th field currently
+  ;; contains the list of positions of the enclosing open-parens.
+  ;; I.e. those positions are outside of any string/comment and the first of
+  ;; those is outside of any paren (i.e. corresponds to a nil ppss).
+  ;; If this list is empty but we are in a string or comment, then the 8th
+  ;; field contains a similar "toplevel" position.
+  (or (car (nth 9 ppss))
+      (nth 8 ppss)))
+
 (defsubst syntax-ppss-context (ppss)
   (cond
    ((nth 3 ppss) 'string)
@@ -87,8 +103,7 @@
     ;; depend on the text after BEG (which is presumably changed).  So if
     ;; BEG=(car (nth 10 syntax-ppss-last)) don't reuse that data because the
     ;; assumed nil state at BEG may not be valid any more.
-    (if (<= beg (or (car (nth 10 syntax-ppss-last))
-                    (nth 9 syntax-ppss-last)
+    (if (<= beg (or (syntax-ppss-toplevel-pos (cdr syntax-ppss-last))
                     (nth 3 syntax-ppss-last)
                     0))
 	(setq syntax-ppss-last nil)
@@ -136,22 +151,14 @@
 	  (cond
 	   ;; Use OLD-PPSS if possible and close enough.
 	   ((and (not old-pos) old-ppss
-		 ;; BEWARE! We rely on the undocumented 9th field.  The 9th
-		 ;; field currently contains the list of positions of
-		 ;; open-parens of the enclosing parens.  I.e. those
-		 ;; positions are outside of any string/comment
-		 ;; and the first of those is outside of any paren
-		 ;; (i.e. corresponds to a nil ppss).  If this list is empty
-		 ;; but we are in a string or comment, then the 8th field
-		 ;; contains a similar "toplevel" position.  If `pt-min' is
-		 ;; too far from `pos', we could try to use other positions
-		 ;; in (nth 9 old-ppss), but that doesn't seem to happen in
-		 ;; practice and it would complicate this code (and the
-		 ;; before-change-function code even more).  But maybe it
-		 ;; would be useful in "degenerate" cases such as when the
-		 ;; whole file is wrapped in a set of parenthesis.
-		 (setq pt-min (or (car (nth 9 old-ppss))
-				  (nth 8 old-ppss)
+                 ;; If `pt-min' is too far from `pos', we could try to use
+		 ;; other positions in (nth 9 old-ppss), but that doesn't
+		 ;; seem to happen in practice and it would complicate this
+		 ;; code (and the before-change-function code even more).
+		 ;; But maybe it would be useful in "degenerate" cases such
+		 ;; as when the whole file is wrapped in a set
+		 ;; of parentheses.
+		 (setq pt-min (or (syntax-ppss-toplevel-pos old-ppss)
 				  (nth 2 old-ppss)))
 		 (<= pt-min pos) (< (- pos pt-min) syntax-ppss-max-span))
 	    (incf (car (aref syntax-ppss-stats 1)))