# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1147034941 0
# Node ID 7bc1bc4d23811eb9670498eb854e41e44debb6ee
# Parent  cd1e2cf9f28ca2ca6add46595fb9086f3adbadd3
(add-to-history): Remove keep-dups arg.

diff -r cd1e2cf9f28c -r 7bc1bc4d2381 lisp/subr.el
--- a/lisp/subr.el	Sun May 07 19:39:28 2006 +0000
+++ b/lisp/subr.el	Sun May 07 20:49:01 2006 +0000
@@ -1123,21 +1123,20 @@
 				(< 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)