openSUSE Build Service

Overview Repositories Revisions Requests Users Attributes Meta

File xemacs.patch of Package xemacs (Revision 4728e894ebe6cefde3aa732cff5b58f5)

Currently displaying revision 4728e894ebe6cefde3aa732cff5b58f5 , Show latest

diff -Nru xemacs-21.5.20.orig/.pkgextract xemacs-21.5.20/.pkgextract
--- xemacs-21.5.20.orig/.pkgextract	1970-01-01 01:00:00.000000000 +0100
+++ xemacs-21.5.20/.pkgextract	2005-05-12 14:38:20.000000000 +0200
@@ -0,0 +1,12 @@
+(cd ../; tar xkfI xemacs-21.4.3-info.tar.bz2)
+rm -f    mule-packages
+rm -f    xemacs-packages
+tar xkfI ../xemacs-mule-sumo-2001-04-08.tar.bz2
+rm -f    lib-src/pstogif
+tar xkfI ../xemacs-sumo-2001-04-08.tar.bz2
+patch -p0 -s --suffix=.vm    < ../xemacs-sumo-2000-01-24-vm.patch
+patch -p0 -s --suffix=.ilisp < ../xemacs-sumo-2000-09-04-ilisp.patch
+patch -p0 -s --suffix=.ispell  < ../xemacs-sumo-2000-09-04-ispell.patch
+patch -p0 -s --suffix=.mc  < ../xemacs-sumo-2000-09-04-mc.patch
+patch -p0 -s --suffix=.conf  < ../xemacs-21.4.3-autoconf.patch
+find lisp/ etc/ -name '*.elc' | xargs -r rm -f
diff -Nru xemacs-21.5.20.orig/lib-src/gnuclient.c xemacs-21.5.20/lib-src/gnuclient.c
--- xemacs-21.5.20.orig/lib-src/gnuclient.c	2004-12-07 00:23:41.000000000 +0100
+++ xemacs-21.5.20/lib-src/gnuclient.c	2005-05-12 14:38:20.000000000 +0200
@@ -223,7 +223,7 @@
 /* Encase the string in quotes, escape all the backslashes and quotes
    in string.  */
 static char *
-clean_string (const char *s)
+clean_string (char *s)
 {
   int i = 0;
   char *p, *res;
diff -Nru xemacs-21.5.20.orig/lib-src/mmencode.c xemacs-21.5.20/lib-src/mmencode.c
--- xemacs-21.5.20.orig/lib-src/mmencode.c	2001-08-13 06:45:48.000000000 +0200
+++ xemacs-21.5.20/lib-src/mmencode.c	2005-05-12 14:38:20.000000000 +0200
@@ -20,6 +20,11 @@
 #include <string.h>
 #include <errno.h>
 
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <errno.h>
+
 static void
 output64chunk(int c1, int c2, int c3, int pads, FILE *outfile);
 
@@ -427,6 +432,32 @@
     }    
 }
 
+/* not safe on nfs filesystems, but this is close */
+FILE *
+safeopen(char *filename, char *mode)
+{
+#ifdef MSDOS
+    return fopen(filename, mode);
+#else
+    int fd;
+    int flags;
+
+    if(mode[0] == 'w') {
+	flags = O_EXCL | O_CREAT | O_WRONLY;
+    }
+    else {
+	flags = O_RDONLY;
+    }
+    
+    fd = open(filename, flags);
+    
+    if(fd == -1) {
+	return (FILE *)0;
+    }
+    
+    return fdopen(fd, mode);
+#endif
+}
 
 /*
 Copyright (c) 1991 Bell Communications Research, Inc. (Bellcore)
@@ -453,6 +484,7 @@
 int main(int argc, char *argv[])
 {
     int encode = 1, which = BASE64, i, portablenewlines = 0;
+    struct stat fpstat;
     FILE *fp = stdin;
     FILE *fpo = stdout;
 
@@ -464,7 +496,7 @@
 			fprintf(stderr, "mimencode: -o requires a file name.\n");
 			exit(-1);
 		    }
-		    fpo = fopen(argv[i], "w");
+		    fpo = safeopen(argv[i], "w");
 		    if (!fpo) {
 			perror(argv[i]);
 			exit(-1);
@@ -497,7 +529,7 @@
                 setmode(fileno(fpo), O_BINARY);
             } /* else */
 #else
-            fp = fopen(argv[i], "r");
+            fp = safeopen(argv[i], "r");
 #endif /* WIN32_NATIVE */
             if (!fp) {
                 perror(argv[i]);
@@ -507,6 +539,12 @@
     }
 #ifdef WIN32_NATIVE
     if (fp == stdin) setmode(fileno(fp), O_BINARY);
+#else
+    if(fstat(fileno(fp), &fpstat) == -1) {
+	perror("fstat");
+	exit(3);
+    }
+    fchmod(fileno(fpo), fpstat.st_mode & (S_IRWXU | S_IRWXG | S_IRWXO));
 #endif /* WIN32_NATIVE */
     if (which == BASE64) {
         if (encode) {
diff -Nru xemacs-21.5.20.orig/lib-src/pop.c xemacs-21.5.20/lib-src/pop.c
--- xemacs-21.5.20.orig/lib-src/pop.c	2004-09-20 21:19:11.000000000 +0200
+++ xemacs-21.5.20/lib-src/pop.c	2005-05-12 14:38:20.000000000 +0200
@@ -129,16 +129,20 @@
 #define POP_PORT 110
 #define KPOP_PORT 1109
 #if defined(WIN32_NATIVE) || defined(CYGWIN)
-#define POP_SERVICE "pop3"	/* we don't want the POP2 port! */
+#  define POP_SERVICE "pop3"	/* we don't want the POP2 port! */
 #else
-#define POP_SERVICE "pop"
+#  ifdef  linux
+#    define POP_SERVICE "pop3"
+#  else
+#    define POP_SERVICE "pop"
+#  endif
 #endif
 #ifdef KERBEROS
-#ifdef KRB5
-#define KPOP_SERVICE "k5pop"
-#else
-#define KPOP_SERVICE "kpop"
-#endif
+#  ifdef KRB5
+#    define KPOP_SERVICE "k5pop"
+#  else
+#    define KPOP_SERVICE "kpop"
+#  endif
 #endif
 
 char pop_error[ERROR_MAX];
diff -Nru xemacs-21.5.20.orig/lib-src/vcdiff xemacs-21.5.20/lib-src/vcdiff
--- xemacs-21.5.20.orig/lib-src/vcdiff	1996-12-18 23:42:33.000000000 +0100
+++ xemacs-21.5.20/lib-src/vcdiff	2005-05-12 14:38:20.000000000 +0200
@@ -62,6 +62,17 @@
 
 
 rev1= rev2= status=0
+rev1=/tmp/geta$$
+rev2=/tmp/getb$$
+rm -f $rev1 $rev2
+if test -e $rev1 -o -e $rev2 ; then
+	echo "$0: temporaray files exists." 1>&2
+	exit 1
+fi
+if test -n "`type -p mktemp`" ; then
+	rev1="`mktemp ${rev1}.XXXXXX`" || exit 1
+	rev2="`mktemp ${rev2}.XXXXXX`" || exit 1
+fi
 trap 'status=2; exit' 1 2 13 15
 trap 'rm -f $rev1 $rev2 || status=2; exit $status' 0
 
@@ -79,14 +90,12 @@
 	case $f in
 	s.* | */s.*)
 		if
-			rev1=/tmp/geta$$
 			get -s -p -k $sid1 "$f" > $rev1 &&
 			case $sid2 in
 			'')
 				workfile=`expr " /$f" : '.*/s.$.*$'`
 				;;
 			*)
-				rev2=/tmp/getb$$
 				get -s -p -k $sid2 "$f" > $rev2
 				workfile=$rev2
 			esac
