(w32-initialize-window-system): Don't override

Japanese font settings.
(xlfd-regexp-registry-subnum): Remove unused declaration.
(w32-drag-n-drop-debug): Comment out unused debug function.

2 files changed, 6 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd4d8ef5475..daead11a8d4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
         * term/w32-win.el (w32-initialize-window-system): Don't override
         Japanese font settings.
+        (xlfd-regexp-registry-subnum): Remove unused declaration.
+        (w32-drag-n-drop-debug): Comment out unused debug function.
 
 2009-03-11  Glenn Morris  <rgm@gnu.org>
 
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 7555748fee3..da3fab0132a 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -85,7 +85,6 @@
                   (&optional frame exclude-proportional))
 (define-obsolete-function-alias 'w32-select-font 'x-select-font "23.1")
 
-(defvar xlfd-regexp-registry-subnum)
 (defvar w32-color-map) ;; defined in w32fns.c
 
 (declare-function w32-send-sys-command "w32fns.c")
@@ -98,10 +97,10 @@
 ;; The following definition is used for debugging scroll bar events.
 ;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))
 
-(defun w32-drag-n-drop-debug (event)
-  "Print the drag-n-drop EVENT in a readable form."
-  (interactive "e")
-  (princ event))
+;; (defun w32-drag-n-drop-debug (event)
+;;   "Print the drag-n-drop EVENT in a readable form."
+;;   (interactive "e")
+;;   (princ event))
 
 (defun w32-drag-n-drop (event)
   "Edit the files listed in the drag-n-drop EVENT.