diff options
author | Juri Linkov <juri@jurta.org> | 2008-08-25 20:32:15 +0000 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2008-08-25 20:32:15 +0000 |
commit | 4603452cbc794794ce858c11d0d843f2621c99ea (patch) | |
tree | 68c063857606d0ce9d0e626fc2a9fbfd8cabf148 /lisp/textmodes | |
parent | a4e628d45895e14d4cc2e9115fe22bbe0ea9cca7 (diff) | |
download | emacs-4603452cbc794794ce858c11d0d843f2621c99ea.tar.gz |
(text-mode-map): Unbind "\es" from `center-line' and "\eS" from `center-paragraph'.
(facemenu-keymap): Bind "\es" to `center-line' and "\eS" to `center-paragraph'.
Diffstat (limited to 'lisp/textmodes')
-rw-r--r-- | lisp/textmodes/text-mode.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el index 74fe2607f48..ce39fbd3579 100644 --- a/lisp/textmodes/text-mode.el +++ b/lisp/textmodes/text-mode.el @@ -50,8 +50,6 @@ Use (derived-mode-p 'text-mode) instead.") (defvar text-mode-map (let ((map (make-sparse-keymap))) (define-key map "\e\t" 'ispell-complete-word) - (define-key map "\es" 'center-line) - (define-key map "\eS" 'center-paragraph) map) "Keymap for `text-mode'. Many other modes, such as `mail-mode', `outline-mode' and `indented-text-mode', @@ -123,6 +121,9 @@ both existing buffers and buffers that you subsequently create." (message "Auto Fill %s in Text modes" (if enable-mode "enabled" "disabled")))) + +(define-key facemenu-keymap "\eS" 'center-paragraph) + (defun center-paragraph () "Center each nonblank line in the paragraph at or after point. See `center-line' for more info." @@ -150,6 +151,8 @@ See `center-line' for more info." (center-line)) (forward-line 1))))) +(define-key facemenu-keymap "\es" 'center-line) + (defun center-line (&optional nlines) "Center the line point is on, within the width specified by `fill-column'. This means adjusting the indentation so that it equals |