diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-12-31 23:41:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-12-31 23:41:11 +0000 |
| commit | e65f2cc09364b340d23e379ce5de14c2fce3891b (patch) | |
| tree | 9086a376c1e3adc1ab7d3f26d8f5f0884dd8aff7 /lisp/echistory.el | |
| parent | 23e3e630bae537fec623fa1708a6d58025fcc7b7 (diff) | |
| download | emacs-e65f2cc09364b340d23e379ce5de14c2fce3891b.tar.gz | |
(electric-command-history): Call Command-history-setup
and command-history-mode using their new conventions.
Diffstat (limited to 'lisp/echistory.el')
| -rw-r--r-- | lisp/echistory.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/echistory.el b/lisp/echistory.el index f74a002b5e5..8e04d7eb01d 100644 --- a/lisp/echistory.el +++ b/lisp/echistory.el @@ -113,9 +113,10 @@ The Command History listing is recomputed each time this mode is invoked." (save-window-excursion (list-command-history) (set-buffer "*Command History*") - (Command-history-setup 'electric-command-history - "Electric History" - electric-history-map)) + (Command-history-setup) + (setq major-mode 'electric-command-history) + (setq mode-name "Electric History") + (use-local-map electric-history-map)) (Electric-pop-up-window "*Command History*") (run-hooks 'electric-command-history-hook) (if (eobp) @@ -126,7 +127,7 @@ The Command History listing is recomputed each time this mode is invoked." (Electric-command-loop 'electric-history-quit "->" t)))))) (set-buffer "*Command History*") - (Command-history-setup) + (command-history-mode) (bury-buffer (current-buffer))) (if (consp todo) (progn (set-buffer old-buffer) |