mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

Trailing whitepace deleted.

Browse source
This commit is contained in:
Juanma Barranquero 2003-02-04 13:24:35 +00:00
parent f1180544bb
commit a1506d2977
271 changed files with 3408 additions and 3408 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/syntax.el
View file

@ -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)))