summaryrefslogtreecommitdiff
path: root/japanese/lookup-emacs21/files/patch-aa
diff options
context:
space:
mode:
Diffstat (limited to 'japanese/lookup-emacs21/files/patch-aa')
-rw-r--r--japanese/lookup-emacs21/files/patch-aa20
1 files changed, 20 insertions, 0 deletions
diff --git a/japanese/lookup-emacs21/files/patch-aa b/japanese/lookup-emacs21/files/patch-aa
new file mode 100644
index 000000000000..8a3102c17c57
--- /dev/null
+++ b/japanese/lookup-emacs21/files/patch-aa
@@ -0,0 +1,20 @@
+--- 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)))