From: Kim F. Storm <storm@cua.dk>
Date: Sun, 7 May 2006 20:49:16 +0000 (+0000)
Subject: (kmacro-push-ring): Let-bind history-delete-duplicates
X-Git-Tag: emacs-pretest-22.0.90~2689
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=549b93ddac9b2480eec05dca37304542ca9155d3;p=emacs.git

(kmacro-push-ring): Let-bind history-delete-duplicates
to nil around call to add-to-history.
---

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)