mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

Misc code tweaks.

Browse Source 
* electric.el (Electric-command-loop): Minor tweak.
* ebuff-menu.el (electric-buffer-list): Try and make it behave a bit
better with dedicated windows.
This commit is contained in:
Stefan Monnier 2010-05-07 20:20:30 -04:00
parent 94b612ad88
commit ba5bf5f0f9
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2010-05-08 Stefan Monnier <monnier@iro.umontreal.ca>
* electric.el (Electric-command-loop): Minor tweak.
* ebuff-menu.el (electric-buffer-list): Try and make it behave a bit
better with dedicated windows.
2010-05-07 Deniz Dogan <deniz.a.m.dogan@gmail.com> (tiny change)
Stefan Monnier <monnier@iro.umontreal.ca>

2
lisp/ebuff-menu.el
View File

@ -95,7 +95,7 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry.
(cons first last))))))
(set-buffer buffer)
(Buffer-menu-mode)
(bury-buffer buffer)
(bury-buffer) ;Get rid of window, if dedicated.
(message "")))
(if select
(progn (set-buffer buffer)

6
lisp/electric.el
View File

@ -58,12 +58,10 @@
(err nil)
(prompt-string prompt))
(while t
(if (not (or (stringp prompt) (eq prompt nil) (eq prompt 'noprompt)))
(if (functionp prompt)
(setq prompt-string (funcall prompt)))
(if (not (stringp prompt-string))
(if (eq prompt-string 'noprompt)
(setq prompt-string nil)
(setq prompt-string "->")))
(setq prompt-string (unless (eq prompt-string 'noprompt) "->")))
(setq cmd (read-key-sequence prompt-string))
(setq last-command-event (aref cmd (1- (length cmd)))
this-command (key-binding cmd t)