aboutsummaryrefslogtreecommitdiff
path: root/lisp/emms-playlist-mode.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/emms-playlist-mode.el')
-rw-r--r--lisp/emms-playlist-mode.el12
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/emms-playlist-mode.el b/lisp/emms-playlist-mode.el
index e74010f..f5daa25 100644
--- a/lisp/emms-playlist-mode.el
+++ b/lisp/emms-playlist-mode.el
@@ -389,20 +389,28 @@ set it as current."
(kill-region (region-beginning)
(region-end))))
+(defun emms-playlist-mode-correct-previous-yank ()
+ "Fix the previous yank if needed."
+ (when (and (< (point-at-bol) (point))
+ (< (point) (point-at-eol)))
+ (newline)))
+
;; C-y
(defun emms-playlist-mode-yank ()
"Yank into the playlist buffer."
(interactive)
(emms-with-inhibit-read-only-t
(goto-char (point-at-bol))
- (yank)))
+ (yank)
+ (emms-playlist-mode-correct-previous-yank)))
;; M-y
(defun emms-playlist-mode-yank-pop ()
"Cycle through the kill-ring."
(interactive)
(emms-with-inhibit-read-only-t
- (yank-pop nil)))
+ (yank-pop nil)
+ (emms-playlist-mode-correct-previous-yank)))
;;; --------------------------------------------------------
;;; Overlay