Mercurial > emacs
comparison lisp/calc/calc.el @ 72838:33d86144989f
(calc-dispatch): Remove unnecessary `sit-for'.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Tue, 12 Sep 2006 16:58:31 +0000 |
| parents | b0e0cacf6e6a |
| children | 7a3f13e2dd57 a1a25ac6c88a |
comparison
equal
deleted
inserted
replaced
| 72837:3f39d6fe4928 | 72838:33d86144989f |
|---|---|
| 1099 | 1099 |
| 1100 ;;;###autoload | 1100 ;;;###autoload |
| 1101 (defun calc-dispatch (&optional arg) | 1101 (defun calc-dispatch (&optional arg) |
| 1102 "Invoke the GNU Emacs Calculator. See `calc-dispatch-help' for details." | 1102 "Invoke the GNU Emacs Calculator. See `calc-dispatch-help' for details." |
| 1103 (interactive "P") | 1103 (interactive "P") |
| 1104 (sit-for echo-keystrokes) | 1104 ; (sit-for echo-keystrokes) |
| 1105 (condition-case err ; look for other keys bound to calc-dispatch | 1105 (condition-case err ; look for other keys bound to calc-dispatch |
| 1106 (let ((keys (this-command-keys))) | 1106 (let ((keys (this-command-keys))) |
| 1107 (unless (or (not (stringp keys)) | 1107 (unless (or (not (stringp keys)) |
| 1108 (string-match "\\`\C-u\\|\\`\e[-0-9#]\\|`[\M--\M-0-\M-9]" keys) | 1108 (string-match "\\`\C-u\\|\\`\e[-0-9#]\\|`[\M--\M-0-\M-9]" keys) |
| 1109 (eq (lookup-key calc-dispatch-map keys) 'calc-same-interface)) | 1109 (eq (lookup-key calc-dispatch-map keys) 'calc-same-interface)) |