diff -Nru xemacs-21.5.20.orig/lisp/default.el xemacs-21.5.20/lisp/default.el
--- xemacs-21.5.20.orig/lisp/default.el	1970-01-01 01:00:00.000000000 +0100
+++ xemacs-21.5.20/lisp/default.el	2005-05-12 14:38:20.000000000 +0200
@@ -0,0 +1,9 @@
+;(require 'tex-site)
+(setq-default TeX-master nil)
+; Users private libaries 
+; (setq TeX-macro-private '("~/lib/tex-lib/"))
+;    AUC-TeX-Macros
+; (setq TeX-style-private   "~/lib/xemacs/site-lisp/auctex/style/")
+;    Autom. Auc-TeX-Macros
+; (setq TeX-auto-private    "~/lib/xemacs/site-lisp/auctex/auto/")
+
diff -Nru xemacs-21.5.20.orig/lisp/dumped-lisp.el xemacs-21.5.20/lisp/dumped-lisp.el
--- xemacs-21.5.20.orig/lisp/dumped-lisp.el	2005-02-10 04:26:15.000000000 +0100
+++ xemacs-21.5.20/lisp/dumped-lisp.el	2005-05-12 14:38:20.000000000 +0200
@@ -38,6 +38,7 @@
        "cl"
        "cl-extra"
        "cl-seq"
+       "cl-macs"		; Avoid autoloading of kernel functions
        "widget"
        "custom"		; Before the world so everything can be
 			; customized
@@ -310,6 +311,7 @@
         ;;     "sun-eos-menubar"))
        "loadhist"		; Must be dumped before loaddefs is loaded
        "loaddefs"		; <=== autoloads get loaded here
+       "disp-table"
 	))
 
 (setq preloaded-file-list
diff -Nru xemacs-21.5.20.orig/lisp/find-paths.el xemacs-21.5.20/lisp/find-paths.el
--- xemacs-21.5.20.orig/lisp/find-paths.el	2005-01-15 16:17:36.000000000 +0100
+++ xemacs-21.5.20/lisp/find-paths.el	2005-05-12 14:42:37.000000000 +0200
@@ -220,7 +220,7 @@
 				  roots
 				  (file-name-as-directory
 				   (paths-construct-path (list
-							  "lib"
+							  "share"
 							  emacs-program-name)))
 				  base
 				  envvar default))
@@ -267,7 +267,7 @@
 				  roots
 				  (file-name-as-directory
 				   (paths-construct-path
-				    (list "lib"
+				    (list "share"
 					  (construct-emacs-version-name))))
 				  base
 				  envvar default))
@@ -325,7 +325,7 @@
 
 (defun construct-emacs-version-name ()
   "Construct a string from the raw XEmacs version number."
-  (concat emacs-program-name "-" emacs-program-version))
+  (concat emacs-program-name "/" emacs-program-version))
 
 (defun paths-directories-which-exist (directories)
   "Return the directories among DIRECTORIES.
diff -Nru xemacs-21.5.20.orig/lisp/mule/cyrillic.el xemacs-21.5.20/lisp/mule/cyrillic.el
--- xemacs-21.5.20.orig/lisp/mule/cyrillic.el	2002-03-21 08:30:21.000000000 +0100
+++ xemacs-21.5.20/lisp/mule/cyrillic.el	2005-05-12 14:38:20.000000000 +0200
@@ -32,6 +32,9 @@
 ;; Windows-1251 support deleted because XEmacs has automatic support.
 
 ;;; Code:
+(eval-when-compile
+  (setq max-lisp-eval-depth (+ 800 max-lisp-eval-depth))
+  (setq max-specpdl-size (+ 2000 max-specpdl-size)))
 
 ;; Cyrillic syntax
 (modify-syntax-entry 'cyrillic-iso8859-5 "w")
diff -Nru xemacs-21.5.20.orig/lisp/setup-paths.el xemacs-21.5.20/lisp/setup-paths.el
--- xemacs-21.5.20.orig/lisp/setup-paths.el	2004-12-27 13:25:15.000000000 +0100
+++ xemacs-21.5.20/lisp/setup-paths.el	2005-05-12 14:38:20.000000000 +0200
@@ -256,7 +256,8 @@
     (paths-uniq-append
      (append
       (let ((info-directory
-	     (paths-find-version-directory roots "info"
+	     (paths-find-version-directory roots
+					  "info"
 					   nil
 					   configure-info-directory)))
 	(and info-directory
diff -Nru xemacs-21.5.20.orig/lisp/site-init.el xemacs-21.5.20/lisp/site-init.el
--- xemacs-21.5.20.orig/lisp/site-init.el	1970-01-01 01:00:00.000000000 +0100
+++ xemacs-21.5.20/lisp/site-init.el	2005-05-12 14:38:20.000000000 +0200
@@ -0,0 +1,17 @@
+;;;;
+;;; xemacs-21.1.14/lisp/site-init.el
+;;; Author: Werner Fink <werner@suse.de>
+;;  CONFIGURATION see source code
+;;;;
+(garbage-collect)
+
+(setq gnus-default-nntp-server "news")
+(setq w3-directory (concat "/usr/share/xemacs/" emacs-program-version "/lisp/w3"))
+
+(garbage-collect)
+(garbage-collect)
+(garbage-collect)
+(garbage-collect)
+(garbage-collect)
+
+;;; site-init.el ends here
diff -Nru xemacs-21.5.20.orig/lisp/x-win-xfree86.el xemacs-21.5.20/lisp/x-win-xfree86.el
--- xemacs-21.5.20.orig/lisp/x-win-xfree86.el	2001-05-05 00:42:19.000000000 +0200
+++ xemacs-21.5.20/lisp/x-win-xfree86.el	2005-05-12 14:38:20.000000000 +0200
@@ -65,6 +65,10 @@
       ;; define also the control, meta, and meta-control versions.
       (loop for mods in '(() (control) (meta) (meta control)) do
 	(define-key function-key-map `[(,@mods ,key)] `[(shift ,@mods ,sane-key)])
-	))))
-
+	)))
+;; Begin insert
+;; <werner@suse.de> set Symbol delete == [delete] to delete-char
+    (load "term/func-keys" t t)
+;; End insert
+)
 ;;; x-win-xfree86.el ends here
diff -Nru xemacs-21.5.21.orig/site-packages/lisp/site-start.el xemacs-21.5.21/site-packages/lisp/site-start.el
--- xemacs-21.5.21.orig/site-packages/lisp/site-start.el	1970-01-01 01:00:00.000000000 +0100
+++ xemacs-21.5.21/site-packages/lisp/site-start.el	2005-06-17 12:48:11.000000000 +0200
@@ -0,0 +1,409 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; File name: ` /usr/share/xemacs/site-lisp/site-start.el '
+;;; System wide start file for xemacs.
+;;; Copyright 1999  (c) S.u.S.E. Gmbh Fuerth, Germany. All rights reserved.
+;;; Author: Werner Fink <werner@suse.de>, 1999
+;;;         Mike Fabian <mfabian@suse.de>, 2004, 2005
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(setq load-path (delete (concat "/usr/share/xemacs/"
+				emacs-program-version
+				"/site-packages/lisp/term/")
+			load-path))
+
+;;
+;; Preload dynamic (i)Spell menu
+;; --------------
+(load "/usr/lib/ispell/ispell-emacs-menu.el" t t)
+(load "fix-load-history.el" t t)
+
+;;
+;; i18n setup (encoding, language-environment, ...)
+;; -------------------------------------------------
+
+(if (locate-library "latin-unity") (require 'latin-unity))
+(if (locate-library "latin-euro-input") (require 'latin-euro-input))
+(if (and (<= emacs-major-version 21)
+	 (<= emacs-minor-version 4)
+	 (locate-library "un-define"))
+    (require 'un-define)
+  (provide 'un-define))
+
+;; Setting the language-environment
+;;
+;; fix unicode-precedence-list if setting the language environment
+;; screws it up.
+;; 
+;; Unfortunately 'set-language-environment' also changes the locale.
+;; For example (set-language-environment "Japanese") sets the locale
+;; to ja_JP.eucJP. That is nonsense and should not be done.
+;; Therefore we remember the original value of LANG and restore the
+;; locale after 'set-language-environment'.
+
+(when (emacs-version>= 21 5 6)
+  (let ((old-lang (getenv "LANG"))
+	(case-fold-search nil))
+    (when (getenv "LANG")
+      (cond ((string-match "af" (getenv "LANG"))
+	     (set-language-environment "Afrikaans"))
+	    ((string-match "sq" (getenv "LANG"))
+	     (set-language-environment "Albanian"))
+	    ((string-match "ca" (getenv "LANG"))
+	     (set-language-environment "Catalan"))
+	    ((string-match "zh_TW" (getenv "LANG"))
+	     (set-language-environment "Chinese-BIG5")
+	     (set-language-unicode-precedence-list
+	      '(ascii
+		latin-iso8859-1
+		latin-iso8859-2
+		latin-iso8859-3
+		latin-iso8859-4
+		latin-iso8859-13
+		latin-iso8859-15
+		latin-iso8859-16
+		cyrillic-iso8859-5
+		greek-iso8859-7
+		chinese-big5-1
+		chinese-big5-2
+		chinese-gb2312
+		chinese-sisheng
+		korean-ksc5601
+		japanese-jisx0208
+		japanese-jisx0208-1978
+		japanese-jisx0212
+		latin-jisx0201
+		katakana-jisx0201)))
+	    ((string-match "zh_HK" (getenv "LANG"))
+	     (set-language-environment "Chinese-BIG5")
+	     (set-language-unicode-precedence-list
+	      '(ascii
+		latin-iso8859-1
+		latin-iso8859-2
+		latin-iso8859-3
+		latin-iso8859-4
+		latin-iso8859-13
+		latin-iso8859-15
+		latin-iso8859-16
+		cyrillic-iso8859-5
+		greek-iso8859-7
+		chinese-big5-1
+		chinese-big5-2
+		chinese-gb2312
+		chinese-sisheng
+		korean-ksc5601
+		japanese-jisx0208
+		japanese-jisx0208-1978
+		japanese-jisx0212
+		latin-jisx0201
+		katakana-jisx0201)))
+	    ((string-match "zh_CN" (getenv "LANG"))
+	     (set-language-environment "Chinese-GB")
+	     (set-language-unicode-precedence-list
+	      '(ascii
+		latin-iso8859-1
+		latin-iso8859-2
+		latin-iso8859-3
+		latin-iso8859-4
+		latin-iso8859-13
+		latin-iso8859-15
+		latin-iso8859-16
+		cyrillic-iso8859-5
+		greek-iso8859-7
+		chinese-gb2312
+		chinese-sisheng
+		chinese-big5-1
+		chinese-big5-2
+		korean-ksc5601
+		japanese-jisx0208
+		japanese-jisx0208-1978
+		japanese-jisx0212
+		latin-jisx0201
+		katakana-jisx0201)))
+	    ((string-match "zh_SG" (getenv "LANG"))
+	     (set-language-environment "Chinese-GB")
+	     (set-language-unicode-precedence-list
+	      '(ascii
+		latin-iso8859-1
+		latin-iso8859-2
+		latin-iso8859-3
+		latin-iso8859-4
+		latin-iso8859-13
+		latin-iso8859-15
+		latin-iso8859-16
+		cyrillic-iso8859-5
+		greek-iso8859-7
+		chinese-gb2312
+		chinese-sisheng
+		chinese-big5-1
+		chinese-big5-2
+		korean-ksc5601
+		japanese-jisx0208
+		japanese-jisx0208-1978
+		japanese-jisx0212
+		latin-jisx0201
+		katakana-jisx0201)))
+	    ((string-match "hr" (getenv "LANG"))
+	     (set-language-environment "Croatian"))
+	    ((string-match "ru" (getenv "LANG"))
+	     (set-language-environment "Cyrillic-KOI8"))
+	    ((string-match "cs" (getenv "LANG"))
+	     (set-language-environment "Czech"))
+	    ((string-match "da" (getenv "LANG"))
+	     (set-language-environment "Danish"))
+	    ((string-match "nl" (getenv "LANG"))
+	     (set-language-environment "Dutch"))
+	    ((string-match "et" (getenv "LANG"))
+	     (set-language-environment "Estonian"))
+	    ((string-match "fi" (getenv "LANG"))
+	     (set-language-environment "Finnish"))
+	    ((string-match "fr" (getenv "LANG"))
+	     (set-language-environment "French"))
+	    ((string-match "gl" (getenv "LANG"))
+	     (set-language-environment "Galician"))
+	    ((string-match "de" (getenv "LANG"))
+	     (set-language-environment "German"))
+	    ((string-match "el" (getenv "LANG"))
+	     (set-language-environment "Greek"))
+	    ((string-match "kl" (getenv "LANG"))
+	     (set-language-environment "Greenlandic"))
+	    ((string-match "he" (getenv "LANG"))
+	     (set-language-environment "Hebrew"))
+	    ((string-match "iw" (getenv "LANG"))
+	     (set-language-environment "Hebrew"))
+	    ((string-match "hu" (getenv "LANG"))
+	     (set-language-environment "Hungarian"))
+	    ((string-match "ga" (getenv "LANG"))
+	     (set-language-environment "Irish"))
+	    ((string-match "it" (getenv "LANG"))
+	     (set-language-environment "Italian"))
+	    ((string-match "ja" (getenv "LANG"))
+	     (set-language-environment "Japanese")
+	     (set-language-unicode-precedence-list
+	      '(ascii
+		latin-iso8859-1
+		latin-iso8859-2
+		latin-iso8859-3
+		latin-iso8859-4
+		latin-iso8859-13
+		latin-iso8859-15
+		latin-iso8859-16
+		cyrillic-iso8859-5
+		greek-iso8859-7
+		japanese-jisx0208
+		japanese-jisx0208-1978
+		japanese-jisx0212
+		latin-jisx0201
+		katakana-jisx0201
+		korean-ksc5601
+		chinese-big5-1
+		chinese-big5-2
+		chinese-gb2312
+		chinese-sisheng)))
+	    ((string-match "ko" (getenv "LANG"))
+	     (set-language-environment "Korean")
+	     (set-language-unicode-precedence-list
+	      '(ascii
+		latin-iso8859-1
+		latin-iso8859-2
+		latin-iso8859-3
+		latin-iso8859-4
+		latin-iso8859-13
+		latin-iso8859-15
+		latin-iso8859-16
+		cyrillic-iso8859-5
+		greek-iso8859-7
+		korean-ksc5601
+		japanese-jisx0208
+		japanese-jisx0208-1978
+		japanese-jisx0212
+		latin-jisx0201
+		katakana-jisx0201
+		chinese-big5-1
+		chinese-big5-2
+		chinese-gb2312
+		chinese-sisheng)))
+	    ((string-match "lt" (getenv "LANG"))
+	     (set-language-environment "Lithuanian"))
+	    ((string-match "mt" (getenv "LANG"))
+	     (set-language-environment "Maltese"))
+	    ((string-match "nb" (getenv "LANG"))
+	     (set-language-environment "Norwegian"))
+	    ((string-match "nn" (getenv "LANG"))
+	     (set-language-environment "Norwegian"))
+	    ((string-match "no" (getenv "LANG"))
+	     (set-language-environment "Norwegian"))
+	    ((string-match "pl" (getenv "LANG"))
+	     (set-language-environment "Polish"))
+	    ((string-match "pt" (getenv "LANG"))
+	     (set-language-environment "Portuguese"))
+	    ((string-match "ro" (getenv "LANG"))
+	     (set-language-environment "Romanian"))
+	    ((string-match "sk" (getenv "LANG"))
+	     (set-language-environment "Slovak"))
+	    ((string-match "sl" (getenv "LANG"))
+	     (set-language-environment "Slovenian"))
+	    ((string-match "es" (getenv "LANG"))
+	     (set-language-environment "Spanish"))
+	    ((string-match "sv" (getenv "LANG"))
+	     (set-language-environment "Swedish"))
+	    ((string-match "th" (getenv "LANG"))
+	     (set-language-environment "Thai-XTIS"))
+	    ((string-match "tr" (getenv "LANG"))
+	     (set-language-environment "Turkish"))
+	    ((string-match "vi" (getenv "LANG"))
+	     (set-language-environment "Vietnamese"))
+	    (t
+	     (set-language-environment "English")))
+      (setenv "LANG" old-lang)
+      (set-current-locale old-lang))))
+
+(defun suse-set-coding-systems ()
+  (let* ((tmp (shell-command-to-string "locale charmap"))
+	 (tmp (substring tmp 0 (string-match "\[ \t\n\]" tmp)))
+	 (tmp (downcase tmp)))
+    (when (find-coding-system (intern tmp))
+      ;; set the coding system priorities:
+      ;; (this is also important to make XIM in utf-8 work
+      ;; because XEmacs has no variable/function to set the
+      ;; coding-system for XIM, it is just autodetected which
+      ;; will work correctly only when the coding-system priorities
+      ;; are OK.)
+      (if (not (string-match "utf-8" tmp))
+	  (progn (prefer-coding-system (intern tmp))
+		 (if (fboundp 'latin-unity-install) (latin-unity-install)))
+	;; it's strange, but (prefer-coding-system 'utf-8) doesn't
+	;; work in XEmacs.
+	;; use 'set-coding-priority-list instead, which achieves
+	;; the same and works for 'utf-8 as well:
+	(set-coding-priority-list (list (intern tmp)))
+	(set-coding-category-system (intern tmp) (intern tmp)))
+      (if (emacs-version>= 21 5 6)
+	  ;; XEmacs 21.5 apparently renamed this function:
+	  (set-default-output-coding-systems (intern tmp))
+	(set-default-coding-systems (intern tmp)))
+      (set-keyboard-coding-system (intern tmp))
+      (set-terminal-coding-system (intern tmp))
+      ;; XEmacs 21.5.16 needs this to be able to use non-ASCII file names:
+      (if (and (string-match "XEmacs" emacs-version)
+	       (emacs-version>= 21 5 6))
+	  (setq file-name-coding-system (intern tmp)))
+      ;; without the following line, shell buffers are not by default
+      ;; in UTF-8 when running in an UTF-8 locale in XEmacs 21.5.16:
+      (setq process-coding-system-alist (cons (cons ".*" (intern tmp)) '()))
+      ;; these two lines appearently make no difference, if they
+      ;; are used instead of the above process-coding-system-alist,
+      ;; shell buffers still have the wrong encoding:
+      ;;    (setq default-process-coding-system-read (intern tmp))
+      ;;    (setq default-process-coding-system-write (intern tmp))
+      ;; and this doesn't seem to work either:
+      ;;    (setq default-process-coding-system '(utf-8 . utf-8))
+      ;; 
+      ;; the following is necessary to enable XEmacs to pass
+      ;; command line arguments to external processes in the correct
+      ;; encoding. For example this is needed to make
+      ;; 'M-x grep' work when searching for UTF-8 strings
+      ;; while running in an UTF-8 locale.
+      ;; 
+      (if (and (string-match "XEmacs" emacs-version)
+	       (emacs-version>= 21 5 6))
+	  (define-coding-system-alias 'native (intern tmp))))))
+
+(suse-set-coding-systems)
+
+;; Set input mode
+(let ((value (current-input-mode)))
+  (set-input-mode (nth 0 value)
+		  (nth 1 value)
+		  (terminal-coding-system)
+		  ;; This quit value is optional
+		  (nth 3 value)))
+
+;; Hack to support some important Unicode keysyms which are not yet
+;; natively supported in XEmacs:
+
+(defun insert-unicode-keysym ()
+  "Assuming the last typed key has an associated keysym of the form
+UXXXX, where XXXX is the hexadecimal code point of a Unicode
+character, insert that Unicode character at point.  "
+  (interactive)
+  (let* ((unicode-codepoint
+	  (string-to-int 
+	   (substring (format "%s" (event-key last-command-event)) 1) 16))
+	 (mule-char (unicode-to-char unicode-codepoint)))
+    (if mule-char
+	(insert mule-char)
+      (error 'text-conversion-error 
+	     (format "Could not convert U+%X to a Mule character, sorry"
+		     unicode-codepoint)))))
+
+(defun suse-global-map-default-binding ()
+  "Workaround to make X11 keysyms of the form UXXXX work.
+This is a stopgap until proper translation of these keysyms is
+integrated into XEmacs"
+  
+  (interactive)
+  (let* ((keysym
+	   (format "%s" (event-key last-command-event)))
+	 (case-fold-search nil))
+    (when (string-match "U[0-9A-F][0-9A-F][0-9A-F][0-9A-F]" keysym)
+	  (insert-unicode-keysym)
+	  (define-key global-map (intern keysym) 'insert-unicode-keysym))))
+
+;;; (when (equal (console-type) 'x)
+;;;   (set-keymap-default-binding global-map 'suse-global-map-default-binding))
+
+;; Hack to support some extra Unicode characters which are not in any
+;; legacy charset. This hack is not enough to display the characters
+;; correctly (should work with the Xft build of XEmacs) but at least
+;; it prevents data loss if files containing these characters are read
+;; and saved again.
+
+(make-charset 'suse-private    
+	      "Private character set for SUSE"                            
+	      '(dimension 2
+		chars 96              
+		columns 1             
+		final ?R ;; Change this--see docs for make-charset        
+		long-name "Private charset for some Unicode char support."
+		short-name            
+		"Suse-Private"))
+
+(defun suse-list-unsupported-codepoints-range (range)
+  (interactive)
+  (let ((unsupported nil)
+	(i (car range))
+	(j (cadr range)))
+    (while (<= i j)
+      (if (not (unicode-to-char i))
+	  (push i unsupported))
+      (setq i (1+ i)))
+    unsupported))
+
+(defun suse-fill-charset (charset codepoint-list)
+  (interactive)
+  (let ((n 0))
+    (dolist (codepoint codepoint-list)
+      (let ((i (mod n 96))
+	    (j (/ n 96)))
+	(if (< j 95)
+	    (set-unicode-conversion (make-char charset (+ i #x20) (+ j #x20)) codepoint)
+	  (message "charset %s is full" charset))
+	(setq n (1+ n))))))
+
+(suse-fill-charset
+ 'suse-private
+ (nconc
+  (suse-list-unsupported-codepoints-range '(#x0100 #x06FF))
+  (suse-list-unsupported-codepoints-range '(#x0900 #x11FF))
+  (suse-list-unsupported-codepoints-range '(#x1E00 #x27FF))
+  (suse-list-unsupported-codepoints-range '(#x3000 #x33FF))
+  (suse-list-unsupported-codepoints-range '(#xE800 #xE8FF))
+  (suse-list-unsupported-codepoints-range '(#xF000 #xF0FF))
+  (suse-list-unsupported-codepoints-range '(#xFB00 #xFFFF))
+  ))
+
+(if (and (boundp 'xft-version) (eq window-system 'x))
+ (load "suse-xft-init.el" t t))
+
+;;;;;;;;;;
+;; the end
diff -Nru xemacs-21.5.20.orig/site-packages/lisp/term/func-keys.el xemacs-21.5.20/site-packages/lisp/term/func-keys.el
--- xemacs-21.5.20.orig/site-packages/lisp/term/func-keys.el	1970-01-01 01:00:00.000000000 +0100
+++ xemacs-21.5.20/site-packages/lisp/term/func-keys.el	2005-05-12 14:38:20.000000000 +0200
@@ -0,0 +1,129 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; term/func-keys.el for site-lisp path in xemacs-21.4.12
+;;; Copyright (c) 1996-2003 SuSE Gmbh Nuernberg, Germany
+;;;
+;;; Author: Werner Fink  <werner@suse.de>, No warranty of any kind
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; num block
+;; kp-f1 .. kp-f4 and kp-tab not found on MF-102
+  (global-set-key [(kp-f1)]   esc-map) ; Escape
+  (global-set-key [(kp-f2)]  'undo) ; Undo
+  (global-set-key [(kp-f3)]  'isearch-forward) ; Search
+  (global-set-key [(kp-f4)]  'kill-line) ; Kill-Line
+  (global-set-key [(kp-tab)] 'indent-for-tab-command)
+  (global-set-key [(kp-0)]   "0")   ; 0
+  (global-set-key [(kp-1)]   "1")   ; 1
+  (global-set-key [(kp-2)]   "2")   ; 2
+  (global-set-key [(kp-3)]   "3")   ; 3
+  (global-set-key [(kp-4)]   "4")   ; 4
+  (global-set-key [(kp-5)]   "5")   ; 5
+  (global-set-key [(kp-6)]   "6")   ; 6
+  (global-set-key [(kp-7)]   "7")   ; 7
+  (global-set-key [(kp-8)]   "8")   ; 8
+  (global-set-key [(kp-9)]   "9")   ; 9
+  (global-set-key [(kp-multiply)]  "*") ; `+'
+  (global-set-key [(kp-add)]       "+") ; `+'
+  (global-set-key [(kp-divide)]    "/") ; `/'
+;; german fault:
+(defvar lang-environment "en_us"
+  "The value of the environment variable \"LANG\"
+used to set appropriate keypad. Default value is \"en_us\".
+If \"LANG\" is set to \"de\" or some other aliases
+(see /usr/X11R6/lib/X11/locale/) the keypad decimal is
+chosen to \",\".
+                            Your SuSE-Team")
+;
+(let ((lang (getenv "LANG")))
+    (if (null lang)
+	(setq lang-environment "en_us")
+      (setq lang-environment lang)))
+;;
+; (if (string-match "^\$de$\\|de_\\|GER_DE\\|german\$" lang-environment)
+;     (progn
+;       (global-set-key [(kp-decimal)]   ",")  ; `,' german decimal
+;       (global-set-key [(kp-separator)] ".")) ; `.' german separator
+;     (global-set-key [(kp-decimal)]   ".")
+;     (global-set-key [(kp-separator)] ","))
+  (global-set-key [(kp-decimal)]   ".")
+  (global-set-key [(kp-separator)] ",")
+  (global-set-key [(kp-subtract)]  "-") ; `-'
+  (global-set-key [(kp-enter)]     'newline)           ; Linefeed
+  (global-set-key [(kp-home)]      'beginning-of-line) ; home
+  (global-set-key [(kp-up)]        'previous-line)     ; up
+  (global-set-key [(kp-prior)]     'scroll-down)       ; ppg
+  (global-set-key [(kp-left)]      'backward-char)     ; left
+  (global-set-key [(kp-begin)]     'beginning-of-line) ; first
+  (global-set-key [(kp-right)]     'forward-char)      ; right
+  (global-set-key [(kp-end)]       'end-of-line)       ; end
+  (global-set-key [(kp-down)]      'next-line)         ; down
+  (global-set-key [(kp-next)]      'scroll-up)         ; npg
+  (global-set-key [(kp-insert)]    'overwrite-mode)    ; insert/ovwrt
+;;
+;; Backspace, Delete and any thing else
+;;
+(if (not (eq 'x (console-type)))
+      nil
+  ;;
+  ;; Overriding the BS/DEL/KP_DEL mapping for Xemacs-20.4:
+  ;;  ... Hey they have done a good job: DEL and BS
+  ;;      now are distinct.
+  ;;
+  (global-unset-key 'kp-delete)
+  (local-unset-key  'kp-delete)
+  ;;
+  ;; What will be inserted `on quoted-insert'
+  ;;(remprop 'delete    'ascii-character)
+  ;;(remprop 'backspace 'ascii-character)
+  ;;(put 'backspace 'ascii-character 127)
+  ;;
+; (load "delbs" t t)
+  (load "x-compose" t t)
+  ;;
+  ;; Set the keyboard macro [(kp-delete)]
+  ;; to the same action as for [(delete-char)]
+  ;;
+  (global-set-key   [(kp-delete)]  'backward-or-forward-delete-char)
+  (local-set-key    [(kp-delete)]  'backward-or-forward-delete-char)
+  ;;
+  ;; Switch DEL/KP_DEL to delete-char
+  ;;
+  (setq delete-key-deletes-forward t)
+)
+;;
+;; Most new users like this, but common emacs users?
+;;
+(global-set-key [(home)]            'beginning-of-line)
+(global-set-key [(control home)]    'beginning-of-buffer)
+(global-set-key [(end)]             'end-of-line)
+(global-set-key [(control end)]     'end-of-buffer)
+;;
+;; Wheel mouse support
+;;
+(defvar mouse-wheel-scroll-amount 4
+    "*Number of lines to scroll per click of the mouse wheel.")
+;
+(defun mouse-wheel-scroll-line (event)
+    "Scroll the current buffer by `mouse-wheel-scroll-amount'."
+    (interactive "e")
+    (condition-case nil
+	(case (event-button event)
+	     (4 (scroll-down mouse-wheel-scroll-amount))
+	     (5 (scroll-up   mouse-wheel-scroll-amount)))
+    (error nil)))
+;
+(defun mouse-wheel-scroll-screen (event)
+    "Scroll the current buffer."
+    (interactive "e")
+    (condition-case nil
+	(case (event-button event)
+	     (4 (scroll-down))
+	     (5 (scroll-up)))
+    (error nil)))
+;
+(global-set-key [(button4)]         'mouse-wheel-scroll-line)
+(global-set-key [(control button4)] 'mouse-wheel-scroll-screen)
+(global-set-key [(button5)]         'mouse-wheel-scroll-line)
+(global-set-key [(control button5)] 'mouse-wheel-scroll-screen)
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Ende von func-keys.el
diff -Nru xemacs-21.5.20.orig/site-packages/lisp/term/gnome.el xemacs-21.5.20/site-packages/lisp/term/gnome.el
--- xemacs-21.5.20.orig/site-packages/lisp/term/gnome.el	1970-01-01 01:00:00.000000000 +0100
+++ xemacs-21.5.20/site-packages/lisp/term/gnome.el	2005-05-12 14:38:20.000000000 +0200
@@ -0,0 +1,97 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; term/gnome.el for site-lisp path in xemacs-21.1.7
+;;; Copyright (c) 1996 SuSE Gmbh Nuernberg, Germany.  All rights reserved.
+;;;
+;;; Author: Werner Fink  <werner@suse.de>, No warranty of any kind
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; (define-key function-key-map "\e[1~" [(find)])
+; (define-key function-key-map "\eOH"  [(home)])
+  (define-key function-key-map "\e[1~" [(home)])
+  (define-key function-key-map "\e[2~" [(insertchar)])
+  (define-key function-key-map "\e[3~" [(deletechar)])
+; (define-key function-key-map "\e[4~" [(select)])
+; (define-key function-key-map "\eOF"  [(end)])
+  (define-key function-key-map "\e[4~" [(end)])
+  (define-key function-key-map "\e[5~" [(prior)])
+  (define-key function-key-map "\e[6~" [(next)])
+  (define-key function-key-map "\eOP"  [(f1)])
+  (define-key function-key-map "\eOQ"  [(f2)])
+  (define-key function-key-map "\eOR"  [(f3)])
+  (define-key function-key-map "\eOS"  [(f4)])
+  (define-key function-key-map "\e[15~" [(f5)])
+  (define-key function-key-map "\e[17~" [(f6)])
+  (define-key function-key-map "\e[18~" [(f7)])
+  (define-key function-key-map "\e[19~" [(f8)])
+  (define-key function-key-map "\e[20~" [(f9)])
+  (define-key function-key-map "\e[21~" [(f10)])
+  (define-key function-key-map "\e[23~" [(f11)])
+  (define-key function-key-map "\e[24~" [(f12)])
+  (define-key function-key-map "\e[25~" [(f13)])
+  (define-key function-key-map "\e[26~" [(f14)])
+  (define-key function-key-map "\e[28~" [(help)])
+  (define-key function-key-map "\e[29~" [(menu)])
+  (define-key function-key-map "\e?\e[28~" [(meta help)])
+  (define-key function-key-map "\e?\e[29~" [(meta menu)])
+  (define-key function-key-map "\e[31~" [(f17)])
+  (define-key function-key-map "\e[32~" [(f18)])
+  (define-key function-key-map "\e[33~" [(f19)])
+  (define-key function-key-map "\e[34~" [(f20)])
+;;
+;; num block
+;; [(home)] and [(end)] found in num block
+; (define-key function-key-map "\eOH" [(home)])
+; (define-key function-key-map "\eOF" [(end)])
+  (define-key function-key-map "\e[1~" [(home)])
+  (define-key function-key-map "\e[4~" [(end)])
+;;
+;; Locked num block
+  (define-key function-key-map "\eOI" [(kp-tab)])
+  (define-key function-key-map "\eOj" [(kp-multiply)])
+  (define-key function-key-map "\eOk" [(kp-add)])
+  (define-key function-key-map "\eOl" [(kp-separator)])
+  (define-key function-key-map "\eOM" [(kp-enter)])
+  (define-key function-key-map "\eOm" [(kp-subtract)])
+  (define-key function-key-map "\eOn" [(kp-decimal)])
+; (define-key function-key-map "\eOn" [(kp-period)]) ; [kp-decimal]
+  (define-key function-key-map "\eOo" [(kp-divide)])
+  (define-key function-key-map "\eOp" [(kp-0)])
+  (define-key function-key-map "\eOq" [(kp-1)])
+  (define-key function-key-map "\eOr" [(kp-2)])
+  (define-key function-key-map "\eOs" [(kp-3)])
+  (define-key function-key-map "\eOt" [(kp-4)])
+  (define-key function-key-map "\eOu" [(kp-5)])
+  (define-key function-key-map "\eOv" [(kp-6)])
+  (define-key function-key-map "\eOw" [(kp-7)])
+  (define-key function-key-map "\eOx" [(kp-8)])
+  (define-key function-key-map "\eOy" [(kp-9)])
+;;
+;; Undefine some ESC ESC behavior --- for later use
+  (global-unset-key "\e\e")
+  (define-key esc-map "\e" nil)
+;;
+  (define-key function-key-map  "\eOD" [(left)])
+  (define-key function-key-map  "\eOC" [(right)])
+  (define-key function-key-map  "\eOA" [(up)])
+  (define-key function-key-map  "\eOB" [(down)])
+;;
+  (define-key function-key-map  "\e\eOD" [(meta left)])
+  (define-key function-key-map  "\e\eOC" [(meta right)])
+  (define-key function-key-map  "\e\eOA" [(meta up)])
+  (define-key function-key-map  "\e\eOB" [(meta down)])
+;;
+;; Not in Use?
+  (define-key function-key-map "\C-?\eOD" [(control left)])
+  (define-key function-key-map "\C-?\eOC" [(control right)])
+  (define-key function-key-map "\C-?\eOA" [(control up)])
+  (define-key function-key-map "\C-?\eOB" [(control down)])
+;;
+;; Backspace, Delete and any thing else
+;;
+  (global-unset-key [(insertchar)])
+  (global-set-key   [(insertchar)]  'overwrite-mode)
+  (global-unset-key [(deletechar)])
+  (global-set-key   [(deletechar)]  'delete-char)
+;;
+(load "term/func-keys"  nil t)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Ende von gnome.el
diff -Nru xemacs-21.5.20.orig/site-packages/lisp/term/kvt.el xemacs-21.5.20/site-packages/lisp/term/kvt.el
--- xemacs-21.5.20.orig/site-packages/lisp/term/kvt.el	1970-01-01 01:00:00.000000000 +0100
+++ xemacs-21.5.20/site-packages/lisp/term/kvt.el	2005-05-12 14:38:20.000000000 +0200
@@ -0,0 +1,97 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; term/kvt.el for site-lisp path in xemacs-21.1.7
+;;; Copyright (c) 2000 SuSE Gmbh Nuernberg, Germany.  All rights reserved.
+;;;
+;;; Author: Werner Fink  <werner@suse.de>, No warranty of any kind
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  (define-key function-key-map "\e[1~" [(find)])
+  (define-key function-key-map "\eOH"  [(home)])
+  (define-key function-key-map "\e[2~" [(insertchar)])
+  (define-key function-key-map "\e[3~" [(deletechar)])
+  (define-key function-key-map "\e[4~" [(select)])
+  (define-key function-key-map "\eOF"  [(end)])
+  (define-key function-key-map "\e[5~" [(prior)])
+  (define-key function-key-map "\e[6~" [(next)])
+  (define-key function-key-map "\e[11~" [(f1)])
+  (define-key function-key-map "\e[12~" [(f2)])
+  (define-key function-key-map "\e[13~" [(f3)])
+  (define-key function-key-map "\e[14~" [(f4)])
+  (define-key function-key-map "\e[15~" [(f5)])
+  (define-key function-key-map "\e[17~" [(f6)])
+  (define-key function-key-map "\e[18~" [(f7)])
+  (define-key function-key-map "\e[19~" [(f8)])
+  (define-key function-key-map "\e[20~" [(f9)])
+  (define-key function-key-map "\e[21~" [(f10)])
+  (define-key function-key-map "\e[23~" [(f11)])
+  (define-key function-key-map "\e[24~" [(f12)])
+  (define-key function-key-map "\e[25~" [(f13)])
+  (define-key function-key-map "\e[26~" [(f14)])
+  (define-key function-key-map "\e[28~" [(help)])
+  (define-key function-key-map "\e[29~" [(menu)])
+  (define-key function-key-map "\e?\e[28~" [(meta help)])
+  (define-key function-key-map "\e?\e[29~" [(meta menu)])
+  (define-key function-key-map "\e[31~" [(f17)])
+  (define-key function-key-map "\e[32~" [(f18)])
+  (define-key function-key-map "\e[33~" [(f19)])
+  (define-key function-key-map "\e[34~" [(f20)])
+;;
+;; num block
+;; [(home)] and [(end)] found in num block
+  (define-key function-key-map "\eOH" [(home)])
+  (define-key function-key-map "\eOF" [(end)])
+;;
+;; Locked num block
+  (define-key function-key-map "\eOP" [(kp-f1)])
+  (define-key function-key-map "\eOQ" [(kp-f2)])
+  (define-key function-key-map "\eOR" [(kp-f3)])
+  (define-key function-key-map "\eOS" [(kp-f4)])
+  (define-key function-key-map "\eOI" [(kp-tab)])
+  (define-key function-key-map "\eOj" [(kp-multiply)])
+  (define-key function-key-map "\eOk" [(kp-add)])
+  (define-key function-key-map "\eOl" [(kp-separator)])
+  (define-key function-key-map "\eOM" [(kp-enter)])
+  (define-key function-key-map "\eOm" [(kp-subtract)])
+  (define-key function-key-map "\eOn" [(kp-decimal)])
+; (define-key function-key-map "\eOn" [(kp-period)]) ; [kp-decimal]
+  (define-key function-key-map "\eOo" [(kp-divide)])
+  (define-key function-key-map "\eOp" [(kp-0)])
+  (define-key function-key-map "\eOq" [(kp-1)])
+  (define-key function-key-map "\eOr" [(kp-2)])
+  (define-key function-key-map "\eOs" [(kp-3)])
+  (define-key function-key-map "\eOt" [(kp-4)])
+  (define-key function-key-map "\eOu" [(kp-5)])
+  (define-key function-key-map "\eOv" [(kp-6)])
+  (define-key function-key-map "\eOw" [(kp-7)])
+  (define-key function-key-map "\eOx" [(kp-8)])
+  (define-key function-key-map "\eOy" [(kp-9)])
+;;
+;; Undefine some ESC ESC behavior --- for later use
+  (global-unset-key "\e\e")
+  (define-key esc-map "\e" nil)
+;;
+  (define-key function-key-map  "\eOD" [(left)])
+  (define-key function-key-map  "\eOC" [(right)])
+  (define-key function-key-map  "\eOA" [(up)])
+  (define-key function-key-map  "\eOB" [(down)])
+;;
+  (define-key function-key-map  "\e\eOD" [(meta left)])
+  (define-key function-key-map  "\e\eOC" [(meta right)])
+  (define-key function-key-map  "\e\eOA" [(meta up)])
+  (define-key function-key-map  "\e\eOB" [(meta down)])
+;;
+;; Not in Use?
+  (define-key function-key-map "\C-?\eOD" [(control left)])
+  (define-key function-key-map "\C-?\eOC" [(control right)])
+  (define-key function-key-map "\C-?\eOA" [(control up)])
+  (define-key function-key-map "\C-?\eOB" [(control down)])
+;;
+;; Backspace, Delete and any thing else
+;;
+  (global-unset-key [(insertchar)])
+  (global-set-key   [(insertchar)]  'overwrite-mode)
+  (global-unset-key [(deletechar)])
+  (global-set-key   [(deletechar)]  'delete-char)
+;;
+(load "term/func-keys"  nil t)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Ende von kvt.el
diff -Nru xemacs-21.5.20.orig/site-packages/lisp/term/linux.el xemacs-21.5.20/site-packages/lisp/term/linux.el
--- xemacs-21.5.20.orig/site-packages/lisp/term/linux.el	1970-01-01 01:00:00.000000000 +0100
+++ xemacs-21.5.20/site-packages/lisp/term/linux.el	2005-05-12 14:38:20.000000000 +0200
@@ -0,0 +1,79 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; term/linux.el for site-lisp path in xemacs-21.1.7
+;;; Copyright (c) 1996 SuSE Gmbh Nuernberg, Germany.  All rights reserved.
+;;;
+;;; Author: Werner Fink  <werner@suse.de>, No warranty of any kind
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  (define-key function-key-map "\e[1~" [(home)])
+  (define-key function-key-map "\e[2~" [(insertchar)])
+  (define-key function-key-map "\e[3~" [(deletechar)])
+  (define-key function-key-map "\e[4~" [(end)])
+  (define-key function-key-map "\e[5~" [(prior)])
+  (define-key function-key-map "\e[6~" [(next)])
+  (define-key function-key-map "\e[[A" [(f1)])
+  (define-key function-key-map "\e[[B" [(f2)])
+  (define-key function-key-map "\e[[C" [(f3)])
+  (define-key function-key-map "\e[[D" [(f4)])
+  (define-key function-key-map "\e[[E" [(f5)])
+  (define-key function-key-map "\e[17~" [(f6)])
+  (define-key function-key-map "\e[18~" [(f7)])
+  (define-key function-key-map "\e[19~" [(f8)])
+  (define-key function-key-map "\e[20~" [(f9)])
+  (define-key function-key-map "\e[21~" [(f10)])
+  (define-key function-key-map "\e[23~" [(f11)])
+  (define-key function-key-map "\e[24~" [(f12)])
+  (define-key function-key-map "\e[25~" [(f13)])
+  (define-key function-key-map "\e[26~" [(f14)])
+  (define-key function-key-map "\e[28~" [(help)])
+  (define-key function-key-map "\e[29~" [(menu)])
+  (define-key function-key-map "\e?\e[28~" [(meta help)])
+  (define-key function-key-map "\e?\e[29~" [(meta menu)])
+  (define-key function-key-map "\e[31~" [(f17)])
+  (define-key function-key-map "\e[32~" [(f18)])
+  (define-key function-key-map "\e[33~" [(f19)])
+  (define-key function-key-map "\e[34~" [(f20)])
+;;
+;; Not in Use?
+;; ----------------------------------
+;; Console-Setting for Linux ???
+  (define-key function-key-map "\e[H"  [(meta up)])
+  (define-key function-key-map "\e[Y"  [(meta down)])
+  (define-key function-key-map "\e[M"  [(menu)])
+  (define-key function-key-map "\e?\e[M"  [(meta menu)])
+  (define-key function-key-map "\e[P"  [(pause)])
+;;
+;; num block
+  (define-key function-key-map "\e[G" [(begin)])
+;;
+;; Locked num block Nothing to do :-)
+;;
+;; Undefine some ESC ESC behavior --- for later use
+  (global-unset-key "\e\e")
+  (define-key esc-map "\e" nil)
+;;
+  (define-key function-key-map "\e[D" [(left)])
+  (define-key function-key-map "\e[C" [(right)])
+  (define-key function-key-map "\e[A" [(up)])
+  (define-key function-key-map "\e[B" [(down)])
+;;
+  (define-key function-key-map "\e\e[D" [(meta left)])
+  (define-key function-key-map "\e\e[C" [(meta right)])
+  (define-key function-key-map "\e\e[A" [(meta up)])
+  (define-key function-key-map "\e\e[B" [(meta down)])
+;;
+;; Not in Use?
+  (define-key function-key-map "\C-?\e[D" [(control left)])
+  (define-key function-key-map "\C-?\e[C" [(control right)])
+  (define-key function-key-map "\C-?\e[A" [(control up)])
+  (define-key function-key-map "\C-?\e[B" [(control down)])
+;;
+;; Backspace, Delete and any thing else
+;;
+  (global-unset-key [(insertchar)])
+  (global-set-key   [(insertchar)]  'overwrite-mode)
+  (global-unset-key [(deletechar)])
+  (global-set-key   [(deletechar)]  'delete-char)
+;;
+(load "term/func-keys" nil t)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Ende von linux.el
diff -Nru xemacs-21.5.20.orig/site-packages/lisp/term/xterm.el xemacs-21.5.20/site-packages/lisp/term/xterm.el
--- xemacs-21.5.20.orig/site-packages/lisp/term/xterm.el	1970-01-01 01:00:00.000000000 +0100
+++ xemacs-21.5.20/site-packages/lisp/term/xterm.el	2005-05-12 14:38:20.000000000 +0200
@@ -0,0 +1,120 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; term/xterm.el for site-lisp path in xemacs-21.1.7
+;;; Copyright (c) 1996 SuSE Gmbh Nuernberg, Germany.  All rights reserved.
+;;;
+;;; Author: Werner Fink  <werner@suse.de>, No warranty of any kind
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; MF-102: on linux console \033[1~ is not [(find)] but [(home)]
+;; in xterm [(home)] is \033[H (app-keypad off) or \033OH (app-keypad on)
+;; and [(find)] is \033[1~
+;; Note: this must be consistent with app-defaults of xterm,
+;;       terminfo/termcap, and all of inputrc, csh.cshrc, exrc
+  (define-key function-key-map "\e[1~" [(find)])
+  (define-key function-key-map "\e[H"  [(home)])
+  (define-key function-key-map "\eOH"  [(home)])
+  (define-key function-key-map "\e[2~" [(insertchar)])
+  (define-key function-key-map "\e[3~" [(deletechar)])
+;; MF-102: on linux console \033[4~ is not [(select)] but [(end)]
+;; in xterm [(end] should be \033[F (app-keypad off) or \033OF (app-keypad on)
+;; and [(select)] is \033[4~
+;; Note: this must be consistent with app-defaults of xterm,
+;;       terminfo/termcap, and all of inputrc, csh.cshrc, exrc
+  (define-key function-key-map "\e[4~" [(select)])
+  (define-key function-key-map "\e[F"  [(end)])
+  (define-key function-key-map "\eOF"  [(end)])
+  (define-key function-key-map "\e[5~" [(prior)])
+  (define-key function-key-map "\e[6~" [(next)])
+  (define-key function-key-map "\e[11~" [(f1)])
+  (define-key function-key-map "\e[12~" [(f2)])
+  (define-key function-key-map "\e[13~" [(f3)])
+  (define-key function-key-map "\e[14~" [(f4)])
+  (define-key function-key-map "\eOP"   [(f1)])
+  (define-key function-key-map "\eOQ"   [(f2)])
+  (define-key function-key-map "\eOR"   [(f3)])
+  (define-key function-key-map "\eOS"   [(f4)])
+  (define-key function-key-map "\e[15~" [(f5)])
+  (define-key function-key-map "\e[17~" [(f6)])
+  (define-key function-key-map "\e[18~" [(f7)])
+  (define-key function-key-map "\e[19~" [(f8)])
+  (define-key function-key-map "\e[20~" [(f9)])
+  (define-key function-key-map "\e[21~" [(f10)])
+  (define-key function-key-map "\e[23~" [(f11)])
+  (define-key function-key-map "\e[24~" [(f12)])
+  (define-key function-key-map "\e[25~" [(f13)])
+  (define-key function-key-map "\e[26~" [(f14)])
+  (define-key function-key-map "\e[28~" [(help)])
+  (define-key function-key-map "\e[29~" [(menu)])
+  (define-key function-key-map "\e?\e[28~" [(meta help)])
+  (define-key function-key-map "\e?\e[29~" [(meta menu)])
+  (define-key function-key-map "\e[31~" [(f17)])
+  (define-key function-key-map "\e[32~" [(f18)])
+  (define-key function-key-map "\e[33~" [(f19)])
+  (define-key function-key-map "\e[34~" [(f20)])
+;;
+;; num block
+;; [(home)] and [(end)] found in num block
+  (define-key function-key-map "\eOH" [(home)])
+  (define-key function-key-map "\eOF" [(end)])
+  (define-key function-key-map "\eOE" [(begin)])
+;;
+;; Locked num block
+;; kp-f1 .. kp-f4 and kp-tab not found on MF-102
+;; For xterm on xfree we use f1 .. f4, see above
+; (define-key function-key-map "\eOP" [(kp-f1)])
+; (define-key function-key-map "\eOQ" [(kp-f2)])
+; (define-key function-key-map "\eOR" [(kp-f3)])
+; (define-key function-key-map "\eOS" [(kp-f4)])
+  (define-key function-key-map "\eOI" [(kp-tab)])
+  (define-key function-key-map "\eOj" [(kp-multiply)])
+  (define-key function-key-map "\eOk" [(kp-add)])
+  (define-key function-key-map "\eOl" [(kp-separator)])
+  (define-key function-key-map "\eOM" [(kp-enter)])
+  (define-key function-key-map "\eOm" [(kp-subtract)])
+  (define-key function-key-map "\eOn" [(kp-decimal)])
+; (define-key function-key-map "\eOn" [(kp-period)]) ; [kp-decimal]
+  (define-key function-key-map "\eOo" [(kp-divide)])
+  (define-key function-key-map "\eOp" [(kp-0)])
+  (define-key function-key-map "\eOq" [(kp-1)])
+  (define-key function-key-map "\eOr" [(kp-2)])
+  (define-key function-key-map "\eOs" [(kp-3)])
+  (define-key function-key-map "\eOt" [(kp-4)])
+  (define-key function-key-map "\eOu" [(kp-5)])
+  (define-key function-key-map "\eOv" [(kp-6)])
+  (define-key function-key-map "\eOw" [(kp-7)])
+  (define-key function-key-map "\eOx" [(kp-8)])
+  (define-key function-key-map "\eOy" [(kp-9)])
+;;
+;; Undefine some ESC ESC behavior --- for later use
+  (global-unset-key "\e\e")
+  (define-key esc-map "\e" nil)
+;;
+  (define-key function-key-map  "\eOD" [(left)])
+  (define-key function-key-map  "\eOC" [(right)])
+  (define-key function-key-map  "\eOA" [(up)])
+  (define-key function-key-map  "\eOB" [(down)])
+;;
+  (define-key function-key-map  "\e\eOD" [(meta left)])
+  (define-key function-key-map  "\e\eOC" [(meta right)])
+  (define-key function-key-map  "\e\eOA" [(meta up)])
+  (define-key function-key-map  "\e\eOB" [(meta down)])
+;;
+;; Not in Use?
+  (define-key function-key-map "\C-?\eOD" [(control left)])
+  (define-key function-key-map "\C-?\eOC" [(control right)])
+  (define-key function-key-map "\C-?\eOA" [(control up)])
+  (define-key function-key-map "\C-?\eOB" [(control down)])
+  (define-key function-key-map "\eO5D"    [(control left)])
+  (define-key function-key-map "\eO5C"    [(control right)])
+  (define-key function-key-map "\eO5A"    [(control up)])
+  (define-key function-key-map "\eO5B"    [(control down)])
+;;
+;; Backspace, Delete and any thing else
+;;
+  (global-unset-key [(insertchar)])
+  (global-set-key   [(insertchar)]  'overwrite-mode)
+  (global-unset-key [(deletechar)])
+  (global-set-key   [(deletechar)]  'delete-char)
+;;
+(load "term/func-keys"  nil t)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Ende von xterm.el
diff -Nru xemacs-21.5.20.orig/src/Makefile.in.in xemacs-21.5.20/src/Makefile.in.in
--- xemacs-21.5.20.orig/src/Makefile.in.in	2005-03-10 10:05:52.000000000 +0100
+++ xemacs-21.5.20/src/Makefile.in.in	2005-05-12 14:38:20.000000000 +0200
@@ -555,7 +555,7 @@
 	else \
 		$(CC) -c $(cflags) -DMAX_SIZE=0 $(SRC)/dump-data.c ;\
 	fi
-	$(LD) $(start_flags) $(ldflags) -o $@ $(start_files) $(objs) $(otherobjs) $(DUMP_ID) dump-data.o $(LIBES)
+	$(LD) $(start_flags) -Wl,-rpath-link,/usr/X11R6/lib $(ldflags) -o $@ $(start_files) $(objs) $(otherobjs) $(DUMP_ID) dump-data.o $(LIBES)
 #endif
 
 ## (3) Update the .elc's needed for dumping
@@ -585,7 +585,7 @@
 	$(TEMACS_BATCH) -l $(LISP)/make-docfile.el -- \
 		-o $(LIB_SRC)/DOC -d $(SRC) -i $(LIB_SRC)/../site-packages \
 		$(obj_src) $(mallocdocsrc) $(rallocdocsrc) \
-		$(extra_doc_files) ; fi
+		$(extra_doc_files) ${lispdir}disp-table.elc ; fi
 
 ## (5) Dump
 
diff -Nru xemacs-21.5.20.orig/src/print.c xemacs-21.5.20/src/print.c
--- xemacs-21.5.20.orig/src/print.c	2005-01-25 00:34:05.000000000 +0100
+++ xemacs-21.5.20/src/print.c	2005-05-12 14:38:20.000000000 +0200
@@ -1084,6 +1084,40 @@
   Ibyte *cp, c;
   int width;
 
+  /* Check for plus infinity in a way that won't lose
+     if there is no plus infinity.  */
+  if (data == data / 2 && data > 1.0)
+    {
+      strcpy (buf, "1.0e+INF");
+      return;
+    }
+  /* Likewise for minus infinity.  */
+  if (data == data / 2 && data < -1.0)
+    {
+      strcpy (buf, "-1.0e+INF");
+      return;
+    }
+  /* Check for NaN in a way that won't fail if there are no NaNs.  */
+  if (! (data * 0.0 >= 0.0))
+    {
+      /* Prepend "-" if the NaN's sign bit is negative.
+	 The sign bit of a double is the bit that is 1 in -0.0.  */
+      int i;
+      double zero = 0.0;
+      union { double d; char c[sizeof (double)]; } u_data, u_minus_zero;
+      u_data.d = data;
+      u_minus_zero.d = - zero;
+      for (i = 0; i < sizeof (double); i++)
+        if (u_data.c[i] & u_minus_zero.c[i])
+	  {
+	    *buf++ = '-';
+	    break;
+	  }
+
+      strcpy (buf, "0.0e+NaN");
+      return;
+    }
+
   if (NILP (Vfloat_output_format)
       || !STRINGP (Vfloat_output_format))
   lose:
diff -Nru xemacs-21.5.20.orig/src/regex.c xemacs-21.5.20/src/regex.c
--- xemacs-21.5.20.orig/src/regex.c	2005-03-09 05:59:31.000000000 +0100
+++ xemacs-21.5.20/src/regex.c	2005-05-12 14:38:20.000000000 +0200
@@ -1154,6 +1154,9 @@
    syntax, so it can be changed between regex compilations.  */
 /* This has no initializer because initialized variables in Emacs
    become read-only after dumping.  */
+#ifdef __linux__ /* libc and glibc including this */
+extern
+#endif
 reg_syntax_t re_syntax_options;
 
 
diff -Nru xemacs-21.5.20.orig/src/s/linux.h xemacs-21.5.20/src/s/linux.h
--- xemacs-21.5.20.orig/src/s/linux.h	2002-08-12 16:45:34.000000000 +0200
+++ xemacs-21.5.20/src/s/linux.h	2005-05-12 14:38:20.000000000 +0200
@@ -25,6 +25,7 @@
 
 #define USG
 #define LINUX
+#define I18N2
 
 /* powerpc gcc 2.8.0 doesn't define __ELF__, but it is */
 
diff -Nru xemacs-21.5.20.orig/suse/README.SuSE xemacs-21.5.20/suse/README.SuSE
--- xemacs-21.5.20.orig/suse/README.SuSE	1970-01-01 01:00:00.000000000 +0100
+++ xemacs-21.5.20/suse/README.SuSE	2005-05-12 14:38:20.000000000 +0200
@@ -0,0 +1,18 @@
+
+   XEmacs-21.5.16
+
+   * Sie finden eine Referenz-Karte im Verzeichnis etc/
+     in der Datei refcard.ps, die Sie ausdrucken können.
+
+   * Weitere Hilfe zum XEmacs findet sich ebenfalls unter etc/
+     und natürlich auch Online im Editor selbst im Help-Menü.
+
+---
+
+   * You find a reference card refcard.ps in the directory etc/
+     which can be printed.
+
+   * More help for XEmacs will can be found in etc/ and
+     clearly online in the menu help
+
+

Places

File xemacs.patch of Package xemacs (Revision 4728e894ebe6cefde3aa732cff5b58f5)

Places