[elpa] externals/mpdired ebfc6a1bac 121/133: mpdired-port should be a number

[ELPA Syncer]

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

    mpdired-port should be a number
---
 mpdired.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/mpdired.el b/mpdired.el
index 10698b7c92..31d97c20bf 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -77,9 +77,12 @@
   "Host for MPD."
   :type 'string)
 
-(defcustom mpdired-port (or (getenv "MPD_PORT") 6600)
+(defcustom mpdired-port
+  (let* ((port-env (getenv "MPD_PORT"))
+        (port (and port-env (string-to-number port-env))))
+    (or port 6600))
   "Port for MPD."
-  :type 'integer)
+  :type 'natnum)
 
 (defvar-keymap mpdired-mode-map
   :doc "Local keymap for MPDired."