branch: externals/mpdired
commit b5d5220a44a6f982691841d2e1869c43686f5268
Author: Manuel Giraud <[email protected]>
Commit: Manuel Giraud <[email protected]>
wrap some long lines
---
mpdired.el | 20 +++++++++++++-------
1 file changed, 13 insertions(+), 7 deletions(-)
diff --git a/mpdired.el b/mpdired.el
index e10773e56d..670fd60e2b 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -146,10 +146,12 @@
(catch 'exit
(while (not (or mpdired--parse-endp
(setq mpdired--parse-endp
- (re-search-forward "^\\(OK\\|ACK.*\\)$"
(line-end-position) t 1))))
+ (re-search-forward "^\\(OK\\|ACK.*\\)$"
+ (line-end-position) t 1))))
;; Look for file or directory line by line (I'm not interested
;; in playlist)
- (re-search-forward "^\\(file\\|directory\\): \\(.*\\)$"
(line-end-position) t 1)
+ (re-search-forward "^\\(file\\|directory\\): \\(.*\\)$"
+ (line-end-position) t 1)
(let ((type (match-string 1))
(new (match-string 2)))
(cond ((string= "file" type) (push new accum))
@@ -188,7 +190,8 @@
result file time id)
(while (not (or mpdired--parse-endp
(setq mpdired--parse-endp
- (re-search-forward "^\\(OK\\|ACK.*\\)$"
(line-end-position) t 1))))
+ (re-search-forward "^\\(OK\\|ACK.*\\)$"
+ (line-end-position) t 1))))
(let ((eol (line-end-position)))
;; First, "status" content
(when (re-search-forward "^songid: \\([0-9]+\\)$" eol t 1)
@@ -444,11 +447,13 @@
(unless (and process (eq (process-status process) 'open))
;; Reconnect from saved parameters.
(if mpdired--network-params
- (set-process-buffer (apply 'make-network-process
mpdired--network-params)
- comm-buffer)))))
+ (set-process-buffer
+ (apply 'make-network-process mpdired--network-params)
+ comm-buffer)))))
(defun mpdired--maybe-init (host service localp)
- (with-current-buffer (get-buffer-create (mpdired--comm-name host service
localp))
+ (with-current-buffer (get-buffer-create
+ (mpdired--comm-name host service localp))
(erase-buffer)
(let ((process (get-buffer-process (current-buffer))))
(unless (and process (eq (process-status process) 'open))
@@ -543,7 +548,8 @@ an optional communication buffer."
(interactive "nVolume: ")
(mpdired--with-comm-buffer process buffer
(setq mpdired--last-command 'setvol)
- (process-send-string process (format "setvol %d\n" (min 100 (max 0
volume))))))
+ (process-send-string process
+ (format "setvol %d\n" (min 100 (max 0 volume))))))
(defun mpdired--save-point ()
(cond ((eq mpdired--view 'queue)
