Mercurial > emacs
comparison lisp/calc/calc-ext.el @ 59664:dc794585f43f
(calc-fancy-prefix-other-key): Set prefix arg.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Fri, 21 Jan 2005 05:43:09 +0000 |
| parents | 22cbec80c668 |
| children | 3192518bb184 6d92d69fae33 |
comparison
equal
deleted
inserted
replaced
| 59663:acc0771108fb | 59664:dc794585f43f |
|---|---|
| 1399 (not (eq last-command-char 'M-tab)) | 1399 (not (eq last-command-char 'M-tab)) |
| 1400 (or (not (integerp last-command-char)) | 1400 (or (not (integerp last-command-char)) |
| 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 |
| 1407 (defun calc-invert-func () | 1408 (defun calc-invert-func () |
| 1408 (save-excursion | 1409 (save-excursion |