Mercurial > emacs

comparison lisp/calc/calc-yank.el @ 59300:f91e08bc3e59

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-edit-mode): Change default header.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sun, 02 Jan 2005 06:49:36 +0000
parents 6841983190b8
children abe8e399a00c
comparison
equal deleted inserted replaced
59299:b851b98f8dc1 59300:f91e08bc3e59
462 (erase-buffer) 462 (erase-buffer)
463 (add-hook 'kill-buffer-hook (lambda () 463 (add-hook 'kill-buffer-hook (lambda ()
464 (let ((calc-edit-handler nil)) 464 (let ((calc-edit-handler nil))
465 (calc-edit-finish t)) 465 (calc-edit-finish t))
466 (message "(Cancelled)")) t t) 466 (message "(Cancelled)")) t t)
467 (insert (or title title "Calc Edit Mode") 467 (insert (or title title "Calc Edit Mode. ")
468 ". Press `C-c C-c'" 468 "Press `C-c C-c'"
469 (if allow-ret "" " or RET") 469 (if allow-ret "" " or RET")
470 " to finish, `C-x k RET' to cancel.\n"))) 470 " to finish, `C-x k RET' to cancel.\n")))
471 (put 'calc-edit-mode 'mode-class 'special) 471 (put 'calc-edit-mode 'mode-class 'special)
472 472
473 (defun calc-show-edit-buffer () 473 (defun calc-show-edit-buffer ()