Mercurial > hg > xemacs-beta

comparison lisp/emulators/teco.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents b9518feda344
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
184 ;; :]q Test whether stack is empty and return value 184 ;; :]q Test whether stack is empty and return value
185 ;; ` Not a Teco command 185 ;; ` Not a Teco command
186 ;; a-z Treated the same as A-Z 186 ;; a-z Treated the same as A-Z
187 ;; { Not a Teco command 187 ;; { Not a Teco command
188 ;; | Conditional 'else' 188 ;; | Conditional 'else'
189 ;; } Not a Teco comand 189 ;; } Not a Teco command
190 ;; ~ Not a Teco command 190 ;; ~ Not a Teco command
191 ;; DEL Delete last character typed in 191 ;; DEL Delete last character typed in
192 192
193 193
194 ;;; Code: 194 ;;; Code:
219 219
220 (defvar teco-digit-switch nil 220 (defvar teco-digit-switch nil
221 "Set if we have just executed a digit.") 221 "Set if we have just executed a digit.")
222 222
223 (defvar teco-exp-exp nil 223 (defvar teco-exp-exp nil
224 "Expression value preceeding operator.") 224 "Expression value preceding operator.")
225 225
226 (defvar teco-exp-val1 nil 226 (defvar teco-exp-val1 nil
227 "Current argument value.") 227 "Current argument value.")
228 228
229 (defvar teco-exp-val2 nil 229 (defvar teco-exp-val2 nil