Mercurial > emacs
changeset 70513:111b83914201
(kmacro-push-ring): Let-bind history-delete-duplicates
to nil around call to add-to-history.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 07 May 2006 20:49:16 +0000 |
| parents | 7bc1bc4d2381 |
| children | 4b4be784a6c8 |
| files | lisp/kmacro.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/kmacro.el Sun May 07 20:49:01 2006 +0000 +++ b/lisp/kmacro.el Sun May 07 20:49:16 2006 +0000 @@ -349,7 +349,8 @@ (defun kmacro-push-ring (&optional elt) "Push ELT or current macro onto `kmacro-ring'." (when (setq elt (or elt (kmacro-ring-head))) - (add-to-history 'kmacro-ring elt kmacro-ring-max t))) + (let ((history-delete-duplicates nil)) + (add-to-history 'kmacro-ring elt kmacro-ring-max)))) (defun kmacro-split-ring-element (elt)