# HG changeset patch # User Jay Belanger # Date 1104651560 0 # Node ID f8fd85fc066a11b771ed84428eaf3772c1a077ba # Parent 8852efff403c39a130c4f0a4caff7b083a1e4c74 (calc-edit-mode): Make header in italic. diff -r 8852efff403c -r f8fd85fc066a lisp/calc/calc-yank.el --- a/lisp/calc/calc-yank.el Sun Jan 02 07:34:14 2005 +0000 +++ b/lisp/calc/calc-yank.el Sun Jan 02 07:39:20 2005 +0000 @@ -464,10 +464,13 @@ (let ((calc-edit-handler nil)) (calc-edit-finish t)) (message "(Cancelled)")) t t) - (insert (or title title "Calc Edit Mode. ") - "Press `C-c C-c'" - (if allow-ret "" " or RET") - " to finish, `C-x k RET' to cancel.\n\n"))) + (insert (propertize + (concat + (or title title "Calc Edit Mode. ") + "Press `C-c C-c'" + (if allow-ret "" " or RET") + " to finish, `C-x k RET' to cancel.\n\n") + 'font-lock-face 'italic)))) (put 'calc-edit-mode 'mode-class 'special) (defun calc-show-edit-buffer ()