mirror of
https://git.FreeBSD.org/ports.git
synced 2025-01-11 07:22:22 +00:00
lookup-1.3 has two bugs (do not do lookup-splash on XEmacs and
unable to compile on mule-2.3). These patches is to fix these problems.
This commit is contained in:
Satoshi Taoka
parent
c8fcfb7b77
commit
3c94e67047
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=30454
20
japanese/lookup-emacs21/files/patch-aa
Normal file
20
japanese/lookup-emacs21/files/patch-aa
Normal file
@ -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)))
|
||||
14
japanese/lookup-emacs21/files/patch-ab
Normal file
14
japanese/lookup-emacs21/files/patch-ab
Normal file
@ -0,0 +1,14 @@
|
||||
--- lisp/lookup-vars.el.in~ Sat Jun 17 09:55:39 2000
|
||||
+++ lisp/lookup-vars.el.in Wed Jun 21 16:57:28 2000
|
||||
@@ -167,8 +167,9 @@
|
||||
:type 'boolean
|
||||
:group 'lookup-general-options)
|
||||
|
||||
-(defcustom lookup-use-kakasi (or (locate-library "kakasi" nil exec-path)
|
||||
- (locate-library "kakasi.exe" nil exec-path))
|
||||
+(defcustom lookup-use-kakasi (let ((load-path exec-path))
|
||||
+ (or (locate-library "kakasi")
|
||||
+ (locate-library "kakasi.exe")))
|
||||
"*Non-nil $B$r;XDj$9$k$H!"$$$/$D$+$N6ILL$G(B KAKASI $B$,MxMQ$5$l$k!#(B
|
||||
$B$3$l$O8=:_!"6qBNE*$K$OF|K\8l$N%G%U%)%k%H$N8!:w8l$N@Z$j=P$7$KMQ$$$F$$$k!#(B"
|
||||
:type 'boolean
|
||||
20
japanese/lookup-mule/files/patch-aa
Normal file
20
japanese/lookup-mule/files/patch-aa
Normal file
@ -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)))
|
||||
14
japanese/lookup-mule/files/patch-ab
Normal file
14
japanese/lookup-mule/files/patch-ab
Normal file
@ -0,0 +1,14 @@
|
||||
--- lisp/lookup-vars.el.in~ Sat Jun 17 09:55:39 2000
|
||||
+++ lisp/lookup-vars.el.in Wed Jun 21 16:57:28 2000
|
||||
@@ -167,8 +167,9 @@
|
||||
:type 'boolean
|
||||
:group 'lookup-general-options)
|
||||
|
||||
-(defcustom lookup-use-kakasi (or (locate-library "kakasi" nil exec-path)
|
||||
- (locate-library "kakasi.exe" nil exec-path))
|
||||
+(defcustom lookup-use-kakasi (let ((load-path exec-path))
|
||||
+ (or (locate-library "kakasi")
|
||||
+ (locate-library "kakasi.exe")))
|
||||
"*Non-nil $B$r;XDj$9$k$H!"$$$/$D$+$N6ILL$G(B KAKASI $B$,MxMQ$5$l$k!#(B
|
||||
$B$3$l$O8=:_!"6qBNE*$K$OF|K\8l$N%G%U%)%k%H$N8!:w8l$N@Z$j=P$7$KMQ$$$F$$$k!#(B"
|
||||
:type 'boolean
|
||||
20
japanese/lookup/files/patch-aa
Normal file
20
japanese/lookup/files/patch-aa
Normal file
@ -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)))
|
||||
14
japanese/lookup/files/patch-ab
Normal file
14
japanese/lookup/files/patch-ab
Normal file
@ -0,0 +1,14 @@
|
||||
--- lisp/lookup-vars.el.in~ Sat Jun 17 09:55:39 2000
|
||||
+++ lisp/lookup-vars.el.in Wed Jun 21 16:57:28 2000
|
||||
@@ -167,8 +167,9 @@
|
||||
:type 'boolean
|
||||
:group 'lookup-general-options)
|
||||
|
||||
-(defcustom lookup-use-kakasi (or (locate-library "kakasi" nil exec-path)
|
||||
- (locate-library "kakasi.exe" nil exec-path))
|
||||
+(defcustom lookup-use-kakasi (let ((load-path exec-path))
|
||||
+ (or (locate-library "kakasi")
|
||||
+ (locate-library "kakasi.exe")))
|
||||
"*Non-nil $B$r;XDj$9$k$H!"$$$/$D$+$N6ILL$G(B KAKASI $B$,MxMQ$5$l$k!#(B
|
||||
$B$3$l$O8=:_!"6qBNE*$K$OF|K\8l$N%G%U%)%k%H$N8!:w8l$N@Z$j=P$7$KMQ$$$F$$$k!#(B"
|
||||
:type 'boolean
|
||||
Loading…
Reference in New Issue
Block a user