Avoid errors in redisplay--pre-redisplay-functions

* lisp/emacs-lisp/cursor-sensor.el (cursor-sensor--detect): Don't
use 'bobp', instead compare window-point with 1.  (Bug#21730)
This commit is contained in:
Eli Zaretskii 2015-10-31 15:31:17 +02:00
parent b059c6b584
commit 553d7e9b38

View file

@ -113,7 +113,7 @@
;; non-sticky on both ends, but that means get-pos-property might
;; never see it.
(new (or (get-char-property point 'cursor-sensor-functions)
(unless (bobp)
(unless (= point 1)
(get-char-property (1- point) 'cursor-sensor-functions))))
(old (window-parameter window 'cursor-sensor--last-state))
(oldposmark (car old))