Was ist los mit dieser elisp Funktion?

Question

Ich schreibe eine elisp Funktion, um die aktuelle Zeile zu kopieren, wenn keine Region ausgewählt wurde, aber es funktioniert nicht auf Emacs 24.5. Wenn ich die "M-w" -Tastenanschläge drücke, erscheint eine Meldung "Markiere gesetzt" im Minipuffer. Habe ich etwas verpasst?

(defun copy-region-or-current-line (beg end) 
    "copy current if no region selected, copy the region otherwise" 
    (interactive "r") 
    (let ((cur-pos (point))) 
    (if (region-active-p) 
     (kill-ring-save beg end) 
     (progn 
     (kill-whole-line) 
     (yank) 
     (goto-char cur-pos))))) 
(global-set-key (kbd "M-w") 'copy-region-or-current-line) 

Answer 1

Ihre Funktion funktioniert: Du nennst yank und Befehl setzt die Marke; daher die Nachricht.

Das ist ein Nebeneffekt, den Sie zweifellos nicht wollen, und die Kill + Yank-Sequenz ist nicht notwendig.

Sie wissen bereits über kill-ring-save, verwenden Sie das also nur mit (line-beginning-position) und (line-end-position).

FYI, wegen des optionalen REGION Argument kill-ring-save, könnten Sie dies umschreiben als:

(defun copy-region-or-current-line() 
    "Copy the active region or the current line to the kill ring." 
    (interactive) 
    (if (region-active-p) 
     (kill-ring-save nil nil t) 
    (kill-ring-save (line-beginning-position) (line-end-position))))