head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	2003.07.31.17.37.11;	author shige;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Add elisp/emacsen ports in the ports tree @@ 2003/07/31
@
text
@$FreeBSD$
--- lisp/lookup.el~	Fri Jun 16 12:44:14 2000
+++ lisp/lookup.el	Sun Jun 25 00:53:24 2000
@@@@ -620,7 +620,8 @@@@
   (defmacro logo-image ()
     (with-temp-buffer
       (cond ((featurep 'xemacs)
-	     (insert-file-contents lookup-logo-file))
+	     (let ((format-alist nil))
+	       (insert-file-contents lookup-logo-file)))
 	    ((locate-library "bitmap")
 	     (require 'bitmap)
 	     (bitmap-insert-xbm-file lookup-logo-file)
@@@@ -637,6 +638,7 @@@@
 	     (or lookup-use-bitmap (featurep 'xemacs)))
     (let ((buffer (get-buffer-create "*Lookup Logo*")))
       (set-buffer buffer)
+      (setq fill-column (window-width))
       (erase-buffer)
       (if (featurep 'xemacs)
 	  (let ((logo-glyph (make-glyph (vector 'xpm :data lookup-logo-image)))
@
