| 1 | /*--------------------------------*-C-*---------------------------------* |
1 | /*----------------------------------------------------------------------* |
| 2 | * File: command.C |
2 | * File: command.C |
| 3 | *----------------------------------------------------------------------* |
3 | *----------------------------------------------------------------------* |
| 4 | * |
4 | * |
| 5 | * All portions of code are copyright by their respective author/s. |
5 | * All portions of code are copyright by their respective author/s. |
| 6 | * Copyright (c) 1992 John Bovey, University of Kent at Canterbury <jdb@ukc.ac.uk> |
6 | * Copyright (c) 1992 John Bovey, University of Kent at Canterbury <jdb@ukc.ac.uk> |
| … | |
… | |
| 2765 | if (OPTION (Opt_jumpScroll) && refresh_limit < REFRESH_PERIOD) |
2765 | if (OPTION (Opt_jumpScroll) && refresh_limit < REFRESH_PERIOD) |
| 2766 | refresh_limit++; |
2766 | refresh_limit++; |
| 2767 | else |
2767 | else |
| 2768 | { |
2768 | { |
| 2769 | flag = true; |
2769 | flag = true; |
|
|
2770 | //TODO: due to popular request, implement "skipscroll" option here |
| 2770 | scr_refresh (); |
2771 | scr_refresh (); |
| 2771 | want_refresh = 1; |
2772 | want_refresh = 1; |
| 2772 | } |
2773 | } |
| 2773 | } |
2774 | } |
| 2774 | |
2775 | |
| … | |
… | |
| 3755 | int saveop = op; |
3756 | int saveop = op; |
| 3756 | |
3757 | |
| 3757 | dLocal (Display *, dpy); |
3758 | dLocal (Display *, dpy); |
| 3758 | |
3759 | |
| 3759 | assert (str != NULL); |
3760 | assert (str != NULL); |
|
|
3761 | |
|
|
3762 | if (HOOK_INVOKE ((this, HOOK_OSC_SEQ, DT_INT, op, DT_STR, str, DT_END))) |
|
|
3763 | ; // no responses yet |
|
|
3764 | |
| 3760 | switch (op) |
3765 | switch (op) |
| 3761 | { |
3766 | { |
| 3762 | case XTerm_name: |
3767 | case XTerm_name: |
| 3763 | set_title (str); |
3768 | set_title (str); |
| 3764 | /* FALLTHROUGH */ |
3769 | /* FALLTHROUGH */ |
| … | |
… | |
| 3981 | break; |
3986 | break; |
| 3982 | #endif |
3987 | #endif |
| 3983 | |
3988 | |
| 3984 | #if ENABLE_PERL |
3989 | #if ENABLE_PERL |
| 3985 | case URxvt_perl: |
3990 | case URxvt_perl: |
| 3986 | if (HOOK_INVOKE ((this, HOOK_OSC_SEQ, DT_STR, str, DT_END))) |
3991 | if (HOOK_INVOKE ((this, HOOK_OSC_SEQ_PERL, DT_STR, str, DT_END))) |
| 3987 | ; // no responses yet |
3992 | ; // no responses yet |
| 3988 | break; |
3993 | break; |
| 3989 | #endif |
3994 | #endif |
| 3990 | } |
3995 | } |
| 3991 | } |
3996 | } |
