Index: document_header.tcl
==================================================================
--- document_header.tcl
+++ document_header.tcl
@@ -36,11 +36,11 @@
           <li class='desktoponly'><a href="${path}download.html">Download</a>
           <li class='wideonly'><a href='${path}copyright.html'>License</a>
           <li class='desktoponly'><a href="${path}support.html">Support</a>
           <li class='desktoponly'><a href="${path}prosupport.html">Purchase</a>
           <li class='search' id='search_menubutton'>
-            <a href="javascript:void(0)" onclick='toggle_div("searchmenu")'>Search</a>
+            <a href="javascript:void(0)" onclick='toggle_search()'>Search</a>
         </ul>
       </div>
       <div class="menu submenu" id="submenu">
         <ul>
           <li><a href='${path}about.html'>About</a>
@@ -50,11 +50,15 @@
           <li><a href='${path}prosupport.html'>Purchase</a>
         </ul>
       </div>
       <div class="searchmenu" id="searchmenu">
         <form method="GET" action="${path}search">
-          <span class="desktoponly">Search for:</span> <input type="text" name="q">
+          <select name="s" id="searchtype">
+            <option value="d">Search Documentation</option>
+            <option value="c">Search Changelog</option>
+          </select>
+          <input type="text" name="q" id="searchbox" value="$search">
           <input type="submit" value="Go">
         </form>
       </div>
     </div>
   }]
@@ -67,10 +71,23 @@
           w.style.display = "none";
         }else{
           w.style.display = "block";
         }
       }
+
+      function toggle_search() {
+        var w = document.getElementById("searchmenu");
+        if( w.style.display=="block" ){
+          w.style.display = "none";
+        } else {
+          w.style.display = "block";
+          setTimeout(function(){
+            document.getElementById("searchbox").focus()
+          }, 30);
+        }
+      }
+
       function div_off(nm){document.getElementById(nm).style.display="none";}
       window.onbeforeunload = function(e){div_off("submenu");}
 
       /* Disable the Search feature if we are not operating from CGI, since */
       /* Search is accomplished using CGI and will not work without it. */

Index: search/buildsearchdb.tcl
==================================================================
--- search/buildsearchdb.tcl
+++ search/buildsearchdb.tcl
@@ -4,10 +4,28 @@
 #load ./tokenize.so
 
 source [file join [file dirname [info script]] hdom.tcl]
 
 set ::G(rowid) 1
+
+proc releaselog_to_version {doc} {
+  set version 0_0_0
+  regexp {releaselog/(.*).html} $doc -> version
+  split $version _
+}
+
+proc release_cmp {a b} {
+  set v1 [releaselog_to_version $a]
+  set v2 [releaselog_to_version $b]
+  lappend v1 {*}[lrange {-1 -1 -1 -1 -1} [llength $v1] end]
+  lappend v2 {*}[lrange {-1 -1 -1 -1 -1} [llength $v2] end]
+  foreach x $v1 y $v2 {
+    if {$x < $y} { return -1 }
+    if {$x > $y} { return +1 }
+  }
+  return 0
+}
 
 # Return a list of relative paths to documents that should be included 
 # in the index.
 proc document_list {type} {
   global weight
@@ -81,15 +99,15 @@
         } {
           set f1 [lindex [lsort -decreasing [glob releaselog/$prefix*.html]] 0]
           if {$f!=$f1} { set ::weight($f) 10 }
         } 
       }
+    }
 
