aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-11-09 20:56:17 +0000
committerRichard M. Stallman1994-11-09 20:56:17 +0000
commit535d2617a0c1ae89cd7aad5a871f97470c77eeb8 (patch)
treed48a8a012df221a5cb27844ffc3e664863a8c381
parent1347899b3c8035379109510e8e069c2c335ce7da (diff)
downloademacs-535d2617a0c1ae89cd7aad5a871f97470c77eeb8.tar.gz
emacs-535d2617a0c1ae89cd7aad5a871f97470c77eeb8.zip
(facemenu-update): Use C-down-mouse-2 for the menu.
Doc fixes.
-rw-r--r--lisp/facemenu.el11
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
154requested in facemenu-keybindings.") 149requested 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.