Mercurial > emacs
comparison lisp/calc/calc-yank.el @ 59300:f91e08bc3e59
(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 () |