Sammanfattning: Rückgängig gemacht auf den Stand vom 2013-08-24 11:21 UTC
< (WikiModes-forward (char-to-string char)
> (search-forward (char-to-string char)
One way to duplicate a line in Emacs is with KillingAndYanking.
C-p C-k C-n C-y
Go to the previous line, kill it, then go back to the next line and yank it.
There is a
misc.el which copies ARG characters from the line above. If used without a prefix, it copies the entire string.
To use it, add the following
‘autoload’ to your InitFile.
(autoload 'copy-from-above-command "misc" "Copy characters from previous nonblank line, starting just above point. \(fn &optional arg)" 'interactive)
‘M-1 M-x copy-from-above-command’ will copy 1 character from above.
For demonstration purposes, the command will be bound to the ArrowKeys?.
The up arrow key will copy the rest of the line forward – the default behavior.
(global-set-key [up] 'copy-from-above-command)
The down arrow will copy the current key on to a newly opened line.
(global-set-key [down] (lambda () (interactive) (forward-line 1) (open-line 1) (copy-from-above-command)))
The right arrow will copy one character from above.
(global-set-key [right] (lambda () (interactive) (copy-from-above-command 1)))
And the left arrow will copy characters from above, backwards!!
(global-set-key [left] (lambda () (interactive) (copy-from-above-command -1) (forward-char -1) (delete-char -1)))
Assume the following two lines with point at !.
Hitting <right> copies one character
Hitting <left> twice copies characters backwards
‘C-e’ moves point back to the end of the line
Hitting <up> copies the rest of the line
Hitting <down> copies the whole line
abcdefghijklmnopqrstuvwxyz 0123efghijklmnopqrstuvwxyz 0123efghijklmnopqrstuvwxyz!
Here is another play on the same theme:
(defun copy-above-to-char (arg char) "Copy all characters from the previous line beginning with the character currently above the cursor up to the ARGth occurrence of CHAR." (interactive "p\ncCopy to char: ") (let* ((col (current-column)) (n (save-excursion (forward-line -1) (move-to-column col) (search-forward (char-to-string char) (line-end-position) nil arg) (- (current-column) col)))) (copy-from-above-command n)))
This is extremely useful when editing “tabular data” like include statements in C and many other programming constructs. For example, if the cursor is below the following line
`copy-above-to-char allows you to easily copy everything up to and including the “less than” character, without having to count the number of characters to be copied.