[elpa] externals/mpdired fe835f4e0c 011/133: better naming

[ELPA Syncer]

branch: externals/mpdired
commit fe835f4e0cb003a15db314ca890df22ce0443a91
Author: Manuel Giraud <manuel@ledu-giraud.fr>
Commit: Manuel Giraud <manuel@ledu-giraud.fr>

    better naming
---
 mpdired.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/mpdired.el b/mpdired.el
index 0ef1de167d..bd446850d0 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -61,7 +61,7 @@
        mode-name "MPDired Browse"
        buffer-read-only t))
 
-(defun mpdired-present-listall (contact)
+(defun mpdired--present-listall (contact)
   ;; Called from *mpdired-work*
   (let ((out (get-buffer-create (format "*MPDired (%s:%d)*"
                                        (car contact) (cadr contact))))
@@ -83,7 +83,7 @@
              (insert "\n")))))
       (mpdired-browse-mode))))
 
-(defun my-filter (proc string)
+(defun mpdired--filter (proc string)
   (when (buffer-live-p (process-buffer proc))
     (with-current-buffer (process-buffer proc)
       (let ((moving (= (point) (process-mark proc))))
@@ -95,9 +95,10 @@
        (if moving (goto-char (process-mark proc)))
        (when (re-search-backward "^OK$" nil t)
          (when (eq mpdired--last-command 'listall)
-           (mpdired-present-listall (process-contact proc))))))))
+           (mpdired--present-listall (process-contact proc))))))))
 
-(defun msg-me (process event)
+(defun mpdired--sentinel (process event)
+  ;; Do not signal a closed connection
   (unless (string-search "connection broken" event)
     (message "Process: %s had the event '%s'" process event)))
 
@@ -125,8 +126,8 @@
                                                  :service service
                                                  :family (if localp 'local)
                                                  :coding 'utf-8
-                                                 :filter 'my-filter
-                                                 :sentinel 'msg-me)
+                                                 :filter 'mpdired--filter
+                                                 :sentinel 'mpdired--sentinel)
                            (current-buffer))))))
 
 (defun mpdired-listall (path)