diff options
| author | Jay Belanger | 2005-01-21 05:43:09 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-01-21 05:43:09 +0000 |
| commit | 3a91dd3e50cd2c2bc919dc55fa7abeca7a8cb47d (patch) | |
| tree | 74911bbe666b2a486aefb79acdf0dd0bdca450d3 | |
| parent | 6f771c32b0b66240cbb2214e6977ba072155fd16 (diff) | |
| download | emacs-3a91dd3e50cd2c2bc919dc55fa7abeca7a8cb47d.tar.gz emacs-3a91dd3e50cd2c2bc919dc55fa7abeca7a8cb47d.zip | |
(calc-fancy-prefix-other-key): Set prefix arg.
| -rw-r--r-- | lisp/calc/calc-ext.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el index 059dab35767..8d3be3b8505 100644 --- a/lisp/calc/calc-ext.el +++ b/lisp/calc/calc-ext.el | |||
| @@ -1401,6 +1401,7 @@ calc-kill calc-kill-region calc-yank)))) | |||
| 1401 | (and (>= last-command-char 0) (< last-command-char ? ) | 1401 | (and (>= last-command-char 0) (< last-command-char ? ) |
| 1402 | (not (eq last-command-char meta-prefix-char))))) | 1402 | (not (eq last-command-char meta-prefix-char))))) |
| 1403 | (calc-wrapper)) ; clear flags if not a Calc command. | 1403 | (calc-wrapper)) ; clear flags if not a Calc command. |
| 1404 | (setq prefix-arg arg) | ||
| 1404 | (calc-unread-command) | 1405 | (calc-unread-command) |
| 1405 | (setq overriding-terminal-local-map nil)) | 1406 | (setq overriding-terminal-local-map nil)) |
| 1406 | 1407 | ||