diff --git a/which-key.el b/which-key.el
index a684756c7c0..e0f335a4b8d 100644
--- a/which-key.el
+++ b/which-key.el
@@ -198,6 +198,7 @@ Used when `which-key-popup-type' is frame.")
   "Create buffer for which-key."
   (setq which-key--buffer (get-buffer-create which-key-buffer-name))
   (with-current-buffer which-key--buffer
+    (toggle-truncate-lines 1)
     (setq-local cursor-type nil)
     (setq-local cursor-in-non-selected-windows nil)
     (setq-local mode-line-format nil))
@@ -569,10 +570,10 @@ the maximum number of lines availabel in the target buffer."
             col-key-cns    (car col-split)
             rem-key-cns    (cadr col-split)
             n-col-lines    (min avl-lines (length rem-key-cns))
-            col-key-width  (reduce (lambda (x y)
+            col-key-width  (cl-reduce (lambda (x y)
                                      (max x (length (substring-no-properties (car y)))))
                                    col-key-cns :initial-value 0)
-            col-desc-width (reduce (lambda (x y)
+            col-desc-width (cl-reduce (lambda (x y)
                                      (max x (length (substring-no-properties (cdr y)))))
                                    col-key-cns :initial-value 0)
             col-width      (+ 4 (length (substring-no-properties sep-w-face))