From 024c5fedce14509b4763f452d60cb9545c76dbb4 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sat, 19 Mar 2011 21:52:44 +0100
Subject: =?UTF-8?q?Propagate=20the=20=E2=80=9Chl=E2=80=9D=20parameter=20as?=
 =?UTF-8?q?=20well.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 mulkcms.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/mulkcms.lisp b/mulkcms.lisp
index 4cf1473..ae31321 100644
--- a/mulkcms.lisp
+++ b/mulkcms.lisp
@@ -1040,7 +1040,9 @@
                          langs)))
              *default-characteristics-precedence-list*))
         (*propagated-params* (remove-if-not (lambda (x)
-                                              (equal (car x) "lang"))
+                                              (member (car x)
+                                                      (list "lang" "hl")
+                                                      :test #'equal))
                                             params)))
     (or (find-article-summary-handler
          path
-- 
cgit v1.2.3