Mercurial > hg > xemacs-beta
diff lisp/tm/tm-image.el @ 173:8eaf7971accc r20-3b13
Import from CVS: tag r20-3b13
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:49:09 +0200 |
| parents | 43dd3413c7c7 |
| children | 3d6bfa290dbd |
line wrap: on
line diff
--- a/lisp/tm/tm-image.el Mon Aug 13 09:47:55 2007 +0200 +++ b/lisp/tm/tm-image.el Mon Aug 13 09:49:09 2007 +0200 @@ -7,7 +7,7 @@ ;; Dan Rich <drich@morpheus.corp.sgi.com> ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; Created: 1995/12/15 -;; Version: $Id: tm-image.el,v 1.7 1997/06/06 00:57:43 steve Exp $ +;; Version: $Id: tm-image.el,v 1.8 1997/07/13 22:41:52 steve Exp $ ;; Keywords: image, picture, X-Face, MIME, multimedia, mail, news @@ -155,10 +155,10 @@ (gl (image-normalize minor (buffer-string))) e) (delete-region (point-min)(point-max)) - (cond ((image-invalid-glyph-p gl) - (setq gl nil) - (message "Invalid glyph!") - ) + (cond ;; ((image-invalid-glyph-p gl) + ;; (setq gl nil) + ;; (message "Invalid glyph!") + ;; ) ((eq (aref gl 0) 'xbm) (let ((xbm-file (make-temp-name (expand-file-name "tm" mime/tmp-dir))))