Minor fix for next-single-char-property-change usage.

* lisp/comint.el (comint-next-prompt): next-single-char-property-change
and prev-single-char-property-change never return nil.

Fixes: debbugs:8657

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f0f438e540e804796335752c5a999a47a763709d..27c914b0424b4fbcf5ec50d1bf4031e1d21c8e38 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-02-06  Chong Yidong  <cyd@gnu.org>
 
+       * comint.el (comint-next-prompt): next-single-char-property-change
+       and prev-single-char-property-change never return nil (Bug#8657).
+
        * custom.el (defcustom): Doc fix (Bug#9711).
 
 2012-02-05  Chong Yidong  <cyd@gnu.org>

diff --git a/lisp/comint.el b/lisp/comint.el
index 2d0ae6920f9fe93022ccf21e56a6e7a19df52ca3..975291471df62ed23855e3805c4f04a5df1c7bd8 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2513,7 +2513,7 @@ text matching `comint-prompt-regexp'."
              (if (> n 0)
                  (next-single-char-property-change pos 'field)
                (previous-single-char-property-change pos 'field)))
-       (cond ((or (null pos) (= pos prev-pos))
+       (cond ((= pos prev-pos)
               ;; Ran off the end of the buffer.
               (when (> n 0)
                 ;; There's always an input field at the end of the