[Emacs-diffs] trunk r117167: * lisp/register.el (register-read-with-preview): Don't burp on

[Stefan Monnier]

------------------------------------------------------------
revno: 117167
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2014-05-27 10:36:07 -0400
message:
  * lisp/register.el (register-read-with-preview): Don't burp on
  frame switches (e.g. due to the frame we just popped).
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/register.el               register.el-20091113204419-o5vbwnq5f7feedwu-104

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-05-27 05:01:49 +0000
+++ b/lisp/ChangeLog    2014-05-27 14:36:07 +0000
@@ -1,5 +1,8 @@
 2014-05-27  Stefan Monnier  <address@hidden>
 
+       * register.el (register-read-with-preview): Don't burp on
+       frame switches (e.g. due to the frame we just popped).
+
        * mouse.el (mouse-set-region): Handle spurious drag events (bug#17562).
        (mouse-drag-track): Annotate `mouse-drag-start' so we know we moved.
 

=== modified file 'lisp/register.el'
--- a/lisp/register.el  2014-03-16 09:26:58 +0000
+++ b/lisp/register.el  2014-05-27 14:36:07 +0000
@@ -161,7 +161,7 @@
                              collect c)))
     (unwind-protect
        (progn
-         (while (memq (read-event (propertize prompt 'face 'minibuffer-prompt))
+         (while (memq (read-key (propertize prompt 'face 'minibuffer-prompt))
                       help-chars)
            (unless (get-buffer-window buffer)
              (register-preview buffer 'show-empty)))