Mercurial > hg > xemacs-beta

comparison lisp/undo-stack.el @ 251:677f6a0ee643 r20-5b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b24
author cvs
date Mon, 13 Aug 2007 10:19:59 +0200
parents 2c611d1463a6
children
comparison
equal deleted inserted replaced
250:f385a461c9aa 251:677f6a0ee643
188 188
189 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 189 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
190 190
191 ;;; FMH! FMH! FMH! This object-oriented stuff doesn't really work 191 ;;; FMH! FMH! FMH! This object-oriented stuff doesn't really work
192 ;;; properly without built-in structures (vectors suck) and without 192 ;;; properly without built-in structures (vectors suck) and without
193 ;;; public and private functions and fields. Bogons descend on 193 ;;; public and private functions and fields.
194 ;;; RMS for not believing in any of this.
195 194
196 (defsubst undoable-stack-max (stack) 195 (defsubst undoable-stack-max (stack)
197 (aref stack 1)) 196 (aref stack 1))
198 197
199 (defsubst undoable-stack-a (stack) 198 (defsubst undoable-stack-a (stack)