mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-09 15:50:21 +00:00
Code Issues Releases Activity

(message-split-line): New function.

Browse Source 
(message-mode-map): Remap split-line to message-split-line.
This commit is contained in:
Kim F. Storm 2003-01-03 22:48:19 +00:00
parent 8ba7cd4004
commit 10893bb6b7
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/gnus/message.el
View File

@ -1414,6 +1414,7 @@ Point is left at the beginning of the narrowed-to region."
(define-key message-mode-map "\C-c\C-v" 'message-delete-not-region)
(define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature)
(define-key message-mode-map "\M-\r" 'message-newline-and-reformat)
(define-key message-mode-map [remap split-line] 'message-split-line)
(define-key message-mode-map "\C-c\C-a" 'mml-attach-file)
@ -1778,6 +1779,12 @@ With the prefix argument FORCE, insert the header anyway."
(goto-char point)
(forward-line 1)))
(defun message-split-line ()
"Split current line, moving portion beyond point vertically down.
If the current line has `message-yank-prefix', insert it on the new line."
(interactive "*")
(split-line message-yank-prefix))
(defun message-insert-signature (&optional force)
"Insert a signature. See documentation for variable `message-signature'."
(interactive (list 0))