Function: bdf-compact-code

bdf-compact-code is a byte-compiled function defined in ps-bdf.el.gz.

Signature

(bdf-compact-code CODE CODE-RANGE)

Source Code

;; Defined in /usr/src/emacs/lisp/ps-bdf.el.gz
(defun bdf-compact-code (code code-range)
  (if (or (< code (aref code-range 4))
	  (> code (aref code-range 5)))
      (setq code (aref code-range 6)))
  (+ (* (- (ash code -8) (aref code-range 0))
	(1+ (- (aref code-range 3) (aref code-range 2))))
     (- (logand code 255) (aref code-range 2))))