From bae73d604d9353981c707743377c884470d8b6af Mon Sep 17 00:00:00 2001
From: Sean O'Rourke <seano@cs.ucla.edu>
Date: Sat, 23 Jan 2010 19:24:57 -0700
Subject: [PATCH] 	* README: add development information. 	* lib/Sepia.pm
 (apropos_module): use "_apropos_re"

---
 ChangeLog             |  5 +++++
 README                | 11 +++++++++++
 lib/Sepia.pm          |  7 +++++--
 lib/Sepia/ReadLine.pm |  1 -
 4 files changed, 21 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 8b259dd..989ff10 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-23  Sean O'Rourke  <seano@cs.ucla.edu>
+
+	* README: add development information.
+	* lib/Sepia.pm (apropos_module): use "_apropos_re"
+
 2009-12-15  Sean O'Rourke  <seano@cs.ucla.edu>
 
 	* lib/Sepia.pm (repl_package): always change packages, even if
diff --git a/README b/README
index 4e422f2..fd4920a 100644
--- a/README
+++ b/README
@@ -39,6 +39,17 @@ run on other versions of Emacs, but may require additional packages.
     apel-emacs21-10.7
     ja-nkf-2.05
 
+* DEVELOPMENT
+The "official" source code repository mirror is at
+
+    http://repo.or.cz/w/sepia.git
+
+To get a copy, install Git, then
+
+    git clone git://repo.or.cz/sepia.git
+
+To submit a patch, please send a diff to the author, including an
+Emacs-style ChangeLog entry.
 * TODO
 ** (Easy) Use module, file, line to refine queries (Perl side)
 ** (Medium) Get the variable def/use analysis working again.
diff --git a/lib/Sepia.pm b/lib/Sepia.pm
index 13570bf..dc615ca 100644
--- a/lib/Sepia.pm
+++ b/lib/Sepia.pm
@@ -1851,17 +1851,20 @@ sub html_package_list
 
 sub apropos_module
 {
-    my $re = qr/$_[0]/;
+    my $re = _apropos_re $_[0];
     my $inst = inst();
     my %ret;
+    # User-installed modules
     for (package_list) {
         undef $ret{$_} if /$re/;
     }
+    # Core modules
+    # XXX: avoid having e.g. IO::Socket::UNIX match /^UN/
     undef $ret{$_} for map {
         s/.*man.\///; s|/|::|g; s/\.\d(?:pm)?$//; $_
     } grep {
         /\.\d(?:pm)?$/ && !/man1/ && !/usr\/bin/ && /$re/
-    } $inst->files('Perl');
+    } $inst->files('Perl', 'prog');
     sort keys %ret;
 }
 
diff --git a/lib/Sepia/ReadLine.pm b/lib/Sepia/ReadLine.pm
index 4f5fd99..c532b65 100644
--- a/lib/Sepia/ReadLine.pm
+++ b/lib/Sepia/ReadLine.pm
@@ -26,7 +26,6 @@ sub repl
     { package main; do $_ for @ARGV }
     $TERM = new Term::ReadLine;
     my $attr = $TERM->Attribs;
-    # $attr->{completion_entry_function} = \&rl_complete;
     $attr->{attempted_completion_function} = \&rl_attempted_complete;
     $Sepia::READLINE = sub { $TERM->readline(Sepia::prompt()) };
     goto &Sepia::repl;
-- 
2.11.4.GIT