diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 13:24:35 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 13:24:35 +0000 |
| commit | a1506d2977a8c2eb982ad0b59416009cdfaa6f51 (patch) | |
| tree | 3cbb868ad6eb3b188d5064389538c490c124d8be /lisp/emacs-lisp/syntax.el | |
| parent | f1180544bb5ff44cdb45b8734734294b0a2fa7a4 (diff) | |
| download | emacs-a1506d2977a8c2eb982ad0b59416009cdfaa6f51.tar.gz | |
Trailing whitepace deleted.
Diffstat (limited to 'lisp/emacs-lisp/syntax.el')
| -rw-r--r-- | lisp/emacs-lisp/syntax.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/syntax.el b/lisp/emacs-lisp/syntax.el index 89660e48d77..d7ad3bacd45 100644 --- a/lisp/emacs-lisp/syntax.el +++ b/lisp/emacs-lisp/syntax.el @@ -113,7 +113,7 @@ avoid a more expansive scan. 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 @@ Point is at POS when this function returns." (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 @@ Point is at POS when this function returns." syntax-ppss-max-span)) (push pair syntax-ppss-cache) (setcar syntax-ppss-cache pair))))))))) - + (setq syntax-ppss-last (cons pos ppss)) ppss))) |