gentoo-overlay/app-emacs/gnuserv/files/gnuserv-3.12.7-path-xemacs.patch

--- gnuserv.el~	2004-10-19 10:50:01.000000000 +0200
+++ gnuserv.el	2007-05-25 22:49:01.000000000 +0200
@@ -733,7 +733,16 @@
   (unless leave-dead
     (setq gnuserv-string ""
 	  gnuserv-current-client nil)
-    (let ((process-connection-type t))
+    (let* ((process-connection-type t)
+	   (xe-sysconf
+	    ;; XEmacs uses i*86-pc-linux instead of i*86-pc-linux-gnu
+	    ;; Do they want to be deliberately incompatible? :-(
+	    (replace-regexp-in-string
+	     "^\\([^-]+-[^-]+-[^-]+\\)-.*$" "\\1" system-configuration))
+	   (exec-path
+	    (append exec-path
+		    (file-expand-wildcards
+		     (concat "/usr/lib/xemacs-*/" xe-sysconf)))))
       (setq gnuserv-process
 	    (start-process "gnuserv" nil gnuserv-program)))
     (set-process-sentinel gnuserv-process 'gnuserv-sentinel)