Mercurial > hg > xemacs-beta

comparison lisp/undo-stack.el @ 223:2c611d1463a6 r20-4b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents 41ff10fd062f
children 677f6a0ee643
comparison
equal deleted inserted replaced
222:aae4c8b01452 223:2c611d1463a6
127 ;; To truncate to the proper size, first chop off 6, then 5, 127 ;; To truncate to the proper size, first chop off 6, then 5,
128 ;; then 1 -- in all cases, truncating off the bottom. 128 ;; then 1 -- in all cases, truncating off the bottom.
129 129
130 ;;; Code: 130 ;;; Code:
131 131
132 (define-error 'trunc-stack-bottom "Bottom of stack reached.") 132 (define-error 'trunc-stack-bottom "Bottom of stack reached")
133 133
134 (defsubst trunc-stack-stack (stack) 134 (defsubst trunc-stack-stack (stack)
135 ;; return the list representing the trunc-stack's elements. 135 ;; return the list representing the trunc-stack's elements.
136 ;; the head of the list is the most recent element. 136 ;; the head of the list is the most recent element.
137 (aref stack 1)) 137 (aref stack 1))