View of /lisp/tools/ulxbug.l

Parent Directory

Revision Log

Initial revision

;; ---------------------------------- ;;
;; this function used because of BUG? ;;
;; ---------------------------------- ;;

(progn
  (putd 'font-ascent-ulx  (getd 'font-ascent))
  (putd 'font-descent-ulx (getd 'font-descent))
  (putd 'text-width-ulx   (getd 'text-width))
  
  (defun font-ascent (fnt)
    (comment print (list 'font-ascent fnt))
    12)
  
  (defun font-descent (fnt)
    (comment print (list 'font-dscent fnt))
    2)
  
  (defun text-width (fnt vec)
    (comment print (list 'text-width fnt vec))
    (comment * 14 (vector-length vec))
    (* 7 (string-length vec)))
  )