From 549b93ddac9b2480eec05dca37304542ca9155d3 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sun, 7 May 2006 20:49:16 +0000 Subject: [PATCH] (kmacro-push-ring): Let-bind history-delete-duplicates to nil around call to add-to-history. --- lisp/kmacro.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/kmacro.el b/lisp/kmacro.el index e54b65ddb34..d3db76fcc8a 100644 --- a/lisp/kmacro.el +++ b/lisp/kmacro.el @@ -349,7 +349,8 @@ and `kmacro-counter-format'.") (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) -- 2.39.5