diff options
| author | Richard M. Stallman | 1994-11-09 20:56:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-11-09 20:56:17 +0000 |
| commit | 535d2617a0c1ae89cd7aad5a871f97470c77eeb8 (patch) | |
| tree | d48a8a012df221a5cb27844ffc3e664863a8c381 | |
| parent | 1347899b3c8035379109510e8e069c2c335ce7da (diff) | |
| download | emacs-535d2617a0c1ae89cd7aad5a871f97470c77eeb8.tar.gz emacs-535d2617a0c1ae89cd7aad5a871f97470c77eeb8.zip | |
(facemenu-update): Use C-down-mouse-2 for the menu.
Doc fixes.
| -rw-r--r-- | lisp/facemenu.el | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index e5e2ba81001..f8d3dbdab39 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el | |||
| @@ -30,11 +30,6 @@ | |||
| 30 | ;; rather than the general Face submenu. Such faces can also be created on | 30 | ;; rather than the general Face submenu. Such faces can also be created on |
| 31 | ;; demand from the "Other..." menu items. | 31 | ;; demand from the "Other..." menu items. |
| 32 | 32 | ||
| 33 | ;;; Installation: | ||
| 34 | ;; Put this file somewhere on emacs's load-path, and put | ||
| 35 | ;; (require 'facemenu) | ||
| 36 | ;; in your .emacs file. | ||
| 37 | |||
| 38 | ;;; Usage: | 33 | ;;; Usage: |
| 39 | ;; Selecting a face from the menu or typing the keyboard equivalent will | 34 | ;; Selecting a face from the menu or typing the keyboard equivalent will |
| 40 | ;; change the region to use that face. If you use transient-mark-mode and the | 35 | ;; change the region to use that face. If you use transient-mark-mode and the |
| @@ -146,12 +141,12 @@ changing it.") | |||
| 146 | (define-key map [fg] (cons "Foreground Color" facemenu-foreground-menu)) | 141 | (define-key map [fg] (cons "Foreground Color" facemenu-foreground-menu)) |
| 147 | (define-key map [face] (cons "Face" facemenu-face-menu)) | 142 | (define-key map [face] (cons "Face" facemenu-face-menu)) |
| 148 | map) | 143 | map) |
| 149 | "Facemenu top-level menu keymap") | 144 | "Facemenu top-level menu keymap.") |
| 150 | 145 | ||
| 151 | (defvar facemenu-keymap (make-sparse-keymap "Set face") | 146 | (defvar facemenu-keymap (make-sparse-keymap "Set face") |
| 152 | "Map for keyboard face-changing commands. | 147 | "Map for keyboard face-changing commands. |
| 153 | `Facemenu-update' fills in the keymap according to the bindings | 148 | `Facemenu-update' fills in the keymap according to the bindings |
| 154 | requested in facemenu-keybindings.") | 149 | requested in `facemenu-keybindings'.") |
| 155 | 150 | ||
| 156 | ;;; Internal Variables | 151 | ;;; Internal Variables |
| 157 | 152 | ||
| @@ -170,7 +165,7 @@ variables." | |||
| 170 | (interactive) | 165 | (interactive) |
| 171 | 166 | ||
| 172 | ;; Global bindings: | 167 | ;; Global bindings: |
| 173 | (define-key global-map [C-down-mouse-3] facemenu-menu) | 168 | (define-key global-map [C-down-mouse-2] facemenu-menu) |
| 174 | (if facemenu-key (define-key global-map facemenu-key facemenu-keymap)) | 169 | (if facemenu-key (define-key global-map facemenu-key facemenu-keymap)) |
| 175 | 170 | ||
| 176 | ;; Add each defined face to the menu. | 171 | ;; Add each defined face to the menu. |