Commit e65f2cc0 authored by Richard M. Stallman's avatar Richard M. Stallman

(electric-command-history): Call Command-history-setup

and command-history-mode using their new conventions.
parent 23e3e630
......@@ -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)
......
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