From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Ivan Kanis Newsgroups: gmane.emacs.devel Subject: fill length of visual line mode Date: Thu, 02 Oct 2014 09:48:12 +0200 Message-ID: <87oatu6hfn.fsf@kanis.fr> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1412236232 16067 80.91.229.3 (2 Oct 2014 07:50:32 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 2 Oct 2014 07:50:32 +0000 (UTC) To: Emacs Development List Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Oct 02 09:50:27 2014 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1XZb9d-0001qB-K1 for ged-emacs-devel@m.gmane.org; Thu, 02 Oct 2014 09:50:25 +0200 Original-Received: from localhost ([::1]:60644 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XZb9d-00056h-9l for ged-emacs-devel@m.gmane.org; Thu, 02 Oct 2014 03:50:25 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:37081) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XZb7l-0002LA-7c for emacs-devel@gnu.org; Thu, 02 Oct 2014 03:48:34 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XZb7f-00014T-Ea for emacs-devel@gnu.org; Thu, 02 Oct 2014 03:48:29 -0400 Original-Received: from kanis.fr ([46.19.35.252]:45797 helo=srv2.kanis.fr) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XZb7f-0000tJ-6V for emacs-devel@gnu.org; Thu, 02 Oct 2014 03:48:23 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=kanis.fr; s=alpha; h=Content-Type:MIME-Version:Message-ID:Date:Subject:To:From; bh=ykIsg5s2lLvy0ss9EJxah8rU6ZqZINV9b/i+XmYKpJU=; b=MQrpyon7+8+Lsk5eUeKDyeReWlY2cg/N0I7JKlePdR2kRNfdNrnp+ev9RPXCWB01ujN1wwu2KaFPjK4l5wCax7meKcFDXDFigf04CSqSIDRLxrnuo+UIQvLn3KTAFOCI; Original-Received: from smtp.comencini.fr ([164.138.25.8]) by smtp.comencini.fr with esmtpsa (TLS1.1:DHE_RSA_AES_128_CBC_SHA1:128) (Exim 4.80.1) (envelope-from ) id 1XZb7S-0001AU-UJ for emacs-devel@gnu.org; Thu, 02 Oct 2014 09:48:11 +0200 Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAAXNSR0IArs4c6QAAAB5QTFRF IBkXUxMTOCwoTC4qcUY8iFxQmmper31txpaJ/v/8aKZ1oAAAAcVJREFUOMt100tu2zAQAFDCXnUZ oAcIqG68LZULVLQBbwuSiffm6AIRRyeotAySJoVu2+FPpJWWC3/4NKOZocSW/yxWfnJ2+Bdwzhj7 8gleWVy7DXC2rkMNr2V/zRbghXIwthf3VbIA9Ffc71vZCSFyCEsBggtNS8ludwvfmhYA0Vn9o4DP zMWxR7+cPWzAYFzwM0ModtdmcDbDS6i/hT7L+RZof5yCXGrYe5jn2YO6BYMjgY+51tCIAqHgBLwR pwLnGuRjAKyBJkuN4yd4U92uCY1vUr2D/c5b8DuxyQwfOHUeaLqDJhnkkuGXbB56h2C1IVBdgncc bBi6feroa9B6jUDojnQPQKupbyXyeeCE1oT7Oqrt+SnfY3mkiyGA/3AmD3H5g32CcBx6hY8pRkwJ 9PpcjRGobUfprFnhAa1vepwcgMOhwG+pdSgKHFU9HAvoAH6XUl7lDUCCq5Qb6GMbVm3Aj++qDYCt wdBc/YHgOFCmS3mjDMRcSE2qY4E3Q3PVIQRQmeodNH4QEbRUFZzW+VotzwX4yTcRTySOML1qjcE5 hTirVqDHkMAP0PjAywp3d18JZtqzvr9zDYD+GaSKtE6Zlr/DLPNFmOcvBAAAAABJRU5ErkJggg== User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.93 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.4.x-2.6.x [generic] X-Received-From: 46.19.35.252 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:174927 Archived-At: Hello, I just enabled visual line mode today. I have started using it to display gnus article. I noticed that the fill happens at the width of the Emacs window. I set fill-column to 70 and I was expecting it to wrap there. There is a hack [1] by James Wright to make it work by expanding the right margin of the buffer's window. I don't feel it should be so complicated to customize this behavior. Would it be OK to code wrap at fill-column? Ivan [1] The code on Emacs wiki: (defvar visual-wrap-column nil) (defun set-visual-wrap-column (new-wrap-column &optional buffer) "Force visual line wrap at NEW-WRAP-COLUMN in BUFFER (defaults to current buffer) by setting the right-hand margin on every window that displays BUFFER. A value of NIL or 0 for NEW-WRAP-COLUMN disables this behavior." (interactive (list (read-number "New visual wrap column, 0 to disable: " (or visual-wrap-column fill-column 0)))) (if (and (numberp new-wrap-column) (zerop new-wrap-column)) (setq new-wrap-column nil)) (with-current-buffer (or buffer (current-buffer)) (visual-line-mode t) (set (make-local-variable 'visual-wrap-column) new-wrap-column) (add-hook 'window-configuration-change-hook 'update-visual-wrap-column nil t) (let ((windows (get-buffer-window-list))) (while windows (when (window-live-p (car windows)) (with-selected-window (car windows) (update-visual-wrap-column))) (setq windows (cdr windows)))))) (defun update-visual-wrap-column () (if (not visual-wrap-column) (set-window-margins nil nil) (let* ((current-margins (window-margins)) (right-margin (or (cdr current-margins) 0)) (current-width (window-width)) (current-available (+ current-width right-margin))) (if (<= current-available visual-wrap-column) (set-window-margins nil (car current-margins)) (set-window-margins nil (car current-margins) (- current-available visual-wrap-column))))))