From 2e664aab0b16b0470484b53eb09d122959a0b0e7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 5 Sep 2010 00:51:39 +0200 Subject: [PATCH] * lisp/emacs-lisp/syntax.el (syntax-ppss): More sanity check to catch border case in change-log-mode. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/syntax.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dc024b9d313..020f3237e33 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-09-04 Stefan Monnier + + * emacs-lisp/syntax.el (syntax-ppss): More sanity check to catch + border case in change-log-mode. + 2010-09-04 Chong Yidong * progmodes/compile.el (compilation-error-regexp-alist-alist): diff --git a/lisp/emacs-lisp/syntax.el b/lisp/emacs-lisp/syntax.el index 5cc89596ef5..1ac6e266f0f 100644 --- a/lisp/emacs-lisp/syntax.el +++ b/lisp/emacs-lisp/syntax.el @@ -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)))) -- 2.11.4.GIT