diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-07 20:20:30 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-07 20:20:30 -0400 |
| commit | ba5bf5f0f9d661602397cd690d796940b17173ba (patch) | |
| tree | 61f073b16bef1438b4ee3857983ec3cc4538515f /lisp/electric.el | |
| parent | 94b612ad880e0d6eab6659347cb66e3a5310f8be (diff) | |
| download | emacs-ba5bf5f0f9d661602397cd690d796940b17173ba.tar.gz | |
Misc code tweaks.
* electric.el (Electric-command-loop): Minor tweak.
* ebuff-menu.el (electric-buffer-list): Try and make it behave a bit
better with dedicated windows.
Diffstat (limited to 'lisp/electric.el')
| -rw-r--r-- | lisp/electric.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/electric.el b/lisp/electric.el index db53b5fa84e..fb3e462efba 100644 --- a/lisp/electric.el +++ b/lisp/electric.el @@ -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) |