Function: binhex-push-char

binhex-push-char is a byte-compiled function defined in binhex.el.gz.

Signature

(binhex-push-char CHAR &optional IGNORED BUFFER)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/binhex.el.gz
(defun binhex-push-char (char &optional ignored buffer)
  (cond
   (binhex-repeat
    (if (eq char 0)
	(binhex-insert-char (setq binhex-last-char 144) 1
			    ignored buffer)
      (binhex-insert-char binhex-last-char (- char 1)
			  ignored buffer)
      (setq binhex-last-char nil))
    (setq binhex-repeat nil))
   ((= char 144)
    (setq binhex-repeat t))
   (t
    (binhex-insert-char (setq binhex-last-char char) 1 ignored buffer))))