Function: decipher-insert

decipher-insert is a byte-compiled function defined in decipher.el.gz.

Signature

(decipher-insert CHAR)

Source Code

;; Defined in /usr/src/emacs/lisp/play/decipher.el.gz
(defun decipher-insert (char)
  ;; Insert CHAR in the row below point.  It replaces any existing
  ;; character in that position.
  (let ((col (1- (current-column))))
    (save-excursion
      (forward-line)
      (or (= ?\> (following-char))
          (= ?\) (following-char))
          (error "Bad location"))
      (move-to-column col t)
      (or (eolp)
          (delete-char 1))
      (insert-and-inherit char))))