460 |
(make-local-variable 'calc-allow-ret) |
(make-local-variable 'calc-allow-ret) |
461 |
(setq calc-allow-ret allow-ret) |
(setq calc-allow-ret allow-ret) |
462 |
(erase-buffer) |
(erase-buffer) |
463 |
|
(add-hook 'kill-buffer-hook (lambda () |
464 |
|
(let ((calc-edit-handler nil)) |
465 |
|
(calc-edit-finish t)) |
466 |
|
(message "(Cancelled)")) t t) |
467 |
(insert (or title title "Calc Edit Mode") |
(insert (or title title "Calc Edit Mode") |
468 |
". Press " |
". Press `C-c C-c'" |
469 |
(if (eq (lookup-key (current-global-map) "\e#") 'calc-dispatch) |
(if allow-ret "" " or RET") |
470 |
"M-# M-# or C-c C-c" |
" to finish, `C-x k RET' to cancel.\n"))) |
|
(if allow-ret "C-c C-c" "RET")) |
|
|
" to finish, " |
|
|
(if (eq (lookup-key (current-global-map) "\e#") 'calc-dispatch) |
|
|
"M-# x" |
|
|
"C-x k RET") |
|
|
" to cancel.\n"))) |
|
471 |
(put 'calc-edit-mode 'mode-class 'special) |
(put 'calc-edit-mode 'mode-class 'special) |
472 |
|
|
473 |
(defun calc-show-edit-buffer () |
(defun calc-show-edit-buffer () |