From: Tim Vaughan <timv@ughan.xyz>
Date: Tue, 10 Dec 2019 08:06:57 +0000 (+0100)
Subject: Fixed more typos.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=bd337abef12edf41d40e1cd22e4229168df9adbe;p=emus.git

Fixed more typos.

Lesson learned: never search+replace in parinfer mode.
---

diff --git a/emus.el b/emus.el
index d3ad227..e3d17f6 100644
--- a/emus.el
+++ b/emus.el
@@ -194,7 +194,7 @@
         (set-process-query-on-exit-flag proc nil)
         (process-send-string proc "silence\n")
         proc))))
-                    
+
 
 (defun emus-send-cmd (cmd &rest args)
   (process-send-string (emus-get-process)
@@ -315,11 +315,11 @@
                                (seq-subseq emus-tracks (+ idx 1))))
                 (current-album (emus-track-album emus-current-track))
                 (next-track (seq-some (lambda (r)
-                                         (if (string= (emus-track-album r)
-                                                      current-album)
-                                             nil
-                                           r)
-                                       search-list))))
+                                        (if (string= (emus-track-album r)
+                                                     current-album)
+                                            nil
+                                          r))
+                                      search-list)))
            (if next-track
                (if (eq emus-state 'playing)
                    (emus-play-track next-track)
@@ -433,12 +433,12 @@
       (with-current-buffer "*emus*"
         (let ((inhibit-read-only t)
               (old-point (point)))
-            (goto-char track-pos)
-            (search-forward "\n")
-            (delete-region track-pos (point))
-            (goto-char track-pos)
-            (emus--insert-track track)
-            (goto-char old-point))))))
+          (goto-char track-pos)
+          (search-forward "\n")
+          (delete-region track-pos (point))
+          (goto-char track-pos)
+          (emus--insert-track track)
+          (goto-char old-point))))))
 
 (defun emus--render-tracks ()
   (with-current-buffer "*emus*"
@@ -516,19 +516,19 @@
     (define-key map (kbd "c") 'emus-centre-current-status)
     (when (fboundp 'evil-define-key*)
       (evil-define-key* 'motion map
-        (kbd "SPC") 'emus-playpause-status
-        (kbd "o") 'emus-stop-status
-        (kbd "+") 'emus-volume-up-status
-        (kbd "=") 'emus-volume-up-status
-        (kbd "-") 'emus-volume-down-status
-        (kbd "R") 'emus-refresh-status
-        (kbd "n") 'emus-play-next-status
-        (kbd "p") 'emus-play-prev-status
-        (kbd "N") 'emus-play-next-album-status
-        (kbd "P") 'emus-play-prev-album-status
-        (kbd ",") 'emus-jump-10s-backward-status
-        (kbd ".") 'emus-jump-10s-forward-status
-        (kbd "c") 'emus-centre-current-status))
+                        (kbd "SPC") 'emus-playpause-status
+                        (kbd "o") 'emus-stop-status
+                        (kbd "+") 'emus-volume-up-status
+                        (kbd "=") 'emus-volume-up-status
+                        (kbd "-") 'emus-volume-down-status
+                        (kbd "R") 'emus-refresh-status
+                        (kbd "n") 'emus-play-next-status
+                        (kbd "p") 'emus-play-prev-status
+                        (kbd "N") 'emus-play-next-album-status
+                        (kbd "P") 'emus-play-prev-album-status
+                        (kbd ",") 'emus-jump-10s-backward-status
+                        (kbd ".") 'emus-jump-10s-forward-status
+                        (kbd "c") 'emus-centre-current-status))
     map)
   "Keymap for emus.")