[nongnu] elpa/boxquote a6bf9f8abe 18/31: Move describe-function and describe-variable away from help quoting

[ELPA Syncer]

branch: elpa/boxquote
commit a6bf9f8abefca7d675fbebccdd7637137a5abe18
Author: Dave Pearson <davep@davep.org>
Commit: Dave Pearson <davep@davep.org>

    Move describe-function and describe-variable away from help quoting
    All that's left that uses the help buffer quoting helper code is the
    command that boxquotes a key description. I should look at making
    it all standalone now.
---
 boxquote.el | 52 ++++++++++++++++++++++++++--------------------------
 1 file changed, 26 insertions(+), 26 deletions(-)

diff --git a/boxquote.el b/boxquote.el
index e63d632de5..4708d7eb47 100644
--- a/boxquote.el
+++ b/boxquote.el
@@ -387,32 +387,6 @@ whatever `boxquote-kill-ring-save-title' returned at the 
time."
   (let ((box (boxquote-points-with-check)))
     (boxquote-region (car box) (1+ (cdr box)))))
 
-(defun boxquote-help-buffer-name (item)
-  "Return the name of the help buffer associated with ITEM."
-  (if (boxquote-xemacs-p)
-      (loop for buffer in (symbol-value 'help-buffer-list)
-            when (string-match (concat "^*Help:.*`" item "'") buffer)
-            return buffer)
-    "*Help*"))
-
-(defun boxquote-quote-help-buffer (help-call title-format item)
-  "Perform a help command and boxquote the output.
-
-HELP-CALL is a function that calls the help command.
-
-TITLE-FORMAT is the `format' string to use to product the boxquote title.
-
-ITEM is a function for retrieving the item to get help on."
-  (let ((one-window-p (one-window-p)))
-    (boxquote-text
-     (save-window-excursion
-       (funcall help-call)
-       (with-current-buffer (boxquote-help-buffer-name (funcall item))
-         (buffer-substring-no-properties (point-min) (point-max)))))
-    (boxquote-title (format title-format (funcall item)))
-    (when one-window-p
-      (delete-other-windows))))
-
 ;;;###autoload
 (defun boxquote-describe-function (function)
   "Call `describe-function' and boxquote the output into the current buffer."
@@ -441,6 +415,32 @@ ITEM is a function for retrieving the item to get help on."
       (describe-variable (intern variable)))))
   (boxquote-title (format boxquote-describe-variable-title-format variable)))
 
+(defun boxquote-help-buffer-name (item)
+  "Return the name of the help buffer associated with ITEM."
+  (if (boxquote-xemacs-p)
+      (loop for buffer in (symbol-value 'help-buffer-list)
+            when (string-match (concat "^*Help:.*`" item "'") buffer)
+            return buffer)
+    "*Help*"))
+
+(defun boxquote-quote-help-buffer (help-call title-format item)
+  "Perform a help command and boxquote the output.
+
+HELP-CALL is a function that calls the help command.
+
+TITLE-FORMAT is the `format' string to use to product the boxquote title.
+
+ITEM is a function for retrieving the item to get help on."
+  (let ((one-window-p (one-window-p)))
+    (boxquote-text
+     (save-window-excursion
+       (funcall help-call)
+       (with-current-buffer (boxquote-help-buffer-name (funcall item))
+         (buffer-substring-no-properties (point-min) (point-max)))))
+    (boxquote-title (format title-format (funcall item)))
+    (when one-window-p
+      (delete-other-windows))))
+
 ;;;###autoload
 (defun boxquote-describe-key (key)
   "Call `describe-key' on KEY and boxquote the output into the current buffer.