Mercurial > emacs
changeset 70512:7bc1bc4d2381
(add-to-history): Remove keep-dups arg.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 07 May 2006 20:49:01 +0000 |
| parents | cd1e2cf9f28c |
| children | 111b83914201 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)