From 5d7bff563a2e77bd552b7a1105f032b12ce40c63 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Thu, 7 Sep 2006 01:27:59 +0000
Subject: [PATCH] Fix C+S+END/HOME

---
 TODO.FACTOR.txt                 | 3 +--
 doc/handbook/handbook.facts     | 2 +-
 library/ui/text/commands.factor | 4 ++--
 3 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index c134e257ee..ce3876ecb2 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,7 +1,5 @@
 + 0.85:
 
-- when to call reset-modified
-- C+S+END doesn't work
 - pane output in UI should use less memory
 - signal 4 on datastack underflow on mac intel??
 - faster I/O
@@ -34,6 +32,7 @@
 - status help persists after clicking on a link
 - tool help
 - browser: show currently selected vocab & words
+- doc sweep
 
 + ui:
 
diff --git a/doc/handbook/handbook.facts b/doc/handbook/handbook.facts
index f1c2ab7205..de868e851b 100644
--- a/doc/handbook/handbook.facts
+++ b/doc/handbook/handbook.facts
@@ -12,7 +12,7 @@ ARTICLE: "handbook" "Factor documentation"
     { "You can load source files with " { $link run-file } ":"
     { $code "\"examples/lcd.factor\" run-file" } }
     { { "You can load " { $snippet "contrib/" } " modules with " { $link require } ":" }
-    { $code "\"httpd\" require" } }
+    { $code "\"contrib/httpd\" require" } }
     { { $link .s } " prints the contents of the stack." }
     { { $link . } " prints the object at the top of the stack." }
 }
diff --git a/library/ui/text/commands.factor b/library/ui/text/commands.factor
index faf09c419b..4e64703067 100644
--- a/library/ui/text/commands.factor
+++ b/library/ui/text/commands.factor
@@ -122,7 +122,7 @@ editor {
         { "Select next line" T{ key-down f { S+ C+ } "RIGHT" } [ T{ word-elt } editor-select-next ] }
         { "Select to start of line" T{ key-down f { S+ } "HOME" } [ T{ one-line-elt } editor-select-prev ] }
         { "Select to end of line" T{ key-down f { S+ } "END" } [ T{ one-line-elt } editor-select-next ] }
-        { "Select start of document" T{ key-down f { C+ S+ } "HOME" } [ T{ doc-elt } editor-select-prev ] }
-        { "Select end of document" T{ key-down f { C+ S+ } "END" } [ T{ doc-elt } editor-select-next ] }
+        { "Select start of document" T{ key-down f { S+ C+ } "HOME" } [ T{ doc-elt } editor-select-prev ] }
+        { "Select end of document" T{ key-down f { S+ C+ } "END" } [ T{ doc-elt } editor-select-next ] }
     }
 } define-commands