emacs: lisp/facemenu.el annotate

1 ;;; facemenu.el --- create a face menu for interactively adding fonts to text

14169

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14154

2

64762

41bb365f41c4 Update years in copyright notice; nfc.

Thien-Thi Nguyen <ttn@gnuvola.org>

parents: 64211

68651

3bd95f4f2941 Update years in copyright notice; nfc.

Thien-Thi Nguyen <ttn@gnuvola.org>

parents: 64762

4 ;; 2005, 2006 Free Software Foundation, Inc.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

5

25278

cbe304a26771 Fix maintainer address.

Karl Heuer <kwzh@gnu.org>

parents: 25141

6 ;; Author: Boris Goldowsky <boris@gnu.org>

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

7 ;; Keywords: faces

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

8

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

9 ;; This file is part of GNU Emacs.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

10

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

11 ;; GNU Emacs is free software; you can redistribute it and/or modify

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

12 ;; it under the terms of the GNU General Public License as published by

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

13 ;; the Free Software Foundation; either version 2, or (at your option)

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

14 ;; any later version.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

15

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

16 ;; GNU Emacs is distributed in the hope that it will be useful,

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

19 ;; GNU General Public License for more details.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

20

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

21 ;; You should have received a copy of the GNU General Public License

14169

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14154

22 ;; along with GNU Emacs; see the file COPYING. If not, write to the

64091

6fb026ad601f Update FSF's address.

Lute Kamstra <lute@gnu.org>

parents: 64011

23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,

6fb026ad601f Update FSF's address.

Lute Kamstra <lute@gnu.org>

parents: 64011

24 ;; Boston, MA 02110-1301, USA.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

25

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

26 ;;; Commentary:

14169

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14154

27

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

28 ;; This file defines a menu of faces (bold, italic, etc) which allows you to

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

29 ;; set the face used for a region of the buffer. Some faces also have

e0e6df854822 (facemenu-add-new-face):

Richard M. Stallman <rms@gnu.org>

parents: 43412

30 ;; keybindings, which are shown in the menu.

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

31 ;;

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

32 ;; The menu also contains submenus for indentation and justification-changing

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

33 ;; commands.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

34

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

35 ;;; Usage:

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

36 ;; Selecting a face from the menu or typing the keyboard equivalent will

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

37 ;; change the region to use that face. If you use transient-mark-mode and the

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

38 ;; region is not active, the face will be remembered and used for the next

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

39 ;; insertion. It will be forgotten if you move point or make other

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

40 ;; modifications before inserting or typing anything.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

41 ;;

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

42 ;; Faces can be selected from the keyboard as well.

60466

53053dc21ae7 (global-map): Bind M-o, not M-g.

Richard M. Stallman <rms@gnu.org>

parents: 59484

43 ;; The standard keybindings are M-o (or ESC o) + letter:

53053dc21ae7 (global-map): Bind M-o, not M-g.

Richard M. Stallman <rms@gnu.org>

parents: 59484

44 ;; M-o i = "set italic", M-o b = "set bold", etc.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

45

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

46 ;;; Customization:

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

47 ;; An alternative set of keybindings that may be easier to type can be set up

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

48 ;; using "Alt" or "Hyper" keys. This requires that you either have or create

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

49 ;; an Alt or Hyper key on your keyboard. On my keyboard, there is a key

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

50 ;; labeled "Alt", but to make it act as an Alt key I have to put this command

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

51 ;; into my .xinitrc:

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

52 ;; xmodmap -e "add Mod3 = Alt_L"

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

53 ;; Or, I can make it into a Hyper key with this:

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

54 ;; xmodmap -e "keysym Alt_L = Hyper_L" -e "add Mod2 = Hyper_L"

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

55 ;; Check with local X-perts for how to do it on your system.

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

56 ;; Then you can define your keybindings with code like this in your .emacs:

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

57 ;; (setq facemenu-keybindings

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

58 ;; '((default . [?\H-d])

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

59 ;; (bold . [?\H-b])

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

60 ;; (italic . [?\H-i])

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

61 ;; (bold-italic . [?\H-l])

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

62 ;; (underline . [?\H-u])))

c2640d101ca9 (facemenu-update): Don't make global bindings here.

Richard M. Stallman <rms@gnu.org>

parents: 17073

63 ;; (facemenu-update)

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

64 ;; (setq facemenu-keymap global-map)

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

