diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-09-05 00:51:39 +0200 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-09-05 00:51:39 +0200 |
| commit | 2e664aab0b16b0470484b53eb09d122959a0b0e7 (patch) | |
| tree | cc66f3f1ae26a2c6c406233f9c17b062b468cdf8 /lisp/emacs-lisp | |
| parent | 13ef65a483dd7d17ff5dce4a5ea377ba6bd678ca (diff) | |
| download | emacs-2e664aab0b16b0470484b53eb09d122959a0b0e7.tar.gz emacs-2e664aab0b16b0470484b53eb09d122959a0b0e7.tar.bz2 emacs-2e664aab0b16b0470484b53eb09d122959a0b0e7.zip | |
* lisp/emacs-lisp/syntax.el (syntax-ppss): More sanity check to catch
border case in change-log-mode.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/syntax.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)))) |