162 |
"Menu keymap for faces.") |
"Menu keymap for faces.") |
163 |
;;;###autoload |
;;;###autoload |
164 |
(defalias 'facemenu-face-menu facemenu-face-menu) |
(defalias 'facemenu-face-menu facemenu-face-menu) |
165 |
|
(put 'facemenu-face-menu 'menu-enable '(facemenu-enable-faces-p)) |
166 |
|
|
167 |
;;;###autoload |
;;;###autoload |
168 |
(defvar facemenu-foreground-menu |
(defvar facemenu-foreground-menu |
172 |
"Menu keymap for foreground colors.") |
"Menu keymap for foreground colors.") |
173 |
;;;###autoload |
;;;###autoload |
174 |
(defalias 'facemenu-foreground-menu facemenu-foreground-menu) |
(defalias 'facemenu-foreground-menu facemenu-foreground-menu) |
175 |
|
(put 'facemenu-foreground-menu 'menu-enable '(facemenu-enable-faces-p)) |
176 |
|
|
177 |
;;;###autoload |
;;;###autoload |
178 |
(defvar facemenu-background-menu |
(defvar facemenu-background-menu |
182 |
"Menu keymap for background colors.") |
"Menu keymap for background colors.") |
183 |
;;;###autoload |
;;;###autoload |
184 |
(defalias 'facemenu-background-menu facemenu-background-menu) |
(defalias 'facemenu-background-menu facemenu-background-menu) |
185 |
|
(put 'facemenu-background-menu 'menu-enable '(facemenu-enable-faces-p)) |
186 |
|
|
187 |
|
;;; Condition for enabling menu items that set faces. |
188 |
|
(defun facemenu-enable-faces-p () |
189 |
|
(not (and font-lock-mode font-lock-defaults))) |
190 |
|
|
191 |
;;;###autoload |
;;;###autoload |
192 |
(defvar facemenu-special-menu |
(defvar facemenu-special-menu |