Commit dcbdf573 authored by Jay Belanger's avatar Jay Belanger
Browse files

(calc-edit-mode): Mention C-cC-c as the way to finish, C-xk as the way

to cancel the edit.  Add cancel routine to kill-buffer-hook.
parent 7c31514a
......@@ -460,16 +460,14 @@ To cancel the edit, simply kill the *Calc Edit* buffer."
(make-local-variable 'calc-allow-ret)
(setq calc-allow-ret allow-ret)
(erase-buffer)
(add-hook 'kill-buffer-hook (lambda ()
(let ((calc-edit-handler nil))
(calc-edit-finish t))
(message "(Cancelled)")) t t)
(insert (or title title "Calc Edit Mode")
". Press "
(if (eq (lookup-key (current-global-map) "\e#") 'calc-dispatch)
"M-# M-# or C-c C-c"
(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")))
". Press `C-c C-c'"
(if allow-ret "" " or RET")
" to finish, `C-x k RET' to cancel.\n")))
(put 'calc-edit-mode 'mode-class 'special)
(defun calc-show-edit-buffer ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment