# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 730098388 0
# Node ID 1ed971f67bfd8812a9bbdf03c36eb0d1af27f524
# Parent  86ff3942d7e1a21f1ba5adada6d0c98f271f5e44
(describe-function): Print the arglist if the function is bytecode or a list.

diff -r 86ff3942d7e1 -r 1ed971f67bfd lisp/help.el
--- a/lisp/help.el	Fri Feb 19 04:14:25 1993 +0000
+++ b/lisp/help.el	Fri Feb 19 05:06:28 1993 +0000
@@ -311,10 +311,24 @@
 ;;;			    (nth 1 def)
 			    ))
 		   (t "")))
-      (terpri))
-    (if (documentation function)
-        (princ (documentation function))
-      (princ "not documented"))
+      (terpri)
+      (if (documentation function)
+	  (princ (documentation function))
+	(princ "not documented"))
+      (cond ((byte-code-function-p def)
+	     (save-excursion
+	       (set-buffer standard-output)
+	       (or (eq (char-after (1- (point-max))) ?\n)
+		   (terpri)))
+	     (terpri)
+	     (princ (car (append def nil))))
+	    ((eq (car-safe def) 'lambda)
+	     (save-excursion
+	       (set-buffer standard-output)
+	       (or (eq (char-after (1- (point-max))) ?\n)
+		   (terpri)))
+	     (terpri)
+	     (princ (nth 1 def)))))
     (print-help-return-message)
     ;; Return the text we displayed.
     (save-excursion (set-buffer standard-output) (buffer-string))))