File 2716-Fixes-due-to-legoscia-s-Magnus-Henoch-comments-2414.patch of Package erlang

From 956e98eda2e429bc3498ab22bf70c142ab2db605 Mon Sep 17 00:00:00 2001
From: Kjell Winblad <kjellwinblad@gmail.com>
Date: Mon, 14 Oct 2019 16:04:58 +0200
Subject: [PATCH 06/10] Fixes due to @legoscia's (Magnus Henoch) comments #2414

Fixes due to @legoscia's (Magnus Henoch) comments on pull request
https://github.com/erlang/otp/pull/2414
---
 lib/tools/emacs/erlang.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el
index 835d09763b..ba7493a126 100644
--- a/lib/tools/emacs/erlang.el
+++ b/lib/tools/emacs/erlang.el
@@ -2006,12 +2006,11 @@ erlang-man-download downloads the man pages without prompting the
 user."
   (interactive)
   (if (y-or-n-p "Could not find Erlang man pages on your system. Do you want to download them?")
-      (let ((download-url (read-string "URL to download man pages from:" erlang-man-download-url)))
+      (let ((download-url (read-string "URL to download man pages from: " erlang-man-download-url)))
         (concat (directory-file-name (erlang-man-download download-url)) (or subdir "")))))
 
 
-(defun erlang-man-dir (subdir &optional no_download)
-  (message subdir)
+(defun erlang-man-dir (subdir &optional no-download)
   (let ((default-man-dir (if erlang-root-dir
                              (concat (directory-file-name (concat
                                                            (file-name-as-directory erlang-root-dir)
@@ -2027,7 +2026,7 @@ user."
           alt-man-dir
         (if (file-directory-p downloaded-man-dir)
             (concat (directory-file-name downloaded-man-dir) subdir)
-          (and (not no_download) (erlang-man-download-ask subdir)))))))
+          (and (not no-download) (erlang-man-download-ask subdir)))))))
 
 ;; Should the menu be to long, let's split it into a number of
 ;; smaller menus.  Warning, this code contains beautiful
-- 
2.16.4