Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
and command-history-mode using their new conventions.
This commit is contained in:
Richard M. Stallman 1999-12-31 23:41:11 +00:00
parent 23e3e630ba
commit e65f2cc093
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/echistory.el
View file

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