Mercurial > emacs
comparison lisp/facemenu.el @ 63769:cae70b5066ae
(facemenu-enable-faces-p): New function.
(facemenu-background-menu, facemenu-foreground-menu)
(facemenu-face-menu): Add menu-enable property.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 25 Jun 2005 22:24:10 +0000 |
| parents | 66456f4ae924 |
| children | 8e5d2e4fa77a |
comparison
equal
deleted
inserted
replaced
| 63768:79a2185587dc | 63769:cae70b5066ae |
|---|---|
| 160 (define-key map "o" (cons "Other..." 'facemenu-set-face)) | 160 (define-key map "o" (cons "Other..." 'facemenu-set-face)) |
| 161 map) | 161 map) |
| 162 "Menu keymap for faces.") | 162 "Menu keymap for faces.") |
| 163 ;;;###autoload | 163 ;;;###autoload |
| 164 (defalias 'facemenu-face-menu facemenu-face-menu) | 164 (defalias 'facemenu-face-menu facemenu-face-menu) |
| 165 (put 'facemenu-face-menu 'menu-enable '(facemenu-enable-faces-p)) | |
| 165 | 166 |
| 166 ;;;###autoload | 167 ;;;###autoload |
| 167 (defvar facemenu-foreground-menu | 168 (defvar facemenu-foreground-menu |
| 168 (let ((map (make-sparse-keymap "Foreground Color"))) | 169 (let ((map (make-sparse-keymap "Foreground Color"))) |
| 169 (define-key map "o" (cons "Other..." 'facemenu-set-foreground)) | 170 (define-key map "o" (cons "Other..." 'facemenu-set-foreground)) |
| 170 map) | 171 map) |
| 171 "Menu keymap for foreground colors.") | 172 "Menu keymap for foreground colors.") |
| 172 ;;;###autoload | 173 ;;;###autoload |
| 173 (defalias 'facemenu-foreground-menu facemenu-foreground-menu) | 174 (defalias 'facemenu-foreground-menu facemenu-foreground-menu) |
| 175 (put 'facemenu-foreground-menu 'menu-enable '(facemenu-enable-faces-p)) | |
| 174 | 176 |
| 175 ;;;###autoload | 177 ;;;###autoload |
| 176 (defvar facemenu-background-menu | 178 (defvar facemenu-background-menu |
| 177 (let ((map (make-sparse-keymap "Background Color"))) | 179 (let ((map (make-sparse-keymap "Background Color"))) |
| 178 (define-key map "o" (cons "Other..." 'facemenu-set-background)) | 180 (define-key map "o" (cons "Other..." 'facemenu-set-background)) |
| 179 map) | 181 map) |
| 180 "Menu keymap for background colors.") | 182 "Menu keymap for background colors.") |
| 181 ;;;###autoload | 183 ;;;###autoload |
| 182 (defalias 'facemenu-background-menu facemenu-background-menu) | 184 (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))) | |
| 183 | 190 |
| 184 ;;;###autoload | 191 ;;;###autoload |
| 185 (defvar facemenu-special-menu | 192 (defvar facemenu-special-menu |
| 186 (let ((map (make-sparse-keymap "Special"))) | 193 (let ((map (make-sparse-keymap "Special"))) |
| 187 (define-key map [?s] (cons (purecopy "Remove Special") | 194 (define-key map [?s] (cons (purecopy "Remove Special") |