mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-05 22:43:24 +00:00
21 lines
752 B
Plaintext
21 lines
752 B
Plaintext
|
--- 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)))
|