* lisp/emacs-lisp/syntax.el (syntax-ppss): More sanity check to catch

border case in change-log-mode.
This commit is contained in:
Stefan Monnier 2010-09-05 00:51:39 +02:00
parent 13ef65a483
commit 2e664aab0b
2 changed files with 7 additions and 1 deletions

View file

@ -209,7 +209,8 @@ Point is at POS when this function returns."
(funcall syntax-begin-function)
;; Make sure it's better.
(> (point) pt-best))
;; Simple sanity check.
;; Simple sanity checks.
(< (point) pos) ; backward-paragraph can fail here.
(not (memq (get-text-property (point) 'face)
'(font-lock-string-face font-lock-doc-face
font-lock-comment-face))))