(gnus-article-describe-key-briefly): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a441bbf..cc65177 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2000-11-20 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (gnus-article-describe-key): New function.
+       (gnus-article-describe-key-briefly): New function.
 
 2000-11-19 23:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index fcaa358..0c5555e 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2721,6 +2721,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
   "\C-c\C-i" gnus-info-find-node
   "\C-c\C-b" gnus-bug
   "\C-hk" gnus-article-describe-key
+  "\C-hc" gnus-article-describe-key-briefly
 
   "\C-d" gnus-article-read-summary-keys
   "\M-*" gnus-article-read-summary-keys
@@ -4056,18 +4057,25 @@ Argument LINES specifies lines to be scrolled down."
                        (events-to-keys (read-key-sequence nil))
                      (read-key-sequence nil))))
        (message "")
-       (let ((defn (key-binding key)))
-         (if (or (null defn) (integerp defn))
-             (message "%s is undefined" (key-description key))
-           (with-output-to-temp-buffer "*Help*"
-             (princ (key-description key))
-             (princ " runs the command ")
-             (prin1 defn)
-             (princ " in the article buffer.\n   which is ")
-             (describe-function-1 defn nil (interactive-p))
-             (print-help-return-message)))))
+       (describe-key key))
     (describe-key key)))
 
+(defun gnus-article-describe-key-briefly (key &optional insert)
+  "Display documentation of the function invoked by KEY.  KEY is a string."
+  (interactive "kDescribe key: \nP")
+  (gnus-article-check-buffer)
+  (if (eq (key-binding key) 'gnus-article-read-summary-keys)
+      (save-excursion
+       (set-buffer gnus-article-current-summary)
+       (let (gnus-pick-mode)
+         (push (elt key 0) unread-command-events)
+         (setq key (if (featurep 'xemacs)
+                       (events-to-keys (read-key-sequence nil))
+                     (read-key-sequence nil))))
+       (message "")
+       (describe-key-briefly key insert))
+    (describe-key-briefly key insert)))
+
 (defun gnus-article-hide (&optional arg force)
   "Hide all the gruft in the current article.
 This means that PGP stuff, signatures, cited text and (some)