(describe-function): Print the arglist if the function is bytecode or a list.

lisp/help.el

@@ -311,10 +311,24 @@ C-w print information on absence of warranty for GNU Emacs."
 ;;;			    (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))))