diff lisp/calc/calc-ext.el @ 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 3a5d173e246a
children dc794585f43f
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))