Changeset 6700c605 for commands.c

Timestamp:

Dec 24, 2009, 6:18:51 PM (15 years ago)

Author:

Alex Dehnert <adehnert@mit.edu>

Branches:

master, release-1.10, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

980fa31

Parents:

c471e85

git-author:

Alex Dehnert <adehnert@mit.edu> (12/20/09 01:50:12)

git-committer:

Alex Dehnert <adehnert@mit.edu> (12/24/09 18:18:51)

Message:

Allow left/right scrolling by arbitrary amount

Move recv:{left,right}shift to Perl and make
them optionally accept a number of columns to
scroll by (default: 10).

File:

• commands.c (modified) (2 diffs)

commands.c

@@ -320 +320 @@
   OWLCMD_INT("recv:setshift", owl_command_set_shift, OWL_CTX_INTERACTIVE,
               "scrolls receive window to specified position", "", ""),
-
-  OWLCMD_VOID("recv:shiftleft", owl_command_shift_left, OWL_CTX_INTERACTIVE,
-              "scrolls receive window to the left", "", ""),
-
-  OWLCMD_VOID("recv:shiftright", owl_command_shift_right, OWL_CTX_INTERACTIVE,
-              "scrolls receive window to the left", "", ""),
 
   OWLCMD_VOID("recv:pagedown", owl_function_mainwin_pagedown, 
@@ -1361 +1355 @@
   owl_mainwin_redisplay(owl_global_get_mainwin(&g));
   owl_global_set_needrefresh(&g);
-}
-
-void owl_command_shift_left(void)
-{
-  owl_function_shift_left();
-}
-
-void owl_command_shift_right(void)
-{
-  owl_function_shift_right();
 }