/[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.10 by jpb, Tue Nov 30 17:29:04 2004 UTC revision 1.11 by jpb, Fri Dec 31 05:59:44 2004 UTC
# Line 460  To cancel the edit, simply kill the *Cal Line 460  To cancel the edit, simply kill the *Cal
460      (make-local-variable 'calc-allow-ret)      (make-local-variable 'calc-allow-ret)
461      (setq calc-allow-ret allow-ret)      (setq calc-allow-ret allow-ret)
462      (erase-buffer)      (erase-buffer)
463        (add-hook 'kill-buffer-hook (lambda ()
464                                      (let ((calc-edit-handler nil))
465                                        (calc-edit-finish t))
466                                      (message "(Cancelled)")) t t)
467      (insert (or title title "Calc Edit Mode")      (insert (or title title "Calc Edit Mode")
468              ".  Press "              ".  Press `C-c C-c'"
469              (if (eq (lookup-key (current-global-map) "\e#") 'calc-dispatch)              (if allow-ret "" " or RET")
470                  "M-# M-# or C-c C-c"              " to finish, `C-x k RET' to cancel.\n")))
               (if allow-ret "C-c C-c" "RET"))  
             " to finish, "  
             (if (eq (lookup-key (current-global-map) "\e#") 'calc-dispatch)  
                 "M-# x"  
               "C-x k RET")  
             " to cancel.\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 ()

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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