Mercurial > emacs
comparison lisp/calc/calc-sel.el @ 101001:14b421290b2f
Replace last-command-char with last-command-event.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 09 Jan 2009 03:57:12 +0000 |
| parents | a9dc0e7c3f2b |
| children | b07dab1a7538 |
comparison
equal
deleted
inserted
replaced
| 101000:ee5456efd63c | 101001:14b421290b2f |
|---|---|
| 130 (setq num (1+ num)))) | 130 (setq num (1+ num)))) |
| 131 sel)))))) | 131 sel)))))) |
| 132 | 132 |
| 133 (defun calc-select-part (num) | 133 (defun calc-select-part (num) |
| 134 (interactive "P") | 134 (interactive "P") |
| 135 (or num (setq num (- last-command-char ?0))) | 135 (or num (setq num (- last-command-event ?0))) |
| 136 (calc-wrapper | 136 (calc-wrapper |
| 137 (calc-prepare-selection) | 137 (calc-prepare-selection) |
| 138 (let ((sel (calc-find-nth-part (or (nth 2 calc-selection-cache-entry) | 138 (let ((sel (calc-find-nth-part (or (nth 2 calc-selection-cache-entry) |
| 139 (car calc-selection-cache-entry)) | 139 (car calc-selection-cache-entry)) |
| 140 num))) | 140 num))) |