diff options
| author | Boris Goldowsky | 1995-02-23 18:45:30 +0000 |
|---|---|---|
| committer | Boris Goldowsky | 1995-02-23 18:45:30 +0000 |
| commit | 6c1fd142be4e6a867558ca6d041a37814ff91d27 (patch) | |
| tree | 34ef5ad3d0289b9a7ffe1de380d32b4d4027d9a9 | |
| parent | 3db1e3b5d69fac6b0ac6da61237eb277049a7729 (diff) | |
| download | emacs-6c1fd142be4e6a867558ca6d041a37814ff91d27.tar.gz emacs-6c1fd142be4e6a867558ca6d041a37814ff91d27.zip | |
(facemenu-justification-menu): binding fixed.
| -rw-r--r-- | lisp/facemenu.el | 10 |
1 files 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.") | |||
| 160 | 160 | ||
| 161 | (defvar facemenu-justification-menu | 161 | (defvar facemenu-justification-menu |
| 162 | (let ((map (make-sparse-keymap "Justification"))) | 162 | (let ((map (make-sparse-keymap "Justification"))) |
| 163 | (define-key map [?c] (cons "Center" 'set-justification-center)) | 163 | (define-key map "c" (cons "Center" 'set-justification-center)) |
| 164 | (define-key map [?b] (cons "Full" 'set-justification-full)) | 164 | (define-key map "f" (cons "Full" 'set-justification-full)) |
| 165 | (define-key map [?r] (cons "Right" 'set-justification-right)) | 165 | (define-key map "r" (cons "Right" 'set-justification-right)) |
| 166 | (define-key map [?l] (cons "Left" 'set-justification-left)) | 166 | (define-key map "l" (cons "Left" 'set-justification-left)) |
| 167 | (define-key map [?u] (cons "Unfilled" 'set-nofill)) | 167 | (define-key map "n" (cons "Unfilled" 'set-justification-none)) |
| 168 | map) | 168 | map) |
| 169 | "Submenu for text justification commands.") | 169 | "Submenu for text justification commands.") |
| 170 | (defalias 'facemenu-justification-menu facemenu-justification-menu) | 170 | (defalias 'facemenu-justification-menu facemenu-justification-menu) |