From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Subject: [PATCH] emacs: Fill package description in Info buffers. Date: Mon, 13 Jul 2015 22:08:11 +0200 Message-ID: <1436818091-6524-1-git-send-email-ludo@gnu.org> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:51133) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZEk1p-0006u2-3d for guix-devel@gnu.org; Mon, 13 Jul 2015 16:08:42 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZEk1l-0003xd-UP for guix-devel@gnu.org; Mon, 13 Jul 2015 16:08:41 -0400 List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org Cc: alezost@gmail.com * emacs/guix-info.el (guix-package-info-insert-heading): Add call to 'fill-region'. --- emacs/guix-info.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/emacs/guix-info.el b/emacs/guix-info.el index bb21024..1e03d65 100644 --- a/emacs/guix-info.el +++ b/emacs/guix-info.el @@ -494,8 +494,11 @@ Show package name, version, and `guix-package-info-heading-params'." (face (guix-get-symbol (symbol-name param) 'info 'package))) (when val - (guix-format-insert val (and (facep face) face)) - (insert "\n\n")))) + (let ((begin (point)) + (fill-column (min (window-width) 72))) + (guix-format-insert val (and (facep face) face)) + (fill-region begin (point)) + (insert "\n\n"))))) guix-package-info-heading-params)) (defun guix-package-info-insert-with-heading (entry) -- 2.4.3