Re: master 84e0b7d: Deprecate `intangible' and `point-entered' properties

[Katsumi Yamaoka]

On Mon, 13 Apr 2015 19:51:21 +0000, Stefan Monnier <address@hidden> wrote:
> +(defun gnus-group--setup-tool-bar-update (beg end)
> +  (when gnus-group-update-tool-bar
> +    (if (fboundp 'cursor-sensor-mode)
> +        (progn
> +          (unless (bound-and-true-p cursor-sensor-mode)
> +            (cursor-sensor-mode 1))
> +          (gnus-put-text-property beg end 'cursor-sensor-functions
> +                                  #'gnus-tool-bar-update))

I guess the value set to cursor-sensor-functions should be a list
or it should allow a non-list value.  When running Gnus I got:

Debugger entered--Lisp error: (wrong-type-argument listp gnus-tool-bar-update)
  cursor-sensor--detect(#<window 3 on *Group*>)
  run-hook-with-args(cursor-sensor--detect #<window 3 on *Group*>)
  redisplay--pre-redisplay-functions(t)
  apply(redisplay--pre-redisplay-functions t)
  #[128 "..." [apply redisplay--pre-redisplay-functions ignore nil] 4 nil 
nil](t)
  redisplay_internal\ \(C\ function\)()