Mercurial > emacs
comparison lisp/calc/calc-undo.el @ 112394:23a54fb18e67
calc/calc-undo.el (calc-undo): Autoload it.
calc/calc-ext.el (calc-init-extensions): Remove keybindings and autoload for `calc-undo'.
calc/calc.el (calc-mode-map): Add keybindings for `calc-undo'.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Thu, 20 Jan 2011 22:54:37 -0600 |
| parents | ef719132ddfa |
| children |
comparison
equal
deleted
inserted
replaced
| 112393:f7e256e5ea88 | 112394:23a54fb18e67 |
|---|---|
| 30 (require 'calc-ext) | 30 (require 'calc-ext) |
| 31 (require 'calc-macs) | 31 (require 'calc-macs) |
| 32 | 32 |
| 33 ;;; Undo. | 33 ;;; Undo. |
| 34 | 34 |
| 35 ;;;###autoload | |
| 35 (defun calc-undo (n) | 36 (defun calc-undo (n) |
| 36 (interactive "p") | 37 (interactive "p") |
| 37 (when calc-executing-macro | 38 (when calc-executing-macro |
| 38 (error "Use C-x e, not X, to run a keyboard macro that uses Undo")) | 39 (error "Use C-x e, not X, to run a keyboard macro that uses Undo")) |
| 39 (if (<= n 0) | 40 (if (<= n 0) |