From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Schwab Newsgroups: gmane.emacs.bugs Subject: bug#18652: 25.0.50; [PATCH] Add fresh-line Date: Tue, 07 Oct 2014 15:21:18 +0200 Message-ID: References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1412688145 28707 80.91.229.3 (7 Oct 2014 13:22:25 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 7 Oct 2014 13:22:25 +0000 (UTC) Cc: 18652@debbugs.gnu.org To: Leo Liu Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Oct 07 15:22:17 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@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 1XbUiX-0001zy-KB for geb-bug-gnu-emacs@m.gmane.org; Tue, 07 Oct 2014 15:22:17 +0200 Original-Received: from localhost ([::1]:58827 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XbUiX-0000zj-7t for geb-bug-gnu-emacs@m.gmane.org; Tue, 07 Oct 2014 09:22:17 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:50928) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XbUiO-0000zY-79 for bug-gnu-emacs@gnu.org; Tue, 07 Oct 2014 09:22:14 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XbUiI-0005cG-5X for bug-gnu-emacs@gnu.org; Tue, 07 Oct 2014 09:22:08 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:44693) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XbUiI-0005cC-3N for bug-gnu-emacs@gnu.org; Tue, 07 Oct 2014 09:22:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1XbUiH-0001KC-My for bug-gnu-emacs@gnu.org; Tue, 07 Oct 2014 09:22:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Andreas Schwab Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 07 Oct 2014 13:22:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 18652 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch Original-Received: via spool by 18652-submit@debbugs.gnu.org id=B18652.14126880855046 (code B ref 18652); Tue, 07 Oct 2014 13:22:01 +0000 Original-Received: (at 18652) by debbugs.gnu.org; 7 Oct 2014 13:21:25 +0000 Original-Received: from localhost ([127.0.0.1]:36257 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XbUhg-0001JJ-DP for submit@debbugs.gnu.org; Tue, 07 Oct 2014 09:21:24 -0400 Original-Received: from cantor2.suse.de ([195.135.220.15]:57635 helo=mx2.suse.de) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XbUhc-0001J1-8z for 18652@debbugs.gnu.org; Tue, 07 Oct 2014 09:21:21 -0400 Original-Received: from relay2.suse.de (charybdis-ext.suse.de [195.135.220.254]) by mx2.suse.de (Postfix) with ESMTP id 2FE09ACDC; Tue, 7 Oct 2014 13:21:19 +0000 (UTC) X-Yow: I'm EXCITED!! I want a FLANK STEAK WEEK-END!! I think I'm JULIA CHILD!! In-Reply-To: (Leo Liu's message of "Tue, 07 Oct 2014 21:03:05 +0800") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:94227 Archived-At: Leo Liu writes: > I often find myself wanting to start printing at a newline and it is a > lot of work to do it properly. I wonder if we can add something along > these lines? What's wrong with this: (defun fresh-line (printcharfun) "Output a newline unless already at the beginning of a line. Value is non-nil if a newline is printed. Do nothing and return nil if PRINTCHARFUN is a function." (or printcharfun (setq printcharfun standard-output)) (and (not (functionp printcharfun)) (not (bolp)) (princ "\n" printcharfun))) Andreas. -- Andreas Schwab, SUSE Labs, schwab@suse.de GPG Key fingerprint = 0196 BAD8 1CE9 1970 F4BE 1748 E4D4 88E3 0EEA B9D7 "And now for something completely different."