[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/syntax.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/syntax.el |
Date: |
Fri, 04 Apr 2003 01:22:00 -0500 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/syntax.el,
Miles Bader <=