Changeset c6ecf5c for perl/lib

Timestamp:

Jul 11, 2009, 1:14:36 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

bd7fb58

Parents:

d41294a

git-author:

Nelson Elhage <nelhage@mit.edu> (06/21/09 01:12:01)

git-committer:

Nelson Elhage <nelhage@mit.edu> (07/11/09 13:14:36)

Message:

Implement text_{before,after)_point in Perl.

These can easily be implemented in perl using save_excursion and
get_region, so there's no need for them in C.

File:

• perl/lib/BarnOwl/Editwin.pm (modified) (1 diff)

perl/lib/BarnOwl/Editwin.pm

@@ -21 +21 @@
                     save_excursion current_column point mark);
 
+sub text_before_point {
+    save_excursion {
+        BarnOwl::command('edit:set-mark');
+        BarnOwl::command('edit:move-to-buffer-start');
+        get_region();
+    }
+}
+
+sub text_after_point {
+    save_excursion {
+        BarnOwl::command('edit:set-mark');
+        BarnOwl::command('edit:move-to-buffer-end');
+        get_region();
+    }
+}
+
 1;