mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-15 19:31:29 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
to nil around call to add-to-history.
This commit is contained in:
Kim F. Storm 2006-05-07 20:49:16 +00:00
parent ae9d1ae3b8
commit 549b93ddac
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/kmacro.el
View file

@ -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)