From 6c1fd142be4e6a867558ca6d041a37814ff91d27 Mon Sep 17 00:00:00 2001 From: Boris Goldowsky Date: Thu, 23 Feb 1995 18:45:30 +0000 Subject: [PATCH] (facemenu-justification-menu): binding fixed. --- lisp/facemenu.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/facemenu.el b/lisp/facemenu.el index b7307b6e3e3..7cbc338bad7 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -160,11 +160,11 @@ when they are created.") (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) -- 2.39.5