(info-insert-file-contents): Inhibit jka-compr messages, which can be pretty annoying

[gnu-emacs] / lisp / apropos.el

diff --git a/lisp/apropos.el b/lisp/apropos.el
index f1baee8dafe4712c2b956bf8acf31c73e2cd2a24..d3d66f2a0703034a760a2263f663227de0321e9a 100644 (file)
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -1133,7 +1133,9 @@ If non-nil TEXT is a string that will be printed as a heading."
            (put-text-property opoint (point) 'font-lock-face 'shadow))
        ;; The labeling buttons might make the line too long, so fill it if
        ;; necessary.
-       (let ((fill-column (+ 5 emacs-lisp-docstring-fill-column))
+       (let ((fill-column (+ 5 (if (integerp emacs-lisp-docstring-fill-column)
+                                    emacs-lisp-docstring-fill-column
+                                  fill-column)))
              (fill-prefix (make-string ocol ?\s)))
          (fill-region opoint (point) nil t)))
       (or (bolp) (terpri)))))