/[emacs]/emacs/lisp/calc/calc-yank.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-yank.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by jpb, Sun Jan 2 06:49:36 2005 UTC revision 1.13 by jpb, Sun Jan 2 07:22:44 2005 UTC
# Line 467  To cancel the edit, simply kill the *Cal Line 467  To cancel the edit, simply kill the *Cal
467      (insert (or title title "Calc Edit Mode. ")      (insert (or title title "Calc Edit Mode. ")
468              "Press `C-c C-c'"              "Press `C-c C-c'"
469              (if allow-ret "" " or RET")              (if allow-ret "" " or RET")
470              " to finish, `C-x k RET' to cancel.\n")))              " to finish, `C-x k RET' to cancel.\n\n")))
471  (put 'calc-edit-mode 'mode-class 'special)  (put 'calc-edit-mode 'mode-class 'special)
472    
473  (defun calc-show-edit-buffer ()  (defun calc-show-edit-buffer ()
# Line 485  To cancel the edit, simply kill the *Cal Line 485  To cancel the edit, simply kill the *Cal
485                (delete-window win))))                (delete-window win))))
486      (set-buffer-modified-p nil)      (set-buffer-modified-p nil)
487      (goto-char (point-min))      (goto-char (point-min))
488      (forward-line 1)))      (forward-line 2)))
489    
490  (defun calc-edit-return ()  (defun calc-edit-return ()
491    (interactive)    (interactive)
# Line 522  To cancel the edit, simply kill the *Cal Line 522  To cancel the edit, simply kill the *Cal
522      (goto-char (point-min))      (goto-char (point-min))
523      (when (looking-at "Calc Edit\\|Editing ")      (when (looking-at "Calc Edit\\|Editing ")
524        (forward-line 1))        (forward-line 1))
525        (if (looking-at "^ *$")
526            (forward-line 1))
527      (if (buffer-modified-p)      (if (buffer-modified-p)
528          (eval calc-edit-handler))          (eval calc-edit-handler))
529      (if one-window      (if one-window

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26