-      foreach f [glob releaselog/*.html] { 
-        if {[info exists nosearch($f)]==0} { 
-          lappend lFiles $f 
-        }
+    changelog {
+      foreach f [lsort -decr -command release_cmp [glob releaselog/*.html]] { 
+        if {$f != "releaselog/current.html"} { lappend lFiles $f }
       }
     }
 
     default {
       error "document_list: unknown file type $type"
@@ -220,10 +238,18 @@
   for {set P [$N parent]} {$P!=""} {set P [$P parent]} {
     if {[$P attr -default "" class]=="nosearch"} { return 0 }
   }
   return 1
 }
+
+proc releaselog_filterscript {N} {
+  for {set P [$N parent]} {$P!=""} {set P [$P parent]} {
+    if {[$P attr -default "" class]=="nosearch"} { return 0 }
+    if {[$P tag]=="li"} { return 0 }
+  }
+  return 1
+}
 
 proc extract_text_from_dom {dom filterscript} {
   set text ""
   set body [lindex [[$dom root] search body] 0]
   $body foreach_descendent N {
@@ -335,10 +361,40 @@
     incr i
     set url "${doc}#${tag}"
     insert_entry -rowid $i -url $url -title1 $title -title2 $hdr -content $text
   }
 }
+
+proc changelog_document_import {doc} {
+
+  set content [readfile $doc]
+  set end [string first "Changes carried forward from version " $content]
+  if {$end>0} { set content [string range $content 0 $end] }
+
+  set dom [::hdom::parse $content]
+
+  # Extract the version number from the document name.
+  set version 0.0.0
+  regexp {releaselog/(.*).html} $doc -> version
+  set version [string map {_ .} $version]
+
+  # Find each of the <li> nodes in the document.
+  foreach li [[$dom root] search li] {
+    if {0==[releaselog_filterscript $li]} continue
+
+    set i 1
+    set ol [$li parent]
+    if {$ol=="" || [$ol tag]!="ol"} {error UNTHINKABLE!}
+    foreach c [$ol children] {
+      if {$c==$li} break
+      if {[$c tag]=="li"} {incr i}
+    }
+
+    set t [$li text]
+    db eval { INSERT INTO change VALUES($doc, $version, $i, $t) }
+  }
+}
 
 proc rebuild_database {} {
 
   db transaction {
     # Create the database schema. If the schema already exists, then those
@@ -360,10 +416,23 @@
 
       DROP TABLE IF EXISTS weight;
       CREATE TABLE weight(id INTEGER PRIMARY KEY, percent FLOAT);
 
       INSERT INTO page(page, rank) VALUES('rank', 'bm25(10.0,10.0,20.0,20.0)');
+
+      DROP TABLE IF EXISTS change;
+      CREATE VIRTUAL TABLE change USING fts5(
+          url UNINDEXED,          -- Path to document
+          version UNINDEXED,      -- SQLite version number
+          idx UNINDEXED,          -- Bullet point number
+          text                    -- Text of change log entry
+      );
+    }
+
+    foreach doc [document_list changelog] { 
+      puts "Indexing $doc..."
+      changelog_document_import $doc 
     }
 
     foreach doc [document_list lang] {
       puts "Indexing $doc..."
       lang_document_import $doc
@@ -376,12 +445,14 @@
 
     foreach doc [document_list generic] { 
       puts "Indexing $doc..."
       generic_document_import $doc 
     }
+
 
     db eval { INSERT INTO page(page) VALUES('optimize') }
+    db eval { INSERT INTO change(change) VALUES('optimize') }
 
     foreach f [array names ::weight] {
       set w $::weight($f)
       db eval {SELECT rowid FROM page WHERE url=$f} {
         db eval { INSERT INTO weight VALUES($rowid, $w); }

Index: search/search.tcl
==================================================================
--- search/search.tcl
+++ search/search.tcl
@@ -115,11 +115,10 @@
         ip,                  -- IP query was made from
         query,               -- Fts5 query string
         nres,                -- Number of results
         timestamp DEFAULT CURRENT_TIMESTAMP
       );
-
       INSERT INTO log(ip, query, nres) VALUES($ip, $query, $nRes);
     COMMIT;
   }
 
   db2 close
@@ -221,10 +220,46 @@
 proc ttime {script} {
   set t [lindex [time [list uplevel $script]] 0]
   if {$t>1000000} { return [format "%.2f s" [expr {$t/1000000.0}]] }
   return [format "%.2f ms" [expr {$t/1000.0}]]
 }
+
+proc searchchanges {} {
+  global A
+  if {![info exists A(q)]} return ""
+
+  set open {<span style="background-color:#d9f2e6">}
+  set close {</span>}
+  set query {
+    SELECT url, version, idx, highlight(change, 3, $open, $close) AS text 
+    FROM change($A(q)) ORDER BY rowid ASC
+  }
+
+  set ret [subst {
+    <p>Change log entries mentioning: <b>[htmlize $::A(q)]</b>
+    <table border=0>
+  }]
+
+  set s2 "style=\"margin-top:0\""
+  set s1 "style=\"font-size:larger; text-align:left\" class=nounderline"
+  set prev ""
+  db eval $query {
+    if {$prev!=$version} {
+      append ret [subst {
+        <tr> <td $s1 valign=top> <a href=$url>$version</a> <td> <ul $s2>
+      }]
+      set prev $version
+    }
+    append ret [subst { <li value=$idx> ($idx) $text }]
+  }
+
+  append ret "</table>"
+  append ret "<center><p>You can also see the <a href=changes.html>entire"
+  append ret " changelog as a single page</a> if you wish.</center>"
+
+  return $ret
+}
 
 proc searchresults {} {
   if {![info exists ::A(q)]} return ""
   #set ::A(q) [string map {' ''} $A(q)]
   #regsub -all {[^-/"A-Za-z0-9]} $::A(q) { } ::A(q)
@@ -380,21 +415,28 @@
     set ::PATH ../
     return [admin_list]
   }
 
   sqlite3 db search.d/search.db
+
+  set cmd searchresults
+  if {[info exists A(s)] && $A(s)=="c"} {
+    set cmd searchchanges
+  }
 
   db transaction {
     set t [ttime { 
-      if {[catch searchresults srchout]} {
+      if {[catch $cmd srchout]} {
         set A(q) [string tolower $A(q)]
-        set srchout [searchresults]
+        set srchout [$cmd]
       }
       set doc $srchout
     }]
   }
+  append doc "<center>"
   append doc "<p>Page generated by <a href='fts5.html'>FTS5</a> in about $t."
+  append doc "</center>"
   return $doc
 
   # return [cgi_env_dump]
 }
 
@@ -420,10 +462,26 @@
     append title " - [htmlize $::A(q)]"
   } else {
     set initsearch {}
   }
   set document [document_header $title $::PATH $initsearch]
+  append document [subst {
+    <script>
+      window.addEventListener('load', function() {
+        var w = document.getElementById("searchmenu");
+        w.style.display = "block";
+
+        document.getElementById("searchtype").value = "$::A(s)"
+
+        setTimeout(function(){
+          var s = document.getElementById("searchbox");
+          s.focus();
+          s.select();
+        }, 30);
+      });
+    </script>
+  }]
   append document $res
 } else {
   set document "<pre>"
   append document "Error: $res\n\n"
   append document $::errorInfo