Commit 549b93dd authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(kmacro-push-ring): Let-bind history-delete-duplicates

to nil around call to add-to-history.
parent ae9d1ae3
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment