app-emacs/liece/files/liece-1.4.7-gentoo.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

diff -urN liece-1.4.7.ORIG/lisp/gettext.el liece-1.4.7/lisp/gettext.el
--- liece-1.4.7.ORIG/lisp/gettext.el	2002-03-21 11:24:07.000000000 +0900
+++ liece-1.4.7/lisp/gettext.el	2003-08-18 22:41:45.000000000 +0900
@@ -244,7 +244,7 @@
 Here's how the path to message files is constructed under SunOS 5.0:
   {pathname}/{LANG}/LC_MESSAGES/{domain}.mo
 \[XEmacs I18N level 3 emulating function]"
-    (let* ((lang (or (getenv "LC_ALL") (getenv "LC_MESSAGES") (getenv "LANG")))
+    (let* ((lang (or (getenv "LC_ALL") (getenv "LC_MESSAGES") (getenv "LANG") "C"))
 	   (language (progn
 		       (string-match "\\([^_.]+\\)\\(_[^.]+\\)?\\(\\.[^@]+\\)?"
 				     lang)
diff -urN liece-1.4.7.ORIG/lisp/liece.el liece-1.4.7/lisp/liece.el
--- liece-1.4.7.ORIG/lisp/liece.el	2001-10-02 14:01:38.000000000 +0900
+++ liece-1.4.7/lisp/liece.el	2003-08-18 22:42:49.000000000 +0900
@@ -506,8 +506,7 @@
        (file-exists-p liece-directory)
        (yes-or-no-p "Upgrade the location of the data files? ")
        (let ((file
-	      (expand-file-name
-	       (make-temp-name "liece") temporary-file-directory)))
+	       (make-temp-file "liece")))
 	 (unwind-protect
 	     (progn
 	       (rename-file liece-directory file 'ok-if-exists)