Mercurial > emacs
changeset 83614:1436f0e41f94
(internal-face-interactive): Remove obsolete function.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Thu, 17 May 2007 12:28:35 +0000 |
| parents | 71c1ea291671 |
| children | 34d02ab0ec0d |
| files | lisp/term/w32-win.el |
| diffstat | 1 files changed, 0 insertions(+), 27 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/w32-win.el Thu May 17 00:40:31 2007 +0000 +++ b/lisp/term/w32-win.el Thu May 17 12:28:35 2007 +0000 @@ -1067,33 +1067,6 @@ "Report an error when a suspend is attempted." (error "Suspending an Emacs running under W32 makes no sense")) -;; Remap some functions to call w32 common dialogs - -(defun internal-face-interactive (what &optional bool) - (let* ((fn (intern (concat "face-" what))) - (prompt (concat "Set " what " of face ")) - (face (read-face-name prompt)) - (default (if (fboundp fn) - (or (funcall fn face (selected-frame)) - (funcall fn 'default (selected-frame))))) - (fn-win (intern (concat (symbol-name window-system) "-select-" what))) - value) - (setq value - (cond ((fboundp fn-win) - (funcall fn-win)) - ((eq bool 'color) - (completing-read (concat prompt " " (symbol-name face) " to: ") - (mapcar (function (lambda (color) - (cons color color))) - x-colors) - nil nil nil nil default)) - (bool - (y-or-n-p (concat "Should face " (symbol-name face) - " be " bool "? "))) - (t - (read-string (concat prompt " " (symbol-name face) " to: ") - nil nil default)))) - (list face (if (equal value "") nil value)))) ;;; Enable Japanese fonts on Windows to be used by default. (set-fontset-font nil (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS"))