Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 4957:db2db229ee82

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Thu, 28 Jan 2010 02:48:45 -0600
parents 9b5d4b35f8d7 6772ce4d982b
children 5efbd1253905
comparison
equal deleted inserted replaced
4956:3461165c79be 4957:db2db229ee82
955 ;; Don't specify a position in the undo record for the undo command. 955 ;; Don't specify a position in the undo record for the undo command.
956 ;; Instead, undoing this should move point to where the change is. 956 ;; Instead, undoing this should move point to where the change is.
957 (let ((tail buffer-undo-list) 957 (let ((tail buffer-undo-list)
958 done) 958 done)
959 (while (and tail (not done) (not (null (car tail)))) 959 (while (and tail (not done) (not (null (car tail))))
960 (if (integerp (car tail)) 960 (if (fixnump (car tail))
961 (progn 961 (progn
962 (setq done t) 962 (setq done t)
963 (setq buffer-undo-list (delq (car tail) buffer-undo-list)))) 963 (setq buffer-undo-list (delq (car tail) buffer-undo-list))))
964 (setq tail (cdr tail)))) 964 (setq tail (cdr tail))))
965 (and modified (not (buffer-modified-p)) 965 (and modified (not (buffer-modified-p))