# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1147034956 0
# Node ID 111b83914201c7e55ee56619f2e11d8cc309636f
# Parent  7bc1bc4d23811eb9670498eb854e41e44debb6ee
(kmacro-push-ring): Let-bind history-delete-duplicates
to nil around call to add-to-history.

diff -r 7bc1bc4d2381 -r 111b83914201 lisp/kmacro.el
--- 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)