| 1 : |
ktanaka |
1.1 |
|
| 2 : |
|
|
;; ---------------------------------- ;; |
| 3 : |
|
|
;; this function used because of BUG? ;; |
| 4 : |
|
|
;; ---------------------------------- ;; |
| 5 : |
|
|
|
| 6 : |
|
|
(progn |
| 7 : |
|
|
(putd 'font-ascent-ulx (getd 'font-ascent)) |
| 8 : |
|
|
(putd 'font-descent-ulx (getd 'font-descent)) |
| 9 : |
|
|
(putd 'text-width-ulx (getd 'text-width)) |
| 10 : |
|
|
|
| 11 : |
|
|
(defun font-ascent (fnt) |
| 12 : |
|
|
(comment print (list 'font-ascent fnt)) |
| 13 : |
|
|
12) |
| 14 : |
|
|
|
| 15 : |
|
|
(defun font-descent (fnt) |
| 16 : |
|
|
(comment print (list 'font-dscent fnt)) |
| 17 : |
|
|
2) |
| 18 : |
|
|
|
| 19 : |
|
|
(defun text-width (fnt vec) |
| 20 : |
|
|
(comment print (list 'text-width fnt vec)) |
| 21 : |
|
|
(comment * 14 (vector-length vec)) |
| 22 : |
|
|
(* 7 (string-length vec))) |
| 23 : |
|
|
) |
Annotation of /lisp/tools/ulxbug.l
Parent Directory
| 
Revision Log