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

[Miles Bader]

Index: emacs/lisp/emacs-lisp/syntax.el
diff -c emacs/lisp/emacs-lisp/syntax.el:1.6 emacs/lisp/emacs-lisp/syntax.el:1.7
*** emacs/lisp/emacs-lisp/syntax.el:1.6 Mon Sep  9 19:14:13 2002
--- emacs/lisp/emacs-lisp/syntax.el     Tue Feb  4 07:53:34 2003
***************
*** 113,119 ****
  Point is at POS when this function returns."
    ;; Default values.
    (unless pos (setq pos (point)))
!   ;; 
    (let ((old-ppss (cdr syntax-ppss-last))
        (old-pos (car syntax-ppss-last))
        (ppss nil)
--- 113,119 ----
  Point is at POS when this function returns."
    ;; Default values.
    (unless pos (setq pos (point)))
!   ;;
    (let ((old-ppss (cdr syntax-ppss-last))
        (old-pos (car syntax-ppss-last))
        (ppss nil)
***************
*** 129,135 ****
          (incf (car (aref syntax-ppss-stats 0)))
          (incf (cdr (aref syntax-ppss-stats 0)) (- pos old-pos))
          (parse-partial-sexp old-pos pos nil nil old-ppss))
!       
        (cond
         ;; Use OLD-PPSS if possible and close enough.
         ((and (not old-pos) old-ppss
--- 129,135 ----
          (incf (car (aref syntax-ppss-stats 0)))
          (incf (cdr (aref syntax-ppss-stats 0)) (- pos old-pos))
          (parse-partial-sexp old-pos pos nil nil old-ppss))
! 
        (cond
         ;; Use OLD-PPSS if possible and close enough.
         ((and (not old-pos) old-ppss
***************
*** 253,259 ****
                           syntax-ppss-max-span))
                    (push pair syntax-ppss-cache)
                  (setcar syntax-ppss-cache pair)))))))))
!       
        (setq syntax-ppss-last (cons pos ppss))
        ppss)))
  
--- 253,259 ----
                           syntax-ppss-max-span))
                    (push pair syntax-ppss-cache)
                  (setcar syntax-ppss-cache pair)))))))))
! 
        (setq syntax-ppss-last (cons pos ppss))
        ppss)))