crm.el: Fix addition of input to empty history list

diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index 251a92074a58fab0f29afb6caf33e1044205e42c..ca98d640a5eb944770bf2ebc192bd69dd6e52ef9 100644 (file)
--- a/lisp/emacs-lisp/crm.el
+++ b/lisp/emacs-lisp/crm.el
@@ -455,8 +455,7 @@ with empty strings removed."
          (results (split-string string crm-current-separator t)))
     (when-let ((hist-var (and history-add-new-input
                               hist (not (eq hist t))
-                              (if (consp hist) (car hist) hist)))
-               (hist-list (symbol-value hist)))
+                              (if (consp hist) (car hist) hist))))
       (dolist (res results) (add-to-history hist-var res)))
     results))