Source

vm / tapestry.el

Diff from to

tapestry.el

 
 ;;(provide 'tapestry)
 
-(defvar tapestry-version "1.08")
+(defvar tapestry-version "1.09")
 
 ;; Pass state information between the tapestry-set-window-map
 ;; and tapestry-set-buffer-map stages.  UGH.  The reason for this
     (and left top right bottom (list left top right bottom))))
 
 (defun tapestry-window-edges (&optional window)
-  (if (fboundp 'window-pixel-edges)
+  (if (and (fboundp 'window-pixel-edges)
+	   (fboundp 'face-width)
+	   (fboundp 'face-height))
       (let ((edges (window-pixel-edges window))
 	    tmp)
 	(setq tmp edges)