diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-12-02 21:21:32 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-12-02 21:21:32 +0000 |
| commit | 7e1637c2cb99d07d17cd8101e26acee2907a5a0a (patch) | |
| tree | 42ba57dcfc339132ef2a7d14ded6c68489d7c2d1 /lisp | |
| parent | 8be0b54e3beb33828fc2abb3a8a63eae5c496655 (diff) | |
| download | emacs-7e1637c2cb99d07d17cd8101e26acee2907a5a0a.tar.gz | |
(calc-read-key-sequence): Leave message visible.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <belanger@truman.edu> + + * calc/calc.el (calc-read-key-sequence): Leave the old message visible + when reading a new key sequence. + 2004-12-02 Kim F. Storm <storm@cua.dk> * 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))))) |