1 ;;; calc-undo.el --- undo functions for Calc
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004,
4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
6 ;; Author: David Gillespie <daveg@synaptics.com>
7 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 3, or (at your option)
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
24 ;; Boston, MA 02110-1301, USA.
30 ;; This file is autoloaded from calc-ext.el.
39 (when calc-executing-macro
40 (error "Use C-x e, not X, to run a keyboard macro that uses Undo"))
46 (when (null (nthcdr (1- n) calc-undo-list))
47 (error "No further undo information available"))
50 (nthcdr n calc-undo-list)
51 (let ((saved-stack-top calc-stack-top))
52 (let ((calc-stack-top 0))
53 (calc-handle-undos calc-undo-list n))
54 (setq calc-stack-top saved-stack-top))))
57 (defun calc-handle-undos (cl n)
59 (let ((old-redo calc-redo-list))
60 (setq calc-undo-list nil)
61 (calc-handle-undo (car cl))
62 (setq calc-redo-list (append calc-undo-list old-redo)))
63 (calc-handle-undos (cdr cl) (1- n))))
65 (defun calc-handle-undo (list)
67 (let ((action (car list)))
69 ((eq (car action) 'push)
70 (calc-pop-stack 1 (nth 1 action) t))
71 ((eq (car action) 'pop)
72 (calc-push-list (nth 2 action) (nth 1 action)))
73 ((eq (car action) 'set)
74 (calc-record-undo (list 'set (nth 1 action)
75 (symbol-value (nth 1 action))))
76 (set (nth 1 action) (nth 2 action)))
77 ((eq (car action) 'store)
78 (let ((v (intern (nth 1 action))))
79 (calc-record-undo (list 'store (nth 1 action)
80 (and (boundp v) (symbol-value v))))
81 (if (y-or-n-p (format "Un-store variable %s? "
82 (calc-var-name (nth 1 action))))
85 (set v (nth 2 action))
87 (calc-refresh-evaltos v)))))
88 ((eq (car action) 'eval)
89 (calc-record-undo (append (list 'eval (nth 2 action) (nth 1 action))
90 (cdr (cdr (cdr action)))))
91 (apply (nth 1 action) (cdr (cdr (cdr action))))))
92 (calc-handle-undo (cdr list)))))
96 (when calc-executing-macro
97 (error "Use C-x e, not X, to run a keyboard macro that uses Redo"))
101 (when (null (nthcdr (1- n) calc-redo-list))
102 (error "Unable to redo"))
105 (nthcdr n calc-redo-list)
106 (let ((saved-stack-top calc-stack-top))
107 (let ((calc-stack-top 0))
108 (calc-handle-redos calc-redo-list n))
109 (setq calc-stack-top saved-stack-top))))
112 (defun calc-handle-redos (cl n)
114 (let ((old-undo calc-undo-list))
115 (setq calc-undo-list nil)
116 (calc-handle-undo (car cl))
117 (setq calc-undo-list (append calc-undo-list old-undo)))
118 (calc-handle-redos (cdr cl) (1- n))))
120 (defun calc-last-args (n)
122 (when calc-executing-macro
123 (error "Use C-x e, not X, to run a keyboard macro that uses last-args"))
125 (let ((urec (calc-find-last-x calc-undo-list n)))
127 (calc-handle-last-x urec)
128 (error "Not enough undo information available")))))
130 (defun calc-handle-last-x (list)
132 (let ((action (car list)))
133 (if (eq (car action) 'pop)
134 (calc-pop-push-record-list 0 "larg"
135 (delq 'top-of-stack (nth 2 action))))
136 (calc-handle-last-x (cdr list)))))
138 (defun calc-find-last-x (ul n)
140 (if (calc-undo-does-pushes (car ul))
143 (calc-find-last-x (cdr ul) (1- n)))
144 (calc-find-last-x (cdr ul) n))))
146 (defun calc-undo-does-pushes (list)
148 (or (eq (car (car list)) 'pop)
149 (calc-undo-does-pushes (cdr list)))))
153 ;;; arch-tag: eeb485d2-fb3d-454a-9d79-450af1f50d6c
154 ;;; calc-undo.el ends here