diff options
| author | Jay Belanger | 2005-01-02 07:39:20 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-01-02 07:39:20 +0000 |
| commit | 72e53dcd4198a717d3ae7488500396d05ccb5e69 (patch) | |
| tree | a0aba7eb472c2779a467f2a6b0ddea2e72a659e7 | |
| parent | 42a797def401f87066c2680f1bac599ec889612a (diff) | |
| download | emacs-72e53dcd4198a717d3ae7488500396d05ccb5e69.tar.gz emacs-72e53dcd4198a717d3ae7488500396d05ccb5e69.zip | |
(calc-edit-mode): Make header in italic.
| -rw-r--r-- | lisp/calc/calc-yank.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el index ccb9a19ae51..6f75613b014 100644 --- a/lisp/calc/calc-yank.el +++ b/lisp/calc/calc-yank.el | |||
| @@ -464,10 +464,13 @@ To cancel the edit, simply kill the *Calc Edit* buffer." | |||
| 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 (propertize |
| 468 | "Press `C-c C-c'" | 468 | (concat |
| 469 | (if allow-ret "" " or RET") | 469 | (or title title "Calc Edit Mode. ") |
| 470 | " to finish, `C-x k RET' to cancel.\n\n"))) | 470 | "Press `C-c C-c'" |
| 471 | (if allow-ret "" " or RET") | ||
| 472 | " to finish, `C-x k RET' to cancel.\n\n") | ||
| 473 | 'font-lock-face 'italic)))) | ||
| 471 | (put 'calc-edit-mode 'mode-class 'special) | 474 | (put 'calc-edit-mode 'mode-class 'special) |
| 472 | 475 | ||
| 473 | (defun calc-show-edit-buffer () | 476 | (defun calc-show-edit-buffer () |