[Emacs-diffs] /srv/bzr/emacs/trunk r101338: * lisp/emacs-lisp/syntax.el (syntax-ppss): More sanity check to catch

[Stefan Monnier]

------------------------------------------------------------
revno: 101338
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2010-09-05 00:51:39 +0200
message:
  * lisp/emacs-lisp/syntax.el (syntax-ppss): More sanity check to catch
  border case in change-log-mode.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/syntax.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-09-04 20:42:03 +0000
+++ b/lisp/ChangeLog    2010-09-04 22:51:39 +0000
@@ -1,3 +1,8 @@
+2010-09-04  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/syntax.el (syntax-ppss): More sanity check to catch
+       border case in change-log-mode.
+
 2010-09-04  Chong Yidong  <address@hidden>
 
        * progmodes/compile.el (compilation-error-regexp-alist-alist):

=== modified file 'lisp/emacs-lisp/syntax.el'
--- a/lisp/emacs-lisp/syntax.el 2010-08-01 00:24:55 +0000
+++ b/lisp/emacs-lisp/syntax.el 2010-09-04 22:51:39 +0000
@@ -209,7 +209,8 @@
                                (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))))