aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2019-01-09 10:02:30 -0500
committerYoni Rabkin <yoni@rabkins.net>2019-01-09 10:02:30 -0500
commite5763d23106177de1ab75a51400de312bce4d7c8 (patch)
treed76a6a9bdaa147f1d967380ecae4ebcbcb611a83
parentbb451d9f5392cc45202ed8e742abf2b1ac55ecd0 (diff)
* lisp/emms-playlist-mode.el: Remove redundancy.
`emms-playlist-mode-clear' is redundant and nobody calls it, so it is removed.
-rw-r--r--lisp/emms-playlist-mode.el15
1 files changed, 2 insertions, 13 deletions
diff --git a/lisp/emms-playlist-mode.el b/lisp/emms-playlist-mode.el
index 4ac5b3c..6979b79 100644
--- a/lisp/emms-playlist-mode.el
+++ b/lisp/emms-playlist-mode.el
@@ -1,6 +1,6 @@
;;; emms-playlist-mode.el --- Playlist mode for Emms.
-;; Copyright (C) 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2005-2019 Free Software Foundation, Inc.
;; Author: Yoni Rabkin <yrk@gnu.org>
@@ -146,7 +146,7 @@ This is true for every invocation of `emms-playlist-mode-go'."
(define-key map (kbd "K") 'emms-playlist-mode-current-kill)
(define-key map (kbd "?") 'describe-mode)
(define-key map (kbd "r") 'emms-random)
- (define-key map (kbd "C") 'emms-playlist-mode-clear)
+ (define-key map (kbd "C") 'emms-playlist-clear)
(define-key map (kbd "d") 'emms-playlist-mode-goto-dired-at-point)
(define-key map (kbd "<mouse-2>") 'emms-playlist-mode-play-current-track)
(define-key map (kbd "RET") 'emms-playlist-mode-play-smart)
@@ -191,17 +191,6 @@ Otherwise, kill the current EMMS playlist buffer."
(kill-buffer (current-buffer))
(emms-playlist-current-kill)))
-(defun emms-playlist-mode-clear ()
- "If the current buffer is an EMMS playlist buffer, clear it.
-Otherwise, clear the current EMMS playlist buffer."
- (interactive)
- (if (and emms-playlist-buffer-p
- (not (eq (current-buffer) emms-playlist-buffer)))
- (let ((inhibit-read-only t))
- (widen)
- (delete-region (point-min) (point-max)))
- (emms-playlist-clear)))
-
(defun emms-playlist-mode-last ()
"Move to directly after the last track in the current buffer."
(interactive)