From e65f2cc09364b340d23e379ce5de14c2fce3891b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 31 Dec 1999 23:41:11 +0000 Subject: [PATCH] (electric-command-history): Call Command-history-setup and command-history-mode using their new conventions. --- lisp/echistory.el | 9 +++++---- 1 file 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) -- 2.39.5