467 |
(insert (or title title "Calc Edit Mode. ") |
(insert (or title title "Calc Edit Mode. ") |
468 |
"Press `C-c C-c'" |
"Press `C-c C-c'" |
469 |
(if allow-ret "" " or RET") |
(if allow-ret "" " or RET") |
470 |
" to finish, `C-x k RET' to cancel.\n"))) |
" to finish, `C-x k RET' to cancel.\n\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 () |
485 |
(delete-window win)))) |
(delete-window win)))) |
486 |
(set-buffer-modified-p nil) |
(set-buffer-modified-p nil) |
487 |
(goto-char (point-min)) |
(goto-char (point-min)) |
488 |
(forward-line 1))) |
(forward-line 2))) |
489 |
|
|
490 |
(defun calc-edit-return () |
(defun calc-edit-return () |
491 |
(interactive) |
(interactive) |
522 |
(goto-char (point-min)) |
(goto-char (point-min)) |
523 |
(when (looking-at "Calc Edit\\|Editing ") |
(when (looking-at "Calc Edit\\|Editing ") |
524 |
(forward-line 1)) |
(forward-line 1)) |
525 |
|
(if (looking-at "^ *$") |
526 |
|
(forward-line 1)) |
527 |
(if (buffer-modified-p) |
(if (buffer-modified-p) |
528 |
(eval calc-edit-handler)) |
(eval calc-edit-handler)) |
529 |
(if one-window |
(if one-window |