Mercurial > emacs
comparison lisp/textmodes/enriched.el @ 80629:2862d3b099c5
(enriched-mode-map): Bind C-a and C-j via key remapping, not directly.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 24 Jul 2008 05:47:38 +0000 |
| parents | dc100f64b2b7 |
| children |
comparison
equal
deleted
inserted
replaced
| 80628:49c76f6173ab | 80629:2862d3b099c5 |
|---|---|
| 251 (if (not (assq 'enriched-mode minor-mode-map-alist)) | 251 (if (not (assq 'enriched-mode minor-mode-map-alist)) |
| 252 (setq minor-mode-map-alist | 252 (setq minor-mode-map-alist |
| 253 (cons (cons 'enriched-mode enriched-mode-map) | 253 (cons (cons 'enriched-mode enriched-mode-map) |
| 254 minor-mode-map-alist))) | 254 minor-mode-map-alist))) |
| 255 | 255 |
| 256 (define-key enriched-mode-map "\C-a" 'beginning-of-line-text) | 256 (define-key enriched-mode-map [remap move-beginning-of-line] 'beginning-of-line-text) |
| 257 (define-key enriched-mode-map "\C-m" 'reindent-then-newline-and-indent) | 257 (define-key enriched-mode-map "\C-m" 'reindent-then-newline-and-indent) |
| 258 (define-key enriched-mode-map "\C-j" 'reindent-then-newline-and-indent) | 258 (define-key enriched-mode-map |
| 259 [remap newline-and-indent] 'reindent-then-newline-and-indent) | |
| 259 (define-key enriched-mode-map "\M-j" 'facemenu-justification-menu) | 260 (define-key enriched-mode-map "\M-j" 'facemenu-justification-menu) |
| 260 (define-key enriched-mode-map "\M-S" 'set-justification-center) | 261 (define-key enriched-mode-map "\M-S" 'set-justification-center) |
| 261 (define-key enriched-mode-map "\C-x\t" 'increase-left-margin) | 262 (define-key enriched-mode-map "\C-x\t" 'increase-left-margin) |
| 262 (define-key enriched-mode-map "\C-c[" 'set-left-margin) | 263 (define-key enriched-mode-map "\C-c[" 'set-left-margin) |
| 263 (define-key enriched-mode-map "\C-c]" 'set-right-margin) | 264 (define-key enriched-mode-map "\C-c]" 'set-right-margin) |