(add-to-history): Remove keep-dups arg.

1 files changed, 3 insertions, 4 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 82d60a34d5f..d4167724ca0 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1123,21 +1123,20 @@ The return value is the new value of LIST-VAR."
                                 (< oa ob)
                               oa)))))))
 
-(defun add-to-history (history-var newelt &optional maxelt keep-dups)
+(defun add-to-history (history-var newelt &optional maxelt)
   "Add NEWELT to the history list stored in the variable HISTORY-VAR.
 Return the new history list.
 If MAXELT is non-nil, it specifies the maximum length of the history.
 Otherwise, the maximum history length is the value of the `history-length'
 property on symbol HISTORY-VAR, if set, or the value of the `history-length'
 variable.
-Remove duplicates of NEWELT unless `history-delete-duplicates' is nil
-or KEEP-DUPS is non-nil."
+Remove duplicates of NEWELT unless `history-delete-duplicates' is nil."
   (unless maxelt
     (setq maxelt (or (get history-var 'history-length)
                      history-length)))
   (let ((history (symbol-value history-var))
         tail)
-    (if (and history-delete-duplicates (not keep-dups))
+    (if history-delete-duplicates
         (setq history (delete newelt history)))
     (setq history (cons newelt history))
     (when (integerp maxelt)