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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
--- a/gnuserv.el
+++ b/gnuserv.el
@@ -103,25 +103,25 @@ Set this to nil if you don't want a mode
;; new forms. This ugly crock must be before the variable
;; declaration, or the scheme fails.
-(define-obsolete-variable-alias 'server-frame 'gnuserv-frame)
+(define-obsolete-variable-alias 'server-frame 'gnuserv-frame "2007-10-22")
(define-obsolete-variable-alias 'server-done-function
- 'gnuserv-done-function)
+ 'gnuserv-done-function "2007-10-22")
(define-obsolete-variable-alias 'server-done-temp-file-function
- 'gnuserv-done-temp-file-function)
+ 'gnuserv-done-temp-file-function "2007-10-22")
(define-obsolete-variable-alias 'server-find-file-function
- 'gnuserv-find-file-function)
+ 'gnuserv-find-file-function "2007-10-22")
(define-obsolete-variable-alias 'server-program
- 'gnuserv-program)
+ 'gnuserv-program "2007-10-22")
(define-obsolete-variable-alias 'server-visit-hook
- 'gnuserv-visit-hook)
+ 'gnuserv-visit-hook "2007-10-22")
(define-obsolete-variable-alias 'server-done-hook
- 'gnuserv-done-hook)
+ 'gnuserv-done-hook "2007-10-22")
(define-obsolete-variable-alias 'server-kill-quietly
- 'gnuserv-kill-quietly)
+ 'gnuserv-kill-quietly "2007-10-22")
(define-obsolete-variable-alias 'server-temp-file-regexp
- 'gnuserv-temp-file-regexp)
+ 'gnuserv-temp-file-regexp "2007-10-22")
(define-obsolete-variable-alias 'server-make-temp-file-backup
- 'gnuserv-make-temp-file-backup)
+ 'gnuserv-make-temp-file-backup "2007-10-22")
;;;###autoload
(defcustom gnuserv-frame nil
--- a/gnuserv-compat.el
+++ b/gnuserv-compat.el
@@ -52,8 +52,13 @@
(require 'cl)
(eval-and-compile
- (unless (fboundp 'define-obsolete-variable-alias)
- (defalias 'define-obsolete-variable-alias 'make-obsolete-variable))
+ (if (string-match "XEmacs" (emacs-version))
+ (defun define-obsolete-variable-alias (name current when)
+ "only old-style make-obsolete-variable supported in xemacs"
+ (defvaralias name current)
+ (make-obsolete-variable name current))
+ (unless (fboundp 'define-obsolete-variable-alias)
+ (defalias 'define-obsolete-variable-alias 'make-obsolete-variable)))
(unless (fboundp 'functionp)
(defun functionp (object)
|
