|
24
|
1 ;;; custom-xmas.el -- XEmacs specific custom support.
|
|
|
2 ;;
|
|
|
3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
|
|
|
4 ;;
|
|
|
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
|
|
|
6 ;; Keywords: help, faces
|
|
26
|
7 ;; Version: 1.46
|
|
24
|
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
|
|
|
9
|
|
|
10 ;;; Commentary:
|
|
|
11 ;;
|
|
|
12 ;; See `custom.el'.
|
|
|
13
|
|
|
14 ;;; Code:
|
|
|
15
|
|
|
16 (unless (featurep 'custom)
|
|
|
17 (error "Load `custom.el' instead"))
|
|
|
18
|
|
|
19 ;; Emacs function missing in XEmacs 19.14.
|
|
|
20 (unless (fboundp 'x-color-values)
|
|
|
21 (defun x-color-values (color &optional frame)
|
|
|
22 "Return a description of the color named COLOR on frame FRAME.
|
|
|
23 The value is a list of integer RGB values--(RED GREEN BLUE).
|
|
|
24 These values appear to range from 0 to 65280 or 65535, depending
|
|
|
25 on the system; white is (65280 65280 65280) or (65535 65535 65535).
|
|
|
26 If FRAME is omitted or nil, use the selected frame."
|
|
|
27 (color-instance-rgb-components (make-color-instance color))))
|
|
|
28
|
|
|
29 ;; Overwrite Emacs definition.
|
|
26
|
30 (defalias 'custom-facep 'find-face)
|
|
24
|
31
|
|
|
32 ;; Support for special XEmacs font attributes.
|
|
|
33 (autoload 'font-create-object "font" nil)
|
|
|
34
|
|
|
35 (unless (fboundp 'face-font-name)
|
|
|
36 (defun face-font-name (face &rest args)
|
|
|
37 (apply 'face-font face args)))
|
|
|
38
|
|
|
39 (defun custom-set-face-font-size (face size &rest args)
|
|
|
40 "Set the font of FACE to SIZE"
|
|
|
41 (let* ((font (apply 'face-font-name face args))
|
|
|
42 (fontobj (font-create-object font)))
|
|
|
43 (set-font-size fontobj size)
|
|
|
44 (apply 'set-face-font face fontobj args)))
|
|
|
45
|
|
|
46 (defun custom-set-face-font-family (face family &rest args)
|
|
|
47 "Set the font of FACE to FAMILY"
|
|
|
48 (let* ((font (apply 'face-font-name face args))
|
|
|
49 (fontobj (font-create-object font)))
|
|
|
50 (set-font-family fontobj family)
|
|
|
51 (apply 'set-face-font face fontobj args)))
|
|
|
52
|
|
|
53 (nconc custom-face-attributes
|
|
|
54 '((:family (editable-field :format "Family: %v")
|
|
|
55 custom-set-face-font-family)
|
|
|
56 (:size (editable-field :format "Size: %v")
|
|
|
57 custom-set-face-font-size)))
|
|
|
58
|
|
|
59 ;; Overwrite Emacs definition.
|
|
|
60 (defun custom-menu-reset ()
|
|
|
61 "Reset customize menu."
|
|
|
62 (remove-hook 'custom-define-hook 'custom-menu-reset)
|
|
|
63 (when (fboundp 'add-submenu)
|
|
|
64 ;; XEmacs with menus.
|
|
|
65 (add-submenu '("Help") custom-help-menu)))
|
|
|
66
|
|
|
67 (defun get-face-documentation (face)
|
|
|
68 "Get the documentation string for FACE."
|
|
|
69 (face-property face 'doc-string))
|
|
|
70
|
|
|
71 (defun set-face-documentation (face string)
|
|
|
72 "Set the documentation string for FACE to STRING."
|
|
|
73 (set-face-property face 'doc-string string))
|
|
|
74
|
|
|
75 ;; custom-xmas.el ends here
|
