>>> (defun set-cursor-adaptive ()
>>> (setq cursor-type (if (eq (char-after (point)) ?\n) '(bar . 5) t)))
>>> (add-hook 'post-command-hook 'set-cursor-adaptive)
>>> However, it turns out that this doesn't work as well as it should --
>>> apparently changing `cursor-type' does not affect the shape of the
>>> cursor until after it is redrawn, either by changing the position of
>>> point, or by redrawing the frame.
>> As I see, this works correctly in the CVS version.
> Are you sure? It sometimes requires a bit more testing for the bug to
Have you tested it in Emacs CVS? I tried your recipe in Emacs 21.4
where I can reproduce this bug. But in Emacs CVS the same recipe
>> There is no function `set-cursor-type' in CVS. I use the patch
>> below. Note that it changes frame parameters instead of the
>> buffer-local variable `cursor-type'. I think this causes less
> Why? If anything, cursor type should be *window*-local. Then, if you
> change the cursor based on buffer contents (as my hook does), it is
> wrong to modify it for the entire frame. After all, frames can and do
> have more than one window.
Maybe, window-local is a better scope, but currently cursor type can
be either buffer-local or frame-local.
> Setting the cursor type interactively does not appear useful.
> This command would IMHO needlessly clutter the command namespace.
It is not very useful, but there is already a similar interactive
command `set-cursor-color', and I see no reason to have
`set-cursor-color', and not to have `set-cursor-type'.