From 2a62e5149e260bcc208893e05d7191df97e9baf0 Mon Sep 17 00:00:00 2001
From: zech <not.to.miss@gmail.com>
Date: Mon, 11 Feb 2013 20:04:08 -0700
Subject: [PATCH] correct a typo

jump to the help window when the help buffer is launched
---
 workgroups.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/workgroups.el b/workgroups.el
index 4dccd65..b61d808 100644
--- a/workgroups.el
+++ b/workgroups.el
@@ -2048,13 +2048,15 @@ The string is passed through a format arg to escape %'s."
 (defun wg-help ()
   "Display Workgroups' help buffer."
   (interactive)
-  (with-output-to-temp-buffer "*workroups help*"
+  (let ((wg-help-buffer-name "*workgroups help*"))
+  (with-output-to-temp-buffer wg-help-buffer-name
     (princ  "Workgroups' keybindings:\n\n")
     (dolist (elt (wg-partition wg-help 2))
       (wg-dbind (cmd help-string) elt
         (princ (format "%15s   %s\n"
                        (substitute-command-keys cmd)
-                       help-string))))))
+                       help-string)))))
+  (pop-to-buffer (get-buffer wg-help-buffer-name))))
 
 
 ;;; keymap