Mercurial > emacs
comparison src/window.c @ 35772:22d10a2fa31a
(Fscroll_right, Fscroll_left): Use interactive_p
instead of Finteractive_p.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 31 Jan 2001 14:47:44 +0000 |
| parents | 5f154b8fc2bd |
| children | fe8277459ef3 |
comparison
equal
deleted
inserted
replaced
| 35771:959f9593632f | 35772:22d10a2fa31a |
|---|---|
| 4424 arg = Fprefix_numeric_value (arg); | 4424 arg = Fprefix_numeric_value (arg); |
| 4425 | 4425 |
| 4426 hscroll = XINT (w->hscroll) + XINT (arg); | 4426 hscroll = XINT (w->hscroll) + XINT (arg); |
| 4427 result = Fset_window_hscroll (selected_window, make_number (hscroll)); | 4427 result = Fset_window_hscroll (selected_window, make_number (hscroll)); |
| 4428 | 4428 |
| 4429 if (!NILP (Finteractive_p ())) | 4429 if (interactive_p (0)) |
| 4430 w->min_hscroll = w->hscroll; | 4430 w->min_hscroll = w->hscroll; |
| 4431 | 4431 |
| 4432 return result; | 4432 return result; |
| 4433 } | 4433 } |
| 4434 | 4434 |
| 4448 arg = Fprefix_numeric_value (arg); | 4448 arg = Fprefix_numeric_value (arg); |
| 4449 | 4449 |
| 4450 hscroll = XINT (w->hscroll) - XINT (arg); | 4450 hscroll = XINT (w->hscroll) - XINT (arg); |
| 4451 result = Fset_window_hscroll (selected_window, make_number (hscroll)); | 4451 result = Fset_window_hscroll (selected_window, make_number (hscroll)); |
| 4452 | 4452 |
| 4453 if (!NILP (Finteractive_p ())) | 4453 if (interactive_p (0)) |
| 4454 w->min_hscroll = w->hscroll; | 4454 w->min_hscroll = w->hscroll; |
| 4455 | 4455 |
| 4456 return result; | 4456 return result; |
| 4457 } | 4457 } |
| 4458 | 4458 |