home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / NeXT / GnuSource / emacs-15.0.3 / lisp / undo.el < prev    next >
Lisp/Scheme  |  1990-07-19  |  603b  |  14 lines
  1. (defun undo-start ()
  2.   "Move undo-pointer to front of undo records.
  3. The next call to undo-more will undo the most recently made change.
  4.   (if (eq buffer-undo-list t)
  5.       (error "No undo information in this buffer"))
  6.   (setq pending-undo-list buffer-undo-list))
  7.  
  8. (defun undo-more (count)
  9.   "Undo back N undo-boundaries beyond what was already undone recently.
  10. Call undo-start to get ready to undo recent changes,
  11. then call undo-more one or more times to undo them.
  12.   (or pending-undo-list
  13.       (error "No further undo information"))
  14.   (setq pending-undo-list (primitive-undo count pending-undo-list)))