Mercurial > hg > xemacs-beta

comparison lisp/emulators/teco.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents b82b59fe008d
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
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