Fix some superflous deviations from CVS, plus apply some cosmetics.

* etc/TODO: Fix deviation from CVS.
* lisp/emulation/viper-util.el: Ditto.
* lisp/international/mule-cmds.el: Ditto.
* lisp/progmodes/gdb-ui.el: Ditto.
* src/termchar.h: Ditto.
* src/xfns.c (Fx_create_frame): Ditto.

* lisp/term/rxvt.el: Don't embed `(require 'server)' in eval-when-compile.
* lisp/term/xterm.el: Ditto.

* src/xterm.c (x_delete_display): Cosmetic change.
* src/xterm.c (x_create_frame_display): Cosmetic change.




git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-317

3 files changed, 4 insertions, 5 deletions

diff --git a/lisp/term/rxvt.el b/lisp/term/rxvt.el
index 3dbea1d46b2..32f7900ed75 100644
--- a/lisp/term/rxvt.el
+++ b/lisp/term/rxvt.el
@@ -26,7 +26,7 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'server))
+(require 'server)
 
 ;; Set up function-key-map entries that termcap and terminfo don't know.
 (let ((map (make-sparse-keymap)))
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 12e87e3bee5..aa0d1fa09c4 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -83,8 +83,7 @@
 (require 'menu-bar)
 (require 'fontset)
 (require 'x-dnd)
-
-(eval-when-compile (require 'server))
+(require 'server)
 
 (defvar x-invocation-args)
 
@@ -2242,7 +2241,7 @@ order until succeed.")
     (if text
         (remove-text-properties 0 (length text) '(foreign-selection nil) text))
     text))
-
+      
 ;;; Return the value of the current X selection.
 ;;; Consult the selection, and the cut buffer.  Treat empty strings
 ;;; as if they were unset.
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 042df933989..431825d181a 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -26,7 +26,7 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'server))
+(require 'server)
 
 (let ((map (make-sparse-keymap)))
   (define-key map "\e[A" [up])