Mercurial > hg > xemacs-beta

comparison lisp/utils/redo.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 4103f0995bd7
children f53b5ca2e663
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
61 61
62 ;;; Code: 62 ;;; Code:
63 63
64 (provide 'redo) 64 (provide 'redo)
65 65
66 (defvar redo-version "1.00" 66 (defvar redo-version "1.01"
67 "Version number for the Redo package.") 67 "Version number for the Redo package.")
68 68
69 (defvar last-buffer-undo-list nil 69 (defvar last-buffer-undo-list nil
70 "The head of buffer-undo-list at the last time an undo or redo was done.") 70 "The head of buffer-undo-list at the last time an undo or redo was done.")
71 (make-variable-buffer-local 'last-buffer-undo-list) 71 (make-variable-buffer-local 'last-buffer-undo-list)
72
73 (make-variable-buffer-local 'pending-undo-list)
72 74
73 (defun redo (&optional count) 75 (defun redo (&optional count)
74 "Redo the the most recent undo. 76 "Redo the the most recent undo.
75 Prefix arg COUNT means redo the COUNT most recent undos. 77 Prefix arg COUNT means redo the COUNT most recent undos.
76 If you have modified the buffer since the last redo or undo, 78 If you have modified the buffer since the last redo or undo,
92 (let ((modified (buffer-modified-p)) 94 (let ((modified (buffer-modified-p))
93 (recent-save (recent-auto-save-p)) 95 (recent-save (recent-auto-save-p))
94 (old-undo-list buffer-undo-list) 96 (old-undo-list buffer-undo-list)
95 (p (cdr buffer-undo-list)) 97 (p (cdr buffer-undo-list))
96 (records-between 0)) 98 (records-between 0))
97 ;; count the number of undo records between the head of teh 99 ;; count the number of undo records between the head of the
98 ;; undo chain and the pointer to the next change. Note that 100 ;; undo chain and the pointer to the next change. Note that
99 ;; by `record' we mean clumps of change records, not the 101 ;; by `record' we mean clumps of change records, not the
100 ;; boundary records. The number of records will always be a 102 ;; boundary records. The number of records will always be a
101 ;; multiple of 2, because an undo moves the pending pointer 103 ;; multiple of 2, because an undo moves the pending pointer
102 ;; forward one record and prepend a record to the head of the 104 ;; forward one record and prepend a record to the head of the