branch: elpa/devhelp
commit ac3c9e9563d88a1237f44164cb102062be279fa8
Author: Akib Azmain Turja <[email protected]>
Commit: Akib Azmain Turja <[email protected]>
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."
