From 7663d687960b44e4f12f89f828752dc52688fc0b Mon Sep 17 00:00:00 2001
From: Philipp Gesang <phg42.2a@gmail.com>
Date: Fri, 31 May 2013 18:39:36 +0200
Subject: add option ``--show-blacklist`` to luaotfload-tool

---
 luaotfload-database.lua | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'luaotfload-database.lua')

diff --git a/luaotfload-database.lua b/luaotfload-database.lua
index d12c554..3d2b073 100644
--- a/luaotfload-database.lua
+++ b/luaotfload-database.lua
@@ -267,6 +267,7 @@ local flush_lookup_cache
 local font_fullinfo
 local load_names
 local load_lookups
+local read_blacklist
 local read_fonts_conf
 local reload_db
 local resolve
@@ -1193,7 +1194,7 @@ local create_blacklist = function (blacklist, whitelist)
 end
 
 --- unit -> unit
-local read_blacklist = function ()
+read_blacklist = function ()
     local files = {
         kpselookup("luaotfload-blacklist.cnf", {all=true, format="tex"})
     }
@@ -1213,7 +1214,7 @@ local read_blacklist = function ()
                 else
                     local cmt = stringfind(line, "%%")
                     if cmt then
-                        line = stringsub(line, cmt - 1)
+                        line = stringsub(line, 1, cmt - 1)
                     end
                     line = stringstrip(line)
                     report("log", 2, "db", "blacklisted file “%s”", line)
@@ -1900,6 +1901,7 @@ names.save                        = save_names
 names.update                      = update_names
 names.crude_file_lookup           = crude_file_lookup
 names.crude_file_lookup_verbose   = crude_file_lookup_verbose
+names.read_blacklist              = read_blacklist
 
 --- font cache
 names.purge_cache    = purge_cache
-- 
cgit v1.2.3