emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/emms b1d485ff37 1/2: * emms-playlist-mode.el: update co


From: ELPA Syncer
Subject: [elpa] externals/emms b1d485ff37 1/2: * emms-playlist-mode.el: update copyright year
Date: Mon, 2 Oct 2023 18:58:07 -0400 (EDT)

branch: externals/emms
commit b1d485ff373e2ba8c5bb83813c207e00909515ae
Author: Yoni Rabkin <yrk@gnu.org>
Commit: Yoni Rabkin <yrk@gnu.org>

    * emms-playlist-mode.el: update copyright year
    
    Also, better formatting for code sections.
---
 emms-playlist-mode.el | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el
index 8ecbabe914..9aff497ce3 100644
--- a/emms-playlist-mode.el
+++ b/emms-playlist-mode.el
@@ -1,6 +1,6 @@
 ;;; emms-playlist-mode.el --- Playlist mode for Emms.  -*- lexical-binding: t; 
-*-
 
-;; Copyright (C) 2005-2022  Free Software Foundation, Inc.
+;; Copyright (C) 2005-2023  Free Software Foundation, Inc.
 
 ;; Author: Yoni Rabkin <yrk@gnu.org>
 
@@ -30,10 +30,10 @@
 
 ;;; Code:
 
+
 ;;; --------------------------------------------------------
 ;;; Variables
 ;;; --------------------------------------------------------
-
 (require 'emms)
 (condition-case nil
     (require 'overlay)
@@ -79,10 +79,10 @@ The value should a positive integer."
 This is true for every invocation of `emms-playlist-mode-go'."
   :type 'boolean)
 
+
 ;;; --------------------------------------------------------
 ;;; Faces
 ;;; --------------------------------------------------------
-
 (defface emms-playlist-track-face
   '((((class color) (background dark))
      (:foreground "DarkSeaGreen"))
@@ -103,10 +103,10 @@ This is true for every invocation of 
`emms-playlist-mode-go'."
     (t (:background "blue3")))
   "Face for highlighting the selected track.")
 
+
 ;;; --------------------------------------------------------
 ;;; Keys
 ;;; --------------------------------------------------------
-
 (defvar emms-playlist-mode-map
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map text-mode-map)
@@ -326,10 +326,10 @@ With a prefix arg, open the `dired' buffer in 
OTHER-WINDOW."
            (error "Can't visit this track type in Dired")))
       (error "No track at point"))))
 
+
 ;;; --------------------------------------------------------
 ;;; Killing and yanking
 ;;; --------------------------------------------------------
-
 (defun emms-playlist-mode-between-p (p a b)
   "Return t if P is a point between points A and B."
   (and (<= a p)
@@ -401,10 +401,10 @@ With a prefix arg, open the `dired' buffer in 
OTHER-WINDOW."
    (yank-pop nil)
    (emms-playlist-mode-correct-previous-yank)))
 
+
 ;;; --------------------------------------------------------
 ;;; Overlay
 ;;; --------------------------------------------------------
-
 (defun emms-playlist-mode-overlay-selected ()
   "Place an overlay over the currently selected track."
   (when emms-playlist-selected-marker
@@ -424,10 +424,10 @@ With a prefix arg, open the `dired' buffer in 
OTHER-WINDOW."
           (overlay-put emms-playlist-mode-selected-overlay
                        'evaporate t))))))
 
+
 ;;; --------------------------------------------------------
 ;;; Saving/Restoring
 ;;; --------------------------------------------------------
-
 (defun emms-playlist-mode-open-buffer (filename)
   "Opens a previously saved playlist buffer.
 
@@ -463,10 +463,10 @@ This preserves the current EMMS buffer."
      (emms-playlist-set-playlist-buffer (emms-playlist-new)))
     (emms-add-playlist name)))
 
+
 ;;; --------------------------------------------------------
 ;;; Local functions
 ;;; --------------------------------------------------------
-
 (defun emms-playlist-mode-insert-track (track &optional no-newline)
   "Insert the description of TRACK at point.
 When NO-NEWLINE is non-nil, do not insert a newline after the track."
@@ -499,10 +499,10 @@ When NO-NEWLINE is non-nil, do not insert a newline after 
the track."
      (when selectedp
        (emms-playlist-select (point))))))
 
+
 ;;; --------------------------------------------------------
 ;;; Entry
 ;;; --------------------------------------------------------
-
 (defun emms-playlist-mode-go ()
   "Switch to the current emms-playlist buffer and use emms-playlist-mode."
   (interactive)
@@ -606,6 +606,8 @@ WINDOW-WIDTH should be a positive integer."
 
   (run-hooks 'emms-playlist-mode-hook))
 
+
 (provide 'emms-playlist-mode)
 
+
 ;;; emms-playlist-mode.el ends here



reply via email to

[Prev in Thread] Current Thread [Next in Thread]