Mercurial > emacs
diff lisp/emacs-lisp/syntax.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 04 Feb 2003 13:24:35 +0000 |
parents | c4da69acaa79 |
children | 9bf93e387b5e d7ddb3e565de |
line wrap: on
line diff
--- a/lisp/emacs-lisp/syntax.el Tue Feb 04 12:29:42 2003 +0000 +++ b/lisp/emacs-lisp/syntax.el Tue Feb 04 13:24:35 2003 +0000 @@ -113,7 +113,7 @@ 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,7 +129,7 @@ (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,7 +253,7 @@ syntax-ppss-max-span)) (push pair syntax-ppss-cache) (setcar syntax-ppss-cache pair))))))))) - + (setq syntax-ppss-last (cons pos ppss)) ppss)))