Mercurial > emacs
changeset 10814:48bfa8e29f36
(facemenu-justification-menu): binding fixed.
| author | Boris Goldowsky <boris@gnu.org> |
|---|---|
| date | Thu, 23 Feb 1995 18:45:30 +0000 |
| parents | bccf0295c66e |
| children | 52e860d10537 |
| files | lisp/facemenu.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/facemenu.el Thu Feb 23 18:38:42 1995 +0000 +++ b/lisp/facemenu.el Thu Feb 23 18:45:30 1995 +0000 @@ -160,11 +160,11 @@ (defvar facemenu-justification-menu (let ((map (make-sparse-keymap "Justification"))) - (define-key map [?c] (cons "Center" 'set-justification-center)) - (define-key map [?b] (cons "Full" 'set-justification-full)) - (define-key map [?r] (cons "Right" 'set-justification-right)) - (define-key map [?l] (cons "Left" 'set-justification-left)) - (define-key map [?u] (cons "Unfilled" 'set-nofill)) + (define-key map "c" (cons "Center" 'set-justification-center)) + (define-key map "f" (cons "Full" 'set-justification-full)) + (define-key map "r" (cons "Right" 'set-justification-right)) + (define-key map "l" (cons "Left" 'set-justification-left)) + (define-key map "n" (cons "Unfilled" 'set-justification-none)) map) "Submenu for text justification commands.") (defalias 'facemenu-justification-menu facemenu-justification-menu)