[nongnu] elpa/devhelp ac3c9e9563 03/13: Change the behavior of devhelp function to be a bit more like info

[ELPA Syncer]

branch: elpa/devhelp
commit ac3c9e9563d88a1237f44164cb102062be279fa8
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Change the behavior of devhelp function to be a bit more like info
---
 devhelp.el | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/devhelp.el b/devhelp.el
index 3fb1cddb73..c624849d50 100644
--- a/devhelp.el
+++ b/devhelp.el
@@ -514,7 +514,9 @@ EVENT is a mouse event, if any."
 
 Interactively, when a non-numeric prefix argument is given, the Devhelp
 file name is read interactively from the minibuffer.  When a numeric
-argument N is given, a buffer named \"*devhelp*<N>\" is selected.
+argument N is given, a buffer named `*devhelp*<N>' is selected.  When no
+prefix argument is given and `*devhelp*' buffer already exists, just
+display it.
 
 Optional argument BUFFER specifies the BUFFER to use, it can be a live
 buffer or a buffer name.  If BUFFER is a buffer name and the buffer doesn't
@@ -529,12 +531,14 @@ the conbined table of contents of all available Devhelp 
books."
            (format "*devhelp*<%s>" current-prefix-arg))))
   (unless (fboundp 'libxml-parse-html-region)
     (error "This function requires Emacs to be compiled with libxml2"))
-  (with-current-buffer (get-buffer-create (or buffer "*devhelp*"))
-    (devhelp-mode)
-    (display-buffer (current-buffer))
-    (if (not file)
-        (devhelp--directory)
-      (devhelp--open-file file))))
+  (if (and (not buffer) (get-buffer "*devhelp*"))
+      (display-buffer "*devhelp*")
+    (with-current-buffer (get-buffer-create (or buffer "*devhelp*"))
+      (devhelp-mode)
+      (display-buffer (current-buffer))
+      (if (not file)
+          (devhelp--directory)
+        (devhelp--open-file file)))))
 
 (defun devhelp--make-bookmark-record ()
   "Make a bookmark record."