Mercurial > emacs
changeset 59638:22cbec80c668
(calc-fancy-prefix-other-key): Don't clear flags if the last command
was a tab or M-tab.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Wed, 19 Jan 2005 16:47:32 +0000 |
| parents | 55df25f51581 |
| children | e0a530aaee0e |
| files | lisp/calc/calc-ext.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-ext.el Wed Jan 19 10:05:28 2005 +0000 +++ b/lisp/calc/calc-ext.el Wed Jan 19 16:47:32 2005 +0000 @@ -1394,9 +1394,12 @@ (defun calc-fancy-prefix-other-key (arg) (interactive "P") - (if (or (not (integerp last-command-char)) - (and (>= last-command-char 0) (< last-command-char ? ) - (not (eq last-command-char meta-prefix-char)))) + (if (and + (not (eq last-command-char 'tab)) + (not (eq last-command-char 'M-tab)) + (or (not (integerp last-command-char)) + (and (>= last-command-char 0) (< last-command-char ? ) + (not (eq last-command-char meta-prefix-char))))) (calc-wrapper)) ; clear flags if not a Calc command. (calc-unread-command) (setq overriding-terminal-local-map nil))