;;; ISN editing for emacs (preliminary)

(global-unset-key "\C-q")
(global-unset-key "\C-s")
(global-unset-key "\C-s\C-q")

(defun do-nothing ()
  "do nothing, except wait for the control-q"
  (interactive))

(defvar control-s-map nil "The keymap for the control-s prefix")
(setq control-s-map (make-sparse-keymap))
(define-key control-s-map "\C-q" 'do-nothing)

(define-key global-map "\C-s" control-s-map)
(delete-on-backspace)