From 7e1637c2cb99d07d17cd8101e26acee2907a5a0a Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Thu, 2 Dec 2004 21:21:32 +0000 Subject: [PATCH] (calc-read-key-sequence): Leave message visible. --- lisp/ChangeLog | 5 +++++ lisp/calc/calc.el | 4 +--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 67f6db4a95e..7817a5d647d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-12-02 Jay Belanger + + * calc/calc.el (calc-read-key-sequence): Leave the old message visible + when reading a new key sequence. + 2004-12-02 Kim F. Storm * faces.el (escape-glyph): Rename from glyph. diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 4e73763aeb2..a7e840594ec 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -967,9 +967,7 @@ If nil, selections displayed but ignored.") (progn (use-global-map map) (use-local-map nil) - (read-key-sequence - (if (commandp (key-binding (vector (cdr key)))) - "" prompt2))) + (read-key-sequence nil)) (use-global-map glob) (use-local-map loc))))) -- 2.39.5