 (defvar lse-mode-syntax-table nil
   "Syntax table in use in L.S.E. buffers.")
 
-(if lse-mode-syntax-table
-    ()
+(unless lse-mode-syntax-table
   (let ((table (make-syntax-table)))
     (modify-syntax-entry ?\\ "\\" table)
     (modify-syntax-entry ?\( "()" table)

;;   (interactive)
;;   (lse-put-image lse-assign-image (point) "_"))



(provide 'lse-mode)


;;;; THE END ;;;;


(defvar lse-mode-map nil
  "Keymap used in L.S.E. mode.")
;; (setf  lse-mode-map nil)

(unless lse-mode-map
  (let ((map (make-sparse-keymap)))
    (do ((lcc ?a (1+ lcc))
         (ucc ?A (1+ ucc)))
        ((< ?z lcc))
      (define-key map (make-string 1 lcc) (make-string 1 ucc)))
    ;; (define-key map "_"  'lse-assign)
    (define-key map "\n"  'lse-newline)
    (define-key map "\r"  'lse-newline)
    (define-key map "\C-c\C-g" 'lse-goto-line)
    (define-key map "\C-c\C-r" 'lse-test-result)
    ;; (define-key map "\C-c\C-z" 'suspend-emacs)
    (setq lse-mode-map map)))

;;(define-key  lse-mode-map "_"  'self-insert-command)

