bug#6349: 24.0.50; C-a doesn't work in tty

[Katsumi Yamaoka <yamaoka@jpl.org>]

Katsumi Yamaoka wrote:
>>>>>> Katsumi Yamaoka wrote:
>> If a long line, of which the left side is truncated, begins with
>> a wide character in the window, the `C-a' command doesn't move
>> the cursor.  It happens in Emacs launched as `emacs -nw -Q'.
>> Please try this form:

>> (let ((buffer (get-buffer-create "*testing*")))
>>   (pop-to-buffer buffer)
>>   (erase-buffer)
>>   (insert-char (make-char 'japanese-jisx0208 36 34) 256)
>>   (setq truncate-lines t)
>>   (end-of-line))

> Not only the C-a command but also any kind of operation that should
> set the window-hscroll to zero doesn't seem to work in tty.

[...]

Here's a workaround:

(defadvice move-beginning-of-line (after set-window-hscroll-to-zero-in-tty
					 activate)
  "Set window-hscroll to zero in tty if point moves to bol."
  (if (and (not window-system) (bolp))
      (set-window-hscroll (selected-window) 0)))