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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c822db56797d0d520d20f047f4137e58381d3d4..fde802367eb539f9fc7c2501ebe29601d4857654 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 

diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index 99704e02b352f2cad34f44738a47137cc01dee0a..6e307d1ab86ee3f840aa78c9a9dbf9a4ba0115f4 100644 (file)
--- a/lisp/ebuff-menu.el
+++ b/lisp/ebuff-menu.el
@@ -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)

diff --git a/lisp/electric.el b/lisp/electric.el
index db53b5fa84ef756b60d93dacd1e82c2416fd9c6b..fb3e462efbaf757c06555166ffd9caf67fb2405b 100644 (file)
--- 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)