summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-03-19 21:52:44 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-03-19 21:52:44 +0100
commit024c5fedce14509b4763f452d60cb9545c76dbb4 (patch)
treee4e53554c4b808b9a292f744a4a1f8484717f9a1
parent0efb4d6599625813479b0d280e12ae614b0dadd4 (diff)
Propagate the “hl” parameter as well.
-rw-r--r--mulkcms.lisp4
1 files changed, 3 insertions, 1 deletions
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