mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

(calc-edit-mode): Add a spacer line to the header.

Browse Source 
(calc-edit-finish, calc-show-edit-buffer): Handle the spacer line in
the header.
This commit is contained in:
Jay Belanger 2005-01-02 07:22:44 +00:00
parent c5757d2e57
commit f405d1f5e5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/calc/calc-yank.el
View File

@ -467,7 +467,7 @@ To cancel the edit, simply kill the *Calc Edit* buffer."
(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")))
" to finish, `C-x k RET' to cancel.\n\n")))
(put 'calc-edit-mode 'mode-class 'special)
(defun calc-show-edit-buffer ()
@ -485,7 +485,7 @@ To cancel the edit, simply kill the *Calc Edit* buffer."
(delete-window win))))
(set-buffer-modified-p nil)
(goto-char (point-min))
(forward-line 1)))
(forward-line 2)))
(defun calc-edit-return ()
(interactive)
@ -522,6 +522,8 @@ To cancel the edit, simply kill the *Calc Edit* buffer."
(goto-char (point-min))
(when (looking-at "Calc Edit\\|Editing ")
(forward-line 1))
(if (looking-at "^ *$")
(forward-line 1))
(if (buffer-modified-p)
(eval calc-edit-handler))
(if one-window