(calc-fancy-prefix-other-key): Don't clear flags if the last command
was a tab or M-tab.
This commit is contained in:
parent
9c25f170b6
commit
7679290d6e
2 changed files with 11 additions and 3 deletions
|
@ -1,3 +1,8 @@
|
|||
2005-01-19 Jay Belanger <belanger@truman.edu>
|
||||
|
||||
* calc/calc-ext.el (calc-fancy-prefix-other-key): Don't clear
|
||||
flags if the last command was a tab or M-tab.
|
||||
|
||||
2005-01-19 Nick Roberts <nickrob@snap.net.nz>
|
||||
|
||||
* progmodes/gdb-ui.el (gdb-put-breakpoint-icon): Add help-echo for
|
||||
|
|
|
@ -1394,9 +1394,12 @@ calc-kill calc-kill-region calc-yank))))
|
|||
|
||||
(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))
|
||||
|
|
Loading…
Add table
Reference in a new issue