blob: 2e7299ca17c96bd447605d75add9e86f82dc60e1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- 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)
|
GitWeb
