diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-19 21:52:44 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-19 21:52:44 +0100 |
| commit | 024c5fedce14509b4763f452d60cb9545c76dbb4 (patch) | |
| tree | e4e53554c4b808b9a292f744a4a1f8484717f9a1 /mulkcms.lisp | |
| parent | 0efb4d6599625813479b0d280e12ae614b0dadd4 (diff) | |
Propagate the “hl” parameter as well.
Diffstat (limited to 'mulkcms.lisp')
| -rw-r--r-- | mulkcms.lisp | 4 |
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 |