mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
Doc fixes.
This commit is contained in:
Richard M. Stallman 1994-11-09 20:56:17 +00:00
parent 1347899b3c
commit 535d2617a0
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/facemenu.el
View File

@ -30,11 +30,6 @@
;; rather than the general Face submenu. Such faces can also be created on
;; demand from the "Other..." menu items.
;;; Installation:
;; Put this file somewhere on emacs's load-path, and put
;; (require 'facemenu)
;; in your .emacs file.
;;; Usage:
;; Selecting a face from the menu or typing the keyboard equivalent will
;; change the region to use that face. If you use transient-mark-mode and the
@ -146,12 +141,12 @@ changing it.")
(define-key map [fg] (cons "Foreground Color" facemenu-foreground-menu))
(define-key map [face] (cons "Face" facemenu-face-menu))
map)
"Facemenu top-level menu keymap")
"Facemenu top-level menu keymap.")
(defvar facemenu-keymap (make-sparse-keymap "Set face")
"Map for keyboard face-changing commands.
`Facemenu-update' fills in the keymap according to the bindings
requested in facemenu-keybindings.")
requested in `facemenu-keybindings'.")
;;; Internal Variables
@ -170,7 +165,7 @@ variables."
(interactive)
;; Global bindings:
(define-key global-map [C-down-mouse-3] facemenu-menu)
(define-key global-map [C-down-mouse-2] facemenu-menu)
(if facemenu-key (define-key global-map facemenu-key facemenu-keymap))
;; Add each defined face to the menu.