Mercurial > emacs

changeset 59302:abe8e399a00c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-edit-mode): Add a spacer line to the header. (calc-edit-finish, calc-show-edit-buffer): Handle the spacer line in the header.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sun, 02 Jan 2005 07:22:44 +0000
parents 34f8020b42d5
children 603f6649f30b f6b4d0ebf147
files lisp/calc/calc-yank.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-yank.el	Sun Jan 02 06:56:51 2005 +0000
+++ b/lisp/calc/calc-yank.el	Sun Jan 02 07:22:44 2005 +0000
@@ -467,7 +467,7 @@
     (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 @@
 	      (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 @@
     (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