diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-01-09 03:57:12 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-01-09 03:57:12 +0000 |
| commit | e93c003eb15f85f744a39c28a8fb43b8c6da9904 (patch) | |
| tree | 3a9d6acabbc4bd35bdb1b1680eb16e12b4761651 /lisp/calc/calc-yank.el | |
| parent | 4b09796d423bb241d597f147ce0d53567ce10b3f (diff) | |
| download | emacs-e93c003eb15f85f744a39c28a8fb43b8c6da9904.tar.gz emacs-e93c003eb15f85f744a39c28a8fb43b8c6da9904.tar.bz2 emacs-e93c003eb15f85f744a39c28a8fb43b8c6da9904.zip | |
Replace last-command-char with last-command-event.
Diffstat (limited to 'lisp/calc/calc-yank.el')
| -rw-r--r-- | lisp/calc/calc-yank.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el index 7618e271c9b..208372a31fd 100644 --- a/lisp/calc/calc-yank.el +++ b/lisp/calc/calc-yank.el @@ -489,7 +489,7 @@ With prefix arg, also delete the region." (insert str)) (let ((i 0)) (while (< i (length str)) - (if (= (setq last-command-char (aref str i)) ?\n) + (if (= (setq last-command-event (aref str i)) ?\n) (or (= i (1- (length str))) (let ((pt (point))) (end-of-line) @@ -702,7 +702,7 @@ To cancel the edit, simply kill the *Calc Edit* buffer." (if calc-edit-disp-trail (calc-trail-display 1 t)) (and vals - (let ((calc-simplify-mode (if (eq last-command-char ?\C-j) + (let ((calc-simplify-mode (if (eq last-command-event ?\C-j) 'none calc-simplify-mode))) (if (>= num 0) |