From 275b59b05de94c37ae17273fe6029b487857c3a8 Mon Sep 17 00:00:00 2001 From: Noah Friedman Date: Fri, 6 May 2011 12:59:17 -0700 Subject: apropos.el (apropos-print-doc): Only use emacs-lisp-docstring-fill-column when it is bound to an integer, per that variable's documentation. --- lisp/apropos.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/apropos.el') diff --git a/lisp/apropos.el b/lisp/apropos.el index f1baee8dafe..d3d66f2a070 100644 --- 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))))) -- cgit v1.2.1