65 ;; (define-key global-map [?\H-c] 'facemenu-set-foreground) ; set fg color

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

66 ;; (define-key global-map [?\H-C] 'facemenu-set-background) ; set bg color

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

67 ;;

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

68 ;; The order of the faces that appear in the menu and their keybindings can be

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

69 ;; controlled by setting the variables `facemenu-keybindings' and

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

70 ;; `facemenu-new-faces-at-end'. List faces that you don't use in documents

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

71 ;; (eg, `region') in `facemenu-unlisted-faces'.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

72

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

73 ;;; Known Problems:

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

74 ;; Bold and Italic do not combine to create bold-italic if you select them

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

75 ;; both, although most other combinations (eg bold + underline + some color)

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

76 ;; do the intuitive thing.

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

77 ;;

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

78 ;; There is at present no way to display what the faces look like in

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

79 ;; the menu itself.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

80 ;;

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

81 ;; `list-faces-display' shows the faces in a different order than

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

82 ;; this menu, which could be confusing. I do /not/ sort the list

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

83 ;; alphabetically, because I like the default order: it puts the most

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

84 ;; basic, common fonts first.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

85 ;;

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

86 ;; Please send me any other problems, comments or ideas.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

87

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

88 ;;; Code:

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

89

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

90 (eval-when-compile

43295

ce2590f06ba0 2002-02-14 Per Abrahamsen <abraham@dina.kvl.dk>

Per Abrahamsen <abraham@dina.kvl.dk>

parents: 42948

91 (require 'help)

ce2590f06ba0 2002-02-14 Per Abrahamsen <abraham@dina.kvl.dk>

Per Abrahamsen <abraham@dina.kvl.dk>

parents: 42948

92 (require 'button))

ce2590f06ba0 2002-02-14 Per Abrahamsen <abraham@dina.kvl.dk>

Per Abrahamsen <abraham@dina.kvl.dk>

parents: 42948

93

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

94 ;;; Provide some binding for startup:

60466

53053dc21ae7 (global-map): Bind M-o, not M-g.

Richard M. Stallman <rms@gnu.org>

parents: 59484

95 ;;;###autoload (define-key global-map "\M-o" 'facemenu-keymap)

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

96 ;;;###autoload (autoload 'facemenu-keymap "facemenu" "Keymap for face-changing commands." t 'keymap)

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

97

c2640d101ca9 (facemenu-update): Don't make global bindings here.

Richard M. Stallman <rms@gnu.org>

parents: 17073

98 ;; Global bindings:

c2640d101ca9 (facemenu-update): Don't make global bindings here.

Richard M. Stallman <rms@gnu.org>

parents: 17073

99 (define-key global-map [C-down-mouse-2] 'facemenu-menu)

60466

53053dc21ae7 (global-map): Bind M-o, not M-g.

Richard M. Stallman <rms@gnu.org>

parents: 59484

100 (define-key global-map "\M-o" 'facemenu-keymap)

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

101

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

102 (defgroup facemenu nil

64011

ca0386c4cfd5 (facemenu): Finish `defgroup' description with period.

Juanma Barranquero <lekktu@gmail.com>

parents: 63897

103 "Create a face menu for interactively adding fonts to text."

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

104 :group 'faces

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

105 :prefix "facemenu-")

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

106

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

107 (defcustom facemenu-keybindings

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

108 '((default . "d")

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

109 (bold . "b")

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

110 (italic . "i")

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

111 (bold-italic . "l") ; {bold} intersect {italic} = {l}

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

112 (underline . "u"))

41799

c849509c5a16 Remove unnecessary spaces.

Pavel Janík <Pavel@Janik.cz>

parents: 40280

113 "Alist of interesting faces and keybindings.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

114 Each element is itself a list: the car is the name of the face,

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

115 the next element is the key to use as a keyboard equivalent of the menu item;

c2640d101ca9 (facemenu-update): Don't make global bindings here.

Richard M. Stallman <rms@gnu.org>

parents: 17073

116 the binding is made in `facemenu-keymap'.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

117

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

118 The faces specifically mentioned in this list are put at the top of

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

119 the menu, in the order specified. All other faces which are defined,

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

120 except for those in `facemenu-unlisted-faces', are listed after them,

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

121 but get no keyboard equivalents.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

122

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

123 If you change this variable after loading facemenu.el, you will need to call

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

124 `facemenu-update' to make it take effect."

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

125 :type '(repeat (cons face string))

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

126 :group 'facemenu)

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

127

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

128 (defcustom facemenu-new-faces-at-end t

c2640d101ca9 (facemenu-update): Don't make global bindings here.

Richard M. Stallman <rms@gnu.org>

parents: 17073

129 "*Where in the menu to insert newly-created faces.

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

130 This should be nil to put them at the top of the menu, or t to put them

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

131 just before \"Other\" at the end."

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

132 :type 'boolean

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

133 :group 'facemenu)

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

134

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

135 (defcustom facemenu-unlisted-faces

34331

7b91d8c3787f (facemenu-unlisted-faces): Fix value.

Dave Love <fx@gnu.org>

parents: 30092

136 `(modeline region secondary-selection highlight scratch-face

7b91d8c3787f (facemenu-unlisted-faces): Fix value.

Dave Love <fx@gnu.org>

parents: 30092

137 ,(purecopy "^font-lock-") ,(purecopy "^gnus-") ,(purecopy "^message-")

7b91d8c3787f (facemenu-unlisted-faces): Fix value.

Dave Love <fx@gnu.org>

parents: 30092

138 ,(purecopy "^ediff-") ,(purecopy "^term-") ,(purecopy "^vc-")

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

139 ,(purecopy "^widget-") ,(purecopy "^custom-") ,(purecopy "^vm-"))

c2640d101ca9 (facemenu-update): Don't make global bindings here.

Richard M. Stallman <rms@gnu.org>

parents: 17073

140 "*List of faces not to include in the Face menu.

19558

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

141 Each element may be either a symbol, which is the name of a face, or a string,

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

142 which is a regular expression to be matched against face names. Matching

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

143 faces will not be added to the menu.

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

144

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

145 You can set this list before loading facemenu.el, or add a face to it before

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

146 creating that face if you do not want it to be listed. If you change the

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

147 variable so as to eliminate faces that have already been added to the menu,

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

148 call `facemenu-update' to recalculate the menu contents.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

149

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

150 If this variable is t, no faces will be added to the menu. This is useful for

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

151 temporarily turning off the feature that automatically adds faces to the menu

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

152 when they are created."

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

153 :type '(choice (const :tag "Don't add faces" t)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

154 (const :tag "None (do add any face)" nil)

19558

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

155 (repeat (choice symbol regexp)))

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

156 :group 'facemenu)

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

157

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

158 ;;;###autoload

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

159 (defvar facemenu-face-menu

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

160 (let ((map (make-sparse-keymap "Face")))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

161 (define-key map "o" (cons "Other..." 'facemenu-set-face))

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

162 map)

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

163 "Menu keymap for faces.")

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

164 ;;;###autoload

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

165 (defalias 'facemenu-face-menu facemenu-face-menu)

63769

cae70b5066ae (facemenu-enable-faces-p): New function.

Richard M. Stallman <rms@gnu.org>

parents: 60522

166 (put 'facemenu-face-menu 'menu-enable '(facemenu-enable-faces-p))

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

167

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

168 ;;;###autoload

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

169 (defvar facemenu-foreground-menu

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

170 (let ((map (make-sparse-keymap "Foreground Color")))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

171 (define-key map "o" (cons "Other..." 'facemenu-set-foreground))

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

172 map)

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

173 "Menu keymap for foreground colors.")

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

174 ;;;###autoload

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

175 (defalias 'facemenu-foreground-menu facemenu-foreground-menu)

63769

cae70b5066ae (facemenu-enable-faces-p): New function.

Richard M. Stallman <rms@gnu.org>

parents: 60522

176 (put 'facemenu-foreground-menu 'menu-enable '(facemenu-enable-faces-p))

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

177

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

178 ;;;###autoload

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

179 (defvar facemenu-background-menu

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

180 (let ((map (make-sparse-keymap "Background Color")))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

181 (define-key map "o" (cons "Other..." 'facemenu-set-background))

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

182 map)

6d383cf4bb99 Docstrings fixes.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 29050

183 "Menu keymap for background colors.")

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

184 ;;;###autoload

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

185 (defalias 'facemenu-background-menu facemenu-background-menu)

63769

cae70b5066ae (facemenu-enable-faces-p): New function.

Richard M. Stallman <rms@gnu.org>

parents: 60522

186 (put 'facemenu-background-menu 'menu-enable '(facemenu-enable-faces-p))

cae70b5066ae (facemenu-enable-faces-p): New function.

Richard M. Stallman <rms@gnu.org>

parents: 60522

187

cae70b5066ae (facemenu-enable-faces-p): New function.

Richard M. Stallman <rms@gnu.org>

parents: 60522

188 ;;; Condition for enabling menu items that set faces.

cae70b5066ae (facemenu-enable-faces-p): New function.

Richard M. Stallman <rms@gnu.org>

parents: 60522

189 (defun facemenu-enable-faces-p ()

cae70b5066ae (facemenu-enable-faces-p): New function.

Richard M. Stallman <rms@gnu.org>

parents: 60522

190 (not (and font-lock-mode font-lock-defaults)))

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

191

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

192 ;;;###autoload

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

193 (defvar facemenu-special-menu

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

194 (let ((map (make-sparse-keymap "Special")))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

195 (define-key map [?s] (cons (purecopy "Remove Special")

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

196 'facemenu-remove-special))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

197 (define-key map [?t] (cons (purecopy "Intangible")

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

198 'facemenu-set-intangible))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

199 (define-key map [?v] (cons (purecopy "Invisible")

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

200 'facemenu-set-invisible))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

201 (define-key map [?r] (cons (purecopy "Read-Only")

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

202 'facemenu-set-read-only))

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

203 map)

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

204 "Menu keymap for non-face text-properties.")

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

205 ;;;###autoload

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

206 (defalias 'facemenu-special-menu facemenu-special-menu)

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

207

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

208 ;;;###autoload

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

209 (defvar facemenu-justification-menu

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

210 (let ((map (make-sparse-keymap "Justification")))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

211 (define-key map [?c] (cons (purecopy "Center") 'set-justification-center))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

212 (define-key map [?b] (cons (purecopy "Full") 'set-justification-full))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

213 (define-key map [?r] (cons (purecopy "Right") 'set-justification-right))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

214 (define-key map [?l] (cons (purecopy "Left") 'set-justification-left))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

215 (define-key map [?u] (cons (purecopy "Unfilled") 'set-justification-none))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

216 map)

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

217 "Submenu for text justification commands.")

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

218 ;;;###autoload

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

219 (defalias 'facemenu-justification-menu facemenu-justification-menu)

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

220

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

221 ;;;###autoload

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

222 (defvar facemenu-indentation-menu

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

223 (let ((map (make-sparse-keymap "Indentation")))

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

224 (define-key map [decrease-right-margin]

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

225 (cons (purecopy "Indent Right Less") 'decrease-right-margin))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

226 (define-key map [increase-right-margin]

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

227 (cons (purecopy "Indent Right More") 'increase-right-margin))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

228 (define-key map [decrease-left-margin]

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

229 (cons (purecopy "Indent Less") 'decrease-left-margin))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

230 (define-key map [increase-left-margin]

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

231 (cons (purecopy "Indent More") 'increase-left-margin))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

232 map)

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

233 "Submenu for indentation commands.")

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

234 ;;;###autoload

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

235 (defalias 'facemenu-indentation-menu facemenu-indentation-menu)

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

236

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

237 ;; This is split up to avoid an overlong line in loaddefs.el.

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

238 ;;;###autoload

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

239 (defvar facemenu-menu nil

9874

2bf88bd23cbb (facemenu-update): Use C-down-mouse-2 for the menu.

Richard M. Stallman <rms@gnu.org>

parents: 9623

240 "Facemenu top-level menu keymap.")

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

241 ;;;###autoload

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

242 (setq facemenu-menu (make-sparse-keymap "Text Properties"))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

243 ;;;###autoload

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

244 (let ((map facemenu-menu))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

245 (define-key map [dc] (cons (purecopy "Display Colors") 'list-colors-display))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

246 (define-key map [df] (cons (purecopy "Display Faces") 'list-faces-display))

45869

fb2ae7bd271d (facemenu-map): Rename to Describe Text

Richard M. Stallman <rms@gnu.org>

parents: 45207

247 (define-key map [dp] (cons (purecopy "Describe Properties")

fb2ae7bd271d (facemenu-map): Rename to Describe Text

Richard M. Stallman <rms@gnu.org>

parents: 45207

248 'describe-text-properties))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

249 (define-key map [ra] (cons (purecopy "Remove Text Properties")

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

250 'facemenu-remove-all))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

251 (define-key map [rm] (cons (purecopy "Remove Face Properties")

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

252 'facemenu-remove-face-props))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

253 (define-key map [s1] (list (purecopy "--"))))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

254 ;;;###autoload

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

255 (let ((map facemenu-menu))

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

256 (define-key map [in] (cons (purecopy "Indentation")

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

257 'facemenu-indentation-menu))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

258 (define-key map [ju] (cons (purecopy "Justification")

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

259 'facemenu-justification-menu))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

260 (define-key map [s2] (list (purecopy "--")))

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

261 (define-key map [sp] (cons (purecopy "Special Properties")

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

262 'facemenu-special-menu))

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

263 (define-key map [bg] (cons (purecopy "Background Color")

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

264 'facemenu-background-menu))

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

265 (define-key map [fg] (cons (purecopy "Foreground Color")

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

266 'facemenu-foreground-menu))

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

267 (define-key map [fc] (cons (purecopy "Face")

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

268 'facemenu-face-menu)))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

269 ;;;###autoload

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

270 (defalias 'facemenu-menu facemenu-menu)

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

271

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

272 (defvar facemenu-keymap

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

273 (let ((map (make-sparse-keymap "Set face")))

6a6704c5e3b4 Purecopy various strings.

Dave Love <fx@gnu.org>

parents: 26736

274 (define-key map "o" (cons (purecopy "Other...") 'facemenu-set-face))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

275 map)

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

276 "Keymap for face-changing commands.

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

277 `Facemenu-update' fills in the keymap according to the bindings

9874

2bf88bd23cbb (facemenu-update): Use C-down-mouse-2 for the menu.

Richard M. Stallman <rms@gnu.org>

parents: 9623

278 requested in `facemenu-keybindings'.")

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

279 (defalias 'facemenu-keymap facemenu-keymap)

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

280

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

281

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

282 (defcustom facemenu-add-face-function nil

6d383cf4bb99 Docstrings fixes.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 29050

283 "Function called at beginning of text to change or nil.

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

284 This function is passed the FACE to set and END of text to change, and must

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

285 return a string which is inserted. It may set `facemenu-end-add-face'."

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

286 :type '(choice (const :tag "None" nil)

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

287 function)

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

288 :group 'facemenu)

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

289

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

290 (defcustom facemenu-end-add-face nil

6d383cf4bb99 Docstrings fixes.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 29050

291 "String to insert or function called at end of text to change or nil.

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

292 This function is passed the FACE to set, and must return a string which is

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

293 inserted."

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

294 :type '(choice (const :tag "None" nil)

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

295 string

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

296 function)

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

297 :group 'facemenu)

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

298

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

299 (defcustom facemenu-remove-face-function nil

c2640d101ca9 (facemenu-update): Don't make global bindings here.

Richard M. Stallman <rms@gnu.org>

parents: 17073

300 "When non-nil, this is a function called to remove faces.

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

301 This function is passed the START and END of text to change.

6d383cf4bb99 Docstrings fixes.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 29050

302 May also be t meaning to use `facemenu-add-face-function'."

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

303 :type '(choice (const :tag "None" nil)

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

304 (const :tag "Use add-face" t)

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

305 function)

1493fc19f324 Customized.

Richard M. Stallman <rms@gnu.org>

parents: 18476

306 :group 'facemenu)

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

307

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

308 ;;; Internal Variables

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

309

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

310 (defvar facemenu-color-alist nil

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

311 ;; Don't initialize here; that doesn't work if preloaded.

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

312 "Alist of colors, used for completion.

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

313 If null, `facemenu-read-color' will set it.")

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

314

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

315 (defun facemenu-update ()

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

316 "Add or update the \"Face\" menu in the menu bar.

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

317 You can call this to update things if you change any of the menu configuration

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

318 variables."

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

319 (interactive)

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

320

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

321 ;; Add each defined face to the menu.

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

322 (facemenu-iterate 'facemenu-add-new-face

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

323 (facemenu-complete-face-list facemenu-keybindings)))

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

324

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

325 ;;;###autoload

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

326 (defun facemenu-set-face (face &optional start end)

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

327 "Add FACE to the region or next character typed.

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

328 This adds FACE to the top of the face list; any faces lower on the list that

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

329 will not show through at all will be removed.

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

330

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

331 Interactively, reads the face name with the minibuffer.

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

332

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

333 If the region is active (normally true except in Transient Mark mode)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

334 and there is no prefix argument, this command sets the region to the

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

335 requested face.

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

336

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

337 Otherwise, this command specifies the face for the next character

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

338 inserted. Moving point or switching buffers before

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

339 typing a character to insert cancels the specification."

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

340 (interactive (list (progn

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

341 (barf-if-buffer-read-only)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

342 (read-face-name "Use face"))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

343 (if (and mark-active (not current-prefix-arg))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

344 (region-beginning))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

345 (if (and mark-active (not current-prefix-arg))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

346 (region-end))))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

347 (facemenu-add-new-face face)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

348 (facemenu-add-face face start end))

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

349

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

350 ;;;###autoload

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

351 (defun facemenu-set-foreground (color &optional start end)

6d383cf4bb99 Docstrings fixes.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 29050

352 "Set the foreground COLOR of the region or next character typed.

e0e6df854822 (facemenu-add-new-face):

Richard M. Stallman <rms@gnu.org>

parents: 43412

353 This command reads the color in the minibuffer.

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

354

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

355 If the region is active (normally true except in Transient Mark mode)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

356 and there is no prefix argument, this command sets the region to the

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

357 requested face.

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

358

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

359 Otherwise, this command specifies the face for the next character

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

360 inserted. Moving point or switching buffers before

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

361 typing a character to insert cancels the specification."

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

362 (interactive (list (progn

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

363 (barf-if-buffer-read-only)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

364 (facemenu-read-color "Foreground color: "))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

365 (if (and mark-active (not current-prefix-arg))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

366 (region-beginning))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

367 (if (and mark-active (not current-prefix-arg))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

368 (region-end))))

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

369 (facemenu-set-face-from-menu

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

370 (facemenu-add-new-color color 'facemenu-foreground-menu)

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

371 start end))

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

372

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

373 ;;;###autoload

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

374 (defun facemenu-set-background (color &optional start end)

6d383cf4bb99 Docstrings fixes.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 29050

375 "Set the background COLOR of the region or next character typed.

e0e6df854822 (facemenu-add-new-face):

Richard M. Stallman <rms@gnu.org>

parents: 43412

376 This command reads the color in the minibuffer.

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

377

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

378 If the region is active (normally true except in Transient Mark mode)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

379 and there is no prefix argument, this command sets the region to the

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

380 requested face.

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

381

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

382 Otherwise, this command specifies the face for the next character

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

383 inserted. Moving point or switching buffers before

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

384 typing a character to insert cancels the specification."

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

385 (interactive (list (progn

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

386 (barf-if-buffer-read-only)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

387 (facemenu-read-color "Background color: "))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

388 (if (and mark-active (not current-prefix-arg))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

389 (region-beginning))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

390 (if (and mark-active (not current-prefix-arg))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

391 (region-end))))

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

392 (facemenu-set-face-from-menu

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

393 (facemenu-add-new-color color 'facemenu-background-menu)

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

394 start end))

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

395

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

396 ;;;###autoload

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

397 (defun facemenu-set-face-from-menu (face start end)

6d383cf4bb99 Docstrings fixes.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 29050

398 "Set the FACE of the region or next character typed.

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

399 This function is designed to be called from a menu; FACE is determined

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

400 using the event type of the menu entry. If FACE is a symbol whose

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

401 name starts with \"fg:\" or \"bg:\", then this functions sets the

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

402 foreground or background to the color specified by the rest of the

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

403 symbol's name. Any other symbol is considered the name of a face.

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

404

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

405 If the region is active (normally true except in Transient Mark mode)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

406 and there is no prefix argument, this command sets the region to the

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

407 requested face.

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

408

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

409 Otherwise, this command specifies the face for the next character

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

410 inserted. Moving point or switching buffers before typing a character

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

411 to insert cancels the specification."

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

412 (interactive (list last-command-event

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

413 (if (and mark-active (not current-prefix-arg))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

414 (region-beginning))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

415 (if (and mark-active (not current-prefix-arg))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

416 (region-end))))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

417 (barf-if-buffer-read-only)

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

418 (facemenu-add-face

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

419 (let ((fn (symbol-name face)))

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

420 (if (string-match "\\`\\([fb]\\)g:\\(.+\\)" fn)

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

421 (list (list (if (string= (match-string 1 fn) "f")

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

422 :foreground

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

423 :background)

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

424 (match-string 2 fn)))

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

425 face))

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

426 start end))

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

427

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

428 ;;;###autoload

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

429 (defun facemenu-set-invisible (start end)

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

430 "Make the region invisible.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

431 This sets the `invisible' text property; it can be undone with

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

432 `facemenu-remove-special'."

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

433 (interactive "r")

17073

5e66b1087c94 Change put-text-property with constant args to add-text-properties for efficiency. Suggested by Stavros Macrakis <s.macrakis@opengroup.org>

Boris Goldowsky <boris@gnu.org>

parents: 16590

434 (add-text-properties start end '(invisible t)))

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

435

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

436 ;;;###autoload

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

437 (defun facemenu-set-intangible (start end)

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

438 "Make the region intangible: disallow moving into it.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

439 This sets the `intangible' text property; it can be undone with

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

440 `facemenu-remove-special'."

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

441 (interactive "r")

17073

5e66b1087c94 Change put-text-property with constant args to add-text-properties for efficiency. Suggested by Stavros Macrakis <s.macrakis@opengroup.org>

Boris Goldowsky <boris@gnu.org>

parents: 16590

442 (add-text-properties start end '(intangible t)))

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

443

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

444 ;;;###autoload

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

445 (defun facemenu-set-read-only (start end)

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

446 "Make the region unmodifiable.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

447 This sets the `read-only' text property; it can be undone with

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

448 `facemenu-remove-special'."

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

449 (interactive "r")

17073

5e66b1087c94 Change put-text-property with constant args to add-text-properties for efficiency. Suggested by Stavros Macrakis <s.macrakis@opengroup.org>

Boris Goldowsky <boris@gnu.org>

parents: 16590

450 (add-text-properties start end '(read-only t)))

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

451

c968d4c026b7 Doc fix + autoload cookies.

Boris Goldowsky <boris@gnu.org>

parents: 11081

452 ;;;###autoload

20443

76ea51acad22 (facemenu-remove-face-props): Renamed from

Karl Heuer <kwzh@gnu.org>

parents: 19686

453 (defun facemenu-remove-face-props (start end)

76ea51acad22 (facemenu-remove-face-props): Renamed from

Karl Heuer <kwzh@gnu.org>

parents: 19686

454 "Remove `face' and `mouse-face' text properties."

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

455 (interactive "*r") ; error if buffer is read-only despite the next line.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

456 (let ((inhibit-read-only t))

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

457 (remove-text-properties

20443

76ea51acad22 (facemenu-remove-face-props): Renamed from

Karl Heuer <kwzh@gnu.org>

parents: 19686

458 start end '(face nil mouse-face nil))))

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

459

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

460 ;;;###autoload

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

461 (defun facemenu-remove-all (start end)

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

462 "Remove all text properties from the region."

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

463 (interactive "*r") ; error if buffer is read-only despite the next line.

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

464 (let ((inhibit-read-only t))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

465 (set-text-properties start end nil)))

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

466

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

467 ;;;###autoload

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

468 (defun facemenu-remove-special (start end)

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

469 "Remove all the \"special\" text properties from the region.

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

470 These special properties include `invisible', `intangible' and `read-only'."

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

471 (interactive "*r") ; error if buffer is read-only despite the next line.

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

472 (let ((inhibit-read-only t))

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

473 (remove-text-properties

e4932082046a (facemenu-special-menu): Use characters, not symbols.

Karl Heuer <kwzh@gnu.org>

parents: 11830

474 start end '(invisible nil intangible nil read-only nil))))

44678

dec3101535fc (list-text-properties-at): Command deleted.

Richard M. Stallman <rms@gnu.org>

parents: 44660

475

11081

b651fb9a8216 (list-text-properties-at): New fn.

Boris Goldowsky <boris@gnu.org>

parents: 10814

476 ;;;###autoload

11372

874b91f4adc4 (facemenu-read-color): Don't ignore PROMPT arg. Make arg optional.

Boris Goldowsky <boris@gnu.org>

parents: 11234

477 (defun facemenu-read-color (&optional prompt)

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

478 "Read a color using the minibuffer."

64211

11c1d62f46ae (facemenu-read-color): Do case-insensitive matching.

Richard M. Stallman <rms@gnu.org>

parents: 64091

479 (let* ((completion-ignore-case t)

11c1d62f46ae (facemenu-read-color): Do case-insensitive matching.

Richard M. Stallman <rms@gnu.org>

parents: 64091

480 (col (completing-read (or prompt "Color: ")

11c1d62f46ae (facemenu-read-color): Do case-insensitive matching.

Richard M. Stallman <rms@gnu.org>

parents: 64091

481 (or facemenu-color-alist

11c1d62f46ae (facemenu-read-color): Do case-insensitive matching.

Richard M. Stallman <rms@gnu.org>

parents: 64091

482 (defined-colors))

11c1d62f46ae (facemenu-read-color): Do case-insensitive matching.

Richard M. Stallman <rms@gnu.org>

parents: 64091

483 nil t)))

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

484 (if (equal "" col)

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

485 nil

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

486 col)))

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

487

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

488 ;;;###autoload

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

489 (defun list-colors-display (&optional list buffer-name)

11465

9fa2f8b87890 (list-colors-display): Minor clarification.

Richard M. Stallman <rms@gnu.org>

parents: 11372

490 "Display names of defined colors, and show what they look like.

9fa2f8b87890 (list-colors-display): Minor clarification.

Richard M. Stallman <rms@gnu.org>

parents: 11372

491 If the optional argument LIST is non-nil, it should be a list of

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

492 colors to display. Otherwise, this command computes a list of

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

493 colors that the current display can handle. If the optional

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

494 argument BUFFER-NAME is nil, it defaults to *Colors*."

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

495 (interactive)

42948

74d5b26ad460 (list-colors-display): If the argument is nil, don't

Eli Zaretskii <eliz@gnu.org>

parents: 42488

496 (when (and (null list) (> (display-color-cells) 0))

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

497 (setq list (list-colors-duplicates (defined-colors)))

45207

a8c6bd4220a5 (list-colors-display): Don't use `display-color-cells' unless the

Miles Bader <miles@gnu.org>

parents: 45021

498 (when (memq (display-visual-class) '(gray-scale pseudo-color direct-color))

a8c6bd4220a5 (list-colors-display): Don't use `display-color-cells' unless the

Miles Bader <miles@gnu.org>

parents: 45021

499 ;; Don't show more than what the display can handle.

a8c6bd4220a5 (list-colors-display): Don't use `display-color-cells' unless the

Miles Bader <miles@gnu.org>

parents: 45021

500 (let ((lc (nthcdr (1- (display-color-cells)) list)))

a8c6bd4220a5 (list-colors-display): Don't use `display-color-cells' unless the

Miles Bader <miles@gnu.org>

parents: 45021

501 (if lc

a8c6bd4220a5 (list-colors-display): Don't use `display-color-cells' unless the

Miles Bader <miles@gnu.org>

parents: 45021

502 (setcdr lc nil)))))

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

503 (with-output-to-temp-buffer (or buffer-name "*Colors*")

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

504 (save-excursion

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

505 (set-buffer standard-output)

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

506 (setq truncate-lines t)

59484

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

507 (if temp-buffer-show-function

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

508 (list-colors-print list)

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

509 ;; Call list-colors-print from temp-buffer-show-hook

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

510 ;; to get the right value of window-width in list-colors-print

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

511 ;; after the buffer is displayed.

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

512 (add-hook 'temp-buffer-show-hook

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

513 (lambda () (list-colors-print list)) nil t)))))

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

514

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

515 (defun list-colors-print (list)

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

516 (dolist (color list)

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

517 (if (consp color)

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

518 (if (cdr color)

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

519 (setq color (sort color (lambda (a b)

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

520 (string< (downcase a)

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

521 (downcase b))))))

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

522 (setq color (list color)))

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

523 (put-text-property

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

524 (prog1 (point)

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

525 (insert (car color))

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

526 (indent-to 22))

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

527 (point)

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

528 'face (cons 'background-color (car color)))

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

529 (put-text-property

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

530 (prog1 (point)

60522

66456f4ae924 (list-colors-print): Print #RRGGBB in default face.

Juri Linkov <juri@jurta.org>

parents: 60466

531 (insert " " (if (cdr color)

66456f4ae924 (list-colors-print): Print #RRGGBB in default face.

Juri Linkov <juri@jurta.org>

parents: 60466

532 (mapconcat 'identity (cdr color) ", ")

66456f4ae924 (list-colors-print): Print #RRGGBB in default face.

Juri Linkov <juri@jurta.org>

parents: 60466

533 (car color))))

66456f4ae924 (list-colors-print): Print #RRGGBB in default face.

Juri Linkov <juri@jurta.org>

parents: 60466

534 (point)

66456f4ae924 (list-colors-print): Print #RRGGBB in default face.

Juri Linkov <juri@jurta.org>

parents: 60466

535 'face (cons 'foreground-color (car color)))

66456f4ae924 (list-colors-print): Print #RRGGBB in default face.

Juri Linkov <juri@jurta.org>

parents: 60466

536 (indent-to (max (- (window-width) 8) 44))

66456f4ae924 (list-colors-print): Print #RRGGBB in default face.

Juri Linkov <juri@jurta.org>

parents: 60466

537 (insert (apply 'format "#%02x%02x%02x"

66456f4ae924 (list-colors-print): Print #RRGGBB in default face.

Juri Linkov <juri@jurta.org>

parents: 60466

538 (mapcar (lambda (c) (lsh c -8))

66456f4ae924 (list-colors-print): Print #RRGGBB in default face.

Juri Linkov <juri@jurta.org>

parents: 60466

539 (color-values (car color)))))

59484

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

540

60522

66456f4ae924 (list-colors-print): Print #RRGGBB in default face.

Juri Linkov <juri@jurta.org>

parents: 60466

541 (insert "\n"))

59484

c6ded43591fd * facemenu.el (list-colors-print): New function created from code

Juri Linkov <juri@jurta.org>

parents: 59482

542 (goto-char (point-min)))

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

543

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

544 (defun list-colors-duplicates (&optional list)

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

545 "Return a list of colors with grouped duplicate colors.

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

546 If a color has no duplicates, then the element of the returned list

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

547 has the form '(COLOR-NAME). The element of the returned list with

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

548 duplicate colors has the form '(COLOR-NAME DUPLICATE-COLOR-NAME ...).

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

549 This function uses the predicate `facemenu-color-equal' to compare

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

550 color names. If the optional argument LIST is non-nil, it should

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

551 be a list of colors to display. Otherwise, this function uses

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

552 a list of colors that the current display can handle."

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

553 (let* ((list (mapcar 'list (or list (defined-colors))))

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

554 (l list))

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

555 (while (cdr l)

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

556 (if (and (facemenu-color-equal (car (car l)) (car (car (cdr l))))

60522

66456f4ae924 (list-colors-print): Print #RRGGBB in default face.

Juri Linkov <juri@jurta.org>

parents: 60466

557 (not (if (boundp 'w32-default-color-map)

66456f4ae924 (list-colors-print): Print #RRGGBB in default face.

Juri Linkov <juri@jurta.org>

parents: 60466

558 (not (assoc (car (car l)) w32-default-color-map)))))

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

559 (progn

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

560 (setcdr (car l) (cons (car (car (cdr l))) (cdr (car l))))

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

561 (setcdr l (cdr (cdr l))))

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

562 (setq l (cdr l))))

6b794a66a256 (list-colors-display): Add new arg buffer-name.

Juri Linkov <juri@jurta.org>

parents: 56936

563 list))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

564

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

565 (defun facemenu-color-equal (a b)

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

566 "Return t if colors A and B are the same color.

11465

9fa2f8b87890 (list-colors-display): Minor clarification.

Richard M. Stallman <rms@gnu.org>

parents: 11372

567 A and B should be strings naming colors.

26736

a0674327c167 Changes for automatic remapping of X colors on terminal frames:

Eli Zaretskii <eliz@gnu.org>

parents: 25278

568 This function queries the display system to find out what the color

a0674327c167 Changes for automatic remapping of X colors on terminal frames:

Eli Zaretskii <eliz@gnu.org>

parents: 25278

569 names mean. It returns nil if the colors differ or if it can't

11465

9fa2f8b87890 (list-colors-display): Minor clarification.

Richard M. Stallman <rms@gnu.org>

parents: 11372

570 determine the correct answer."

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

571 (cond ((equal a b) t)

26736

a0674327c167 Changes for automatic remapping of X colors on terminal frames:

Eli Zaretskii <eliz@gnu.org>

parents: 25278

572 ((equal (color-values a) (color-values b)))))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

573

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

574 (defun facemenu-add-face (face &optional start end)

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

575 "Add FACE to text between START and END.

6d383cf4bb99 Docstrings fixes.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 29050

576 If START is nil or START to END is empty, add FACE to next typed character

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

577 instead. For each section of that region that has a different face property,

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

578 FACE will be consed onto it, and other faces that are completely hidden by

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

579 that will be removed from the list.

e0e6df854822 (facemenu-add-new-face):

Richard M. Stallman <rms@gnu.org>

parents: 43412

580 If `facemenu-add-face-function' and maybe `facemenu-end-add-face' are non-nil,

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

581 they are used to set the face information.

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

582

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

583 As a special case, if FACE is `default', then the region is left with NO face

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

584 text property. Otherwise, selecting the default face would not have any

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

585 effect. See `facemenu-remove-face-function'."

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

586 (interactive "*xFace: \nr")

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

587 (if (and (eq face 'default)

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

588 (not (eq facemenu-remove-face-function t)))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

589 (if facemenu-remove-face-function

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

590 (funcall facemenu-remove-face-function start end)

14154

e16dc69d909a (facemenu-add-face): Adding default to no region

Richard M. Stallman <rms@gnu.org>

parents: 13923

591 (if (and start (< start end))

e16dc69d909a (facemenu-add-face): Adding default to no region

Richard M. Stallman <rms@gnu.org>

parents: 13923

592 (remove-text-properties start end '(face default))

e16dc69d909a (facemenu-add-face): Adding default to no region

Richard M. Stallman <rms@gnu.org>

parents: 13923

593 (setq self-insert-face 'default

e16dc69d909a (facemenu-add-face): Adding default to no region

Richard M. Stallman <rms@gnu.org>

parents: 13923

594 self-insert-face-command this-command)))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

595 (if facemenu-add-face-function

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

596 (save-excursion

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

597 (if end (goto-char end))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

598 (save-excursion

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

599 (if start (goto-char start))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

600 (insert-before-markers

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

601 (funcall facemenu-add-face-function face end)))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

602 (if facemenu-end-add-face

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

603 (insert (if (stringp facemenu-end-add-face)

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

604 facemenu-end-add-face

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

605 (funcall facemenu-end-add-face face)))))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

606 (if (and start (< start end))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

607 (let ((part-start start) part-end)

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

608 (while (not (= part-start end))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

609 (setq part-end (next-single-property-change part-start 'face

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

610 nil end))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

611 (let ((prev (get-text-property part-start 'face)))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

612 (put-text-property part-start part-end 'face

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

613 (if (null prev)

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

614 face

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

615 (facemenu-active-faces

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

616 (cons face

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

617 (if (listp prev)

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

618 prev

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

619 (list prev)))))))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

620 (setq part-start part-end)))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

621 (setq self-insert-face (if (eq last-command self-insert-face-command)

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

622 (cons face (if (listp self-insert-face)

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

623 self-insert-face

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

624 (list self-insert-face)))

35e379a3952e (facemenu-read-color, list-colors-display)

Richard M. Stallman <rms@gnu.org>

parents: 13495

625 face)

63814

db398a23f0d0 (facemenu-add-face): Warn when font-lock is active.

Richard M. Stallman <rms@gnu.org>

parents: 63792

626 self-insert-face-command this-command))))

db398a23f0d0 (facemenu-add-face): Warn when font-lock is active.

Richard M. Stallman <rms@gnu.org>

parents: 63792

627 (unless (facemenu-enable-faces-p)

db398a23f0d0 (facemenu-add-face): Warn when font-lock is active.

Richard M. Stallman <rms@gnu.org>

parents: 63792

628 (message "Font-lock mode will override any faces you set in this buffer")))

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

629

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

630 (defun facemenu-active-faces (face-list &optional frame)

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

631 "Return from FACE-LIST those faces that would be used for display.

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

632 This means each face attribute is not specified in a face earlier in FACE-LIST

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

633 and such a face is therefore active when used to display text.

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

634 If the optional argument FRAME is given, use the faces in that frame; otherwise

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

635 use the selected frame. If t, then the global, non-frame faces are used."

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

636 (let* ((mask-atts (copy-sequence

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

637 (if (consp (car face-list))

42488

cbf9d3debb0a (facemenu-active-faces):

Richard M. Stallman <rms@gnu.org>

parents: 41799

638 (face-attributes-as-vector (car face-list))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

639 (or (internal-lisp-face-p (car face-list) frame)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

640 (check-face (car face-list))))))

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

641 (active-list (list (car face-list)))

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

642 (face-list (cdr face-list))

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

643 (mask-len (length mask-atts)))

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

644 (while face-list

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

645 (if (let ((face-atts

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

646 (if (consp (car face-list))

42488

cbf9d3debb0a (facemenu-active-faces):

Richard M. Stallman <rms@gnu.org>

parents: 41799

647 (face-attributes-as-vector (car face-list))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

648 (or (internal-lisp-face-p (car face-list) frame)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

649 (check-face (car face-list)))))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

650 (i mask-len)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

651 (useful nil))

56936

6257efe5587a (facemenu-active-faces): Change condition of inner `while' loop to

Luc Teirlinck <teirllm@auburn.edu>

parents: 55705

652 (while (>= (setq i (1- i)) 0)

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

653 (and (not (memq (aref face-atts i) '(nil unspecified)))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

654 (memq (aref mask-atts i) '(nil unspecified))

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

655 (aset mask-atts i (setq useful t))))

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

656 useful)

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

657 (setq active-list (cons (car face-list) active-list)))

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

658 (setq face-list (cdr face-list)))

fcfb5f397b49 (facemenu-active-faces): Replaces function

Karl Heuer <kwzh@gnu.org>

parents: 13433

659 (nreverse active-list)))

9a4ed505445e (facemenu-read-color, facemenu-colors): New fn, var.

Richard M. Stallman <rms@gnu.org>

parents: 8953

660

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

661 (defun facemenu-add-new-face (face)

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

662 "Add FACE (a face) to the Face menu.

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

663

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

664 This is called whenever you create a new face."

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

665 (let* (name

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

666 symbol

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

667 menu docstring

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

668 (key (cdr (assoc face facemenu-keybindings)))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

669 function menu-val)

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

670 (if (symbolp face)

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

671 (setq name (symbol-name face)

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

672 symbol face)

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

673 (setq name face

40280

e14f2ec78074 (facemenu-add-new-face): Fix variable names.

Miles Bader <miles@gnu.org>

parents: 40275

674 symbol (intern name)))

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

675 (setq menu 'facemenu-face-menu)

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

676 (setq docstring

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

677 (format "Select face `%s' for subsequent insertion."

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

678 name))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

679 (cond ((eq t facemenu-unlisted-faces))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

680 ((memq symbol facemenu-unlisted-faces))

19558

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

681 ;; test against regexps in facemenu-unlisted-faces

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

682 ((let ((unlisted facemenu-unlisted-faces)

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

683 (matched nil))

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

684 (while (and unlisted (not matched))

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

685 (if (and (stringp (car unlisted))

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

686 (string-match (car unlisted) name))

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

687 (setq matched t)

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

688 (setq unlisted (cdr unlisted))))

56079fac4d24 (facemenu-unlisted-faces): Expand variable

Richard M. Stallman <rms@gnu.org>

parents: 19009

689 matched))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

690 (key ; has a keyboard equivalent. These go at the front.

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

691 (setq function (intern (concat "facemenu-set-" name)))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

692 (fset function

17555

6e2928cff18e (facemenu-add-new-face): Rewrite to give each

Richard M. Stallman <rms@gnu.org>

parents: 17505

693 `(lambda ()

6e2928cff18e (facemenu-add-new-face): Rewrite to give each

Richard M. Stallman <rms@gnu.org>

parents: 17505

694 ,docstring

6e2928cff18e (facemenu-add-new-face): Rewrite to give each

Richard M. Stallman <rms@gnu.org>

parents: 17505

695 (interactive)

e0e6df854822 (facemenu-add-new-face):

Richard M. Stallman <rms@gnu.org>

parents: 43412

696 (facemenu-set-face

e0e6df854822 (facemenu-add-new-face):

Richard M. Stallman <rms@gnu.org>

parents: 43412

697 (quote ,symbol)

e0e6df854822 (facemenu-add-new-face):

Richard M. Stallman <rms@gnu.org>

parents: 43412

698 (if (and mark-active (not current-prefix-arg))

e0e6df854822 (facemenu-add-new-face):

Richard M. Stallman <rms@gnu.org>

parents: 43412

699 (region-beginning))

e0e6df854822 (facemenu-add-new-face):

Richard M. Stallman <rms@gnu.org>

parents: 43412

700 (if (and mark-active (not current-prefix-arg))

e0e6df854822 (facemenu-add-new-face):

Richard M. Stallman <rms@gnu.org>

parents: 43412

701 (region-end)))))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

702 (define-key 'facemenu-keymap key (cons name function))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

703 (define-key menu key (cons name function)))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

704 ((facemenu-iterate ; check if equivalent face is already in the menu

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

705 (lambda (m) (and (listp m)

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

706 (symbolp (car m))

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

707 (face-equal (car m) symbol)))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

708 (cdr (symbol-function menu))))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

709 (t ; No keyboard equivalent. Figure out where to put it:

113233ecd44a (facemenu-unlisted-faces): Improve doc strings

Richard M. Stallman <rms@gnu.org>

parents: 35633

710 (setq key (vector symbol)

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

711 function 'facemenu-set-face-from-menu

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

712 menu-val (symbol-function menu))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

713 (if (and facemenu-new-faces-at-end

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

714 (> (length menu-val) 3))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

715 (define-key-after menu-val key (cons name function)

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

716 (car (nth (- (length menu-val) 3) menu-val)))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

717 (define-key menu key (cons name function))))))

3d30caa4b459 (facemenu-keybindings, facemenu-face-menu):

Richard M. Stallman <rms@gnu.org>

parents: 10238

718 nil) ; Return nil for facemenu-iterate

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

719

8e5d2e4fa77a (facemenu-unlisted-faces): Add foreground and background color faces.

Lute Kamstra <lute@gnu.org>

parents: 63769

720 (defun facemenu-add-new-color (color menu)

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

721 "Add COLOR (a color name string) to the appropriate Face menu.

8e5d2e4fa77a (facemenu-unlisted-faces): Add foreground and background color faces.

Lute Kamstra <lute@gnu.org>

parents: 63769

722 MENU should be `facemenu-foreground-menu' or `facemenu-background-menu'.

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

723 Return the event type (a symbol) of the added menu entry.

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

724

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

725 This is called whenever you use a new color."

8e5d2e4fa77a (facemenu-unlisted-faces): Add foreground and background color faces.

Lute Kamstra <lute@gnu.org>

parents: 63769

726 (let (symbol docstring)

8e5d2e4fa77a (facemenu-unlisted-faces): Add foreground and background color faces.

Lute Kamstra <lute@gnu.org>

parents: 63769

727 (unless (color-defined-p color)

8e5d2e4fa77a (facemenu-unlisted-faces): Add foreground and background color faces.

Lute Kamstra <lute@gnu.org>

parents: 63769

728 (error "Color `%s' undefined" color))

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

729 (cond ((eq menu 'facemenu-foreground-menu)

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

730 (setq docstring

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

731 (format "Select foreground color %s for subsequent insertion."

8e5d2e4fa77a (facemenu-unlisted-faces): Add foreground and background color faces.

Lute Kamstra <lute@gnu.org>

parents: 63769

732 color)

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

733 symbol (intern (concat "fg:" color))))

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

734 ((eq menu 'facemenu-background-menu)

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

735 (setq docstring

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

736 (format "Select background color %s for subsequent insertion."

8e5d2e4fa77a (facemenu-unlisted-faces): Add foreground and background color faces.

Lute Kamstra <lute@gnu.org>

parents: 63769

737 color)

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

738 symbol (intern (concat "bg:" color))))

8e5d2e4fa77a (facemenu-unlisted-faces): Add foreground and background color faces.

Lute Kamstra <lute@gnu.org>

parents: 63769

739 (t (error "MENU should be `facemenu-foreground-menu' or `facemenu-background-menu'")))

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

740 (unless (facemenu-iterate ; Check if color is already in the menu.

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

741 (lambda (m) (and (listp m)

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

742 (eq (car m) symbol)))

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

743 (cdr (symbol-function menu)))

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

744 ;; Color is not in the menu. Figure out where to put it.

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

745 (let ((key (vector symbol))

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

746 (function 'facemenu-set-face-from-menu)

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

747 (menu-val (symbol-function menu)))

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

748 (if (and facemenu-new-faces-at-end

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

749 (> (length menu-val) 3))

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

750 (define-key-after menu-val key (cons color function)

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

751 (car (nth (- (length menu-val) 3) menu-val)))

f8e70842f12b (facemenu-unlisted-faces): Delete foreground and background color

Lute Kamstra <lute@gnu.org>

parents: 63814

752 (define-key menu key (cons color function)))))

8e5d2e4fa77a (facemenu-unlisted-faces): Add foreground and background color faces.

Lute Kamstra <lute@gnu.org>

parents: 63769

753 symbol))

e4a2909015d3 (facemenu-add-new-face): Use this only for faces. Delete arg MENU.

Richard M. Stallman <rms@gnu.org>

parents: 44593

754

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

755 (defun facemenu-complete-face-list (&optional oldlist)

15358

91b8056dcd35 (facemenu-complete-face-list): Doc fix.

Karl Heuer <kwzh@gnu.org>

parents: 14901

756 "Return list of all faces that look different.

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

757 Starts with given ALIST of faces, and adds elements only if they display

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

758 differently from any face already on the list.

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

759 The faces on ALIST will end up at the end of the returned list, in reverse

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

760 order."

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

761 (let ((list (nreverse (mapcar 'car oldlist))))

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

762 (facemenu-iterate

37645a051842 Trailing whitespace deleted.

Juanma Barranquero <lekktu@gmail.com>

parents: 46248

763 (lambda (new-face)

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

764 (if (not (memq new-face list))

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

765 (setq list (cons new-face list)))

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

766 nil)

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

767 (nreverse (face-list)))

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

768 list))

fe1c170fa35a (facemenu-get-face): Don't add to menu here.

Boris Goldowsky <boris@gnu.org>

parents: 9494

769

6d383cf4bb99 Docstrings fixes.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 29050

770 (defun facemenu-iterate (func list)

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

771 "Apply FUNC to each element of LIST until one returns non-nil.

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

772 Returns the non-nil value it found, or nil if all were nil."

6d383cf4bb99 Docstrings fixes.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 29050

773 (while (and list (not (funcall func (car list))))

6d383cf4bb99 Docstrings fixes.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 29050

774 (setq list (cdr list)))

6d383cf4bb99 Docstrings fixes.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 29050

775 (car list))

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

776

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

777 (facemenu-update)

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

778

46248

345d4d775bf0 Move `provide' to the end.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 45869

779 (provide 'facemenu)

52401

695cf19ef79e Add arch taglines

Miles Bader <miles@gnu.org>

parents: 49588

780

695cf19ef79e Add arch taglines

Miles Bader <miles@gnu.org>

parents: 49588

781 ;;; arch-tag: 85f6d02b-9085-420e-b651-0678f0e9c7eb

03445a867bed Initial revision

Richard M. Stallman <rms@gnu.org>

parents: