Mercurial > emacs
comparison lisp/term/w32-win.el @ 102488:c6f1ce79df9a
(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.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Wed, 11 Mar 2009 15:59:30 +0000 |
| parents | 3effe27f535c |
| children | 9b74238fc6c2 |
comparison
equal
deleted
inserted
replaced
| 102487:3effe27f535c | 102488:c6f1ce79df9a |
|---|---|
| 83 (define-obsolete-function-alias 'w32-focus-frame 'x-focus-frame "23.1") | 83 (define-obsolete-function-alias 'w32-focus-frame 'x-focus-frame "23.1") |
| 84 (declare-function x-select-font "w32font.c" | 84 (declare-function x-select-font "w32font.c" |
| 85 (&optional frame exclude-proportional)) | 85 (&optional frame exclude-proportional)) |
| 86 (define-obsolete-function-alias 'w32-select-font 'x-select-font "23.1") | 86 (define-obsolete-function-alias 'w32-select-font 'x-select-font "23.1") |
| 87 | 87 |
| 88 (defvar xlfd-regexp-registry-subnum) | |
| 89 (defvar w32-color-map) ;; defined in w32fns.c | 88 (defvar w32-color-map) ;; defined in w32fns.c |
| 90 | 89 |
| 91 (declare-function w32-send-sys-command "w32fns.c") | 90 (declare-function w32-send-sys-command "w32fns.c") |
| 92 (declare-function set-message-beep "w32console.c") | 91 (declare-function set-message-beep "w32console.c") |
| 93 | 92 |
| 96 (require 'fontset)) | 95 (require 'fontset)) |
| 97 | 96 |
| 98 ;; The following definition is used for debugging scroll bar events. | 97 ;; The following definition is used for debugging scroll bar events. |
| 99 ;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event)) | 98 ;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event)) |
| 100 | 99 |
| 101 (defun w32-drag-n-drop-debug (event) | 100 ;; (defun w32-drag-n-drop-debug (event) |
| 102 "Print the drag-n-drop EVENT in a readable form." | 101 ;; "Print the drag-n-drop EVENT in a readable form." |
| 103 (interactive "e") | 102 ;; (interactive "e") |
| 104 (princ event)) | 103 ;; (princ event)) |
| 105 | 104 |
| 106 (defun w32-drag-n-drop (event) | 105 (defun w32-drag-n-drop (event) |
| 107 "Edit the files listed in the drag-n-drop EVENT. | 106 "Edit the files listed in the drag-n-drop EVENT. |
| 108 Switch to a buffer editing the last file dropped." | 107 Switch to a buffer editing the last file dropped." |
| 109 (interactive "e") | 108 (interactive "e") |