From: Boris Goldowsky <boris@gnu.org>
Date: Thu, 23 Feb 1995 18:45:30 +0000 (+0000)
Subject: (facemenu-justification-menu): binding fixed.
X-Git-Tag: emacs-19.34~5044
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c1fd142be4e6a867558ca6d041a37814ff91d27;p=emacs.git

(facemenu-justification-menu): binding fixed.
---

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)