martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(internal-face-interactive): Handle case where BOOL is `color'.

Browse Source
This commit is contained in:
Andrew Innes
1998-06-22 17:21:56 +00:00
parent 1e484d64bd
commit 3ce36200dd
1 changed files with 17 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/term/w32-win.el
View File

@@ -680,15 +680,23 @@ This is in addition to the primary selection.")
(or (funcall fn face (selected-frame))
(funcall fn 'default (selected-frame)))))
(fn-win (intern (concat (symbol-name window-system) "-select-" what)))
(value
(if (fboundp fn-win)
(funcall fn-win)
(if bool
(y-or-n-p (concat "Should face " (symbol-name face)
" be " bool "? "))
(read-string (concat prompt " " (symbol-name face) " to: ")
default)))))
(list face (if (equal value "") nil value))))
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))))
;; Redefine the font selection to use the standard W32 dialog