;ELC ;;; compiled by cthomp@willow on Thu Sep 2 17:32:55 1993 ;;; from file /era/era-working/editor/lisp/games/NeXTify.el ;;; emacs version 19.8 (beta12) Lucid. ;;; bytecomp version 2.18; 28-aug-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (fset 'SeLF-insert-command #[(arg) "` !\nbxǏ?!gc!ugc!gc!+" [nil case-fold-search p self-insert-command arg " \n" (forward-char -4) ((error t)) looking-at "\\<[A-Za-z][a-z][a-z][a-z][^A-Za-z]" delete-char 1] 3 "\ Insert the character you TyPE. Whichever character you TyPE to run ThIS command is inserted." "p"]) (byte-code " # # # # # # # #" [define-key text-mode-map " " SeLF-insert-command "," "." "!" "-" "_" ";" ":"] 4)