diff options
| author | Kim F. Storm | 2006-05-07 20:49:16 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-05-07 20:49:16 +0000 |
| commit | 549b93ddac9b2480eec05dca37304542ca9155d3 (patch) | |
| tree | 35ed2613e56be31cb98c797cba24dea74b4d1b29 | |
| parent | ae9d1ae3b878d499663a6ae0798117bdbeab6bc0 (diff) | |
| download | emacs-549b93ddac9b2480eec05dca37304542ca9155d3.tar.gz emacs-549b93ddac9b2480eec05dca37304542ca9155d3.zip | |
(kmacro-push-ring): Let-bind history-delete-duplicates
to nil around call to add-to-history.
| -rw-r--r-- | lisp/kmacro.el | 3 |
1 files changed, 2 insertions, 1 deletions
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'.") | |||
| 349 | (defun kmacro-push-ring (&optional elt) | 349 | (defun kmacro-push-ring (&optional elt) |
| 350 | "Push ELT or current macro onto `kmacro-ring'." | 350 | "Push ELT or current macro onto `kmacro-ring'." |
| 351 | (when (setq elt (or elt (kmacro-ring-head))) | 351 | (when (setq elt (or elt (kmacro-ring-head))) |
| 352 | (add-to-history 'kmacro-ring elt kmacro-ring-max t))) | 352 | (let ((history-delete-duplicates nil)) |
| 353 | (add-to-history 'kmacro-ring elt kmacro-ring-max)))) | ||
| 353 | 354 | ||
| 354 | 355 | ||
| 355 | (defun kmacro-split-ring-element (elt) | 356 | (defun kmacro-split-ring-element (elt) |