From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juanma Barranquero Newsgroups: gmane.emacs.bugs Subject: bug#13032: 24.3.50; Request: Provide a `delete-duplicate-lines' command Date: Thu, 29 Nov 2012 21:49:47 +0100 Message-ID: References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 X-Trace: ger.gmane.org 1354222269 16366 80.91.229.3 (29 Nov 2012 20:51:09 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 29 Nov 2012 20:51:09 +0000 (UTC) Cc: 13032@debbugs.gnu.org To: Dani Moncayo Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Nov 29 21:51:21 2012 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 1TeB4m-0006nb-4x for geb-bug-gnu-emacs@m.gmane.org; Thu, 29 Nov 2012 21:51:16 +0100 Original-Received: from localhost ([::1]:48208 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TeB4a-0002L6-VC for geb-bug-gnu-emacs@m.gmane.org; Thu, 29 Nov 2012 15:51:04 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:60385) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TeB4Y-0002K7-BW for bug-gnu-emacs@gnu.org; Thu, 29 Nov 2012 15:51:03 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TeB4X-00088m-Cf for bug-gnu-emacs@gnu.org; Thu, 29 Nov 2012 15:51:02 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:35392) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TeB4X-00088i-9G for bug-gnu-emacs@gnu.org; Thu, 29 Nov 2012 15:51:01 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1TeB6U-0002dN-BL for bug-gnu-emacs@gnu.org; Thu, 29 Nov 2012 15:53:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Juanma Barranquero Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 29 Nov 2012 20:53:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 13032 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 13032-submit@debbugs.gnu.org id=B13032.135422235410084 (code B ref 13032); Thu, 29 Nov 2012 20:53:02 +0000 Original-Received: (at 13032) by debbugs.gnu.org; 29 Nov 2012 20:52:34 +0000 Original-Received: from localhost ([127.0.0.1]:45643 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TeB61-0002ca-UA for submit@debbugs.gnu.org; Thu, 29 Nov 2012 15:52:34 -0500 Original-Received: from mail-ee0-f44.google.com ([74.125.83.44]:54965) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TeB60-0002cT-Dr for 13032@debbugs.gnu.org; Thu, 29 Nov 2012 15:52:33 -0500 Original-Received: by mail-ee0-f44.google.com with SMTP id b47so9293952eek.3 for <13032@debbugs.gnu.org>; Thu, 29 Nov 2012 12:50:28 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:from:date:message-id:subject:to :cc:content-type; bh=FbVh9AvUvK34Imscu51Hh8l1llrrQG1oKoRbNt7VTDw=; b=Bhm/Op8TfSCBJ5jYP5hBnAuBgZMtqCYrv0Qusc9yudNevmyRDeAbsI9ojIAMwzC+QG gi7/I7yFufeTeOVEW1CH1V3IbxfVFJVbRJB40v1I9rjLk9pdVUqo87tWKaqFMgpFmhRP 1W5V+4f3I/M3lJH5yV6L3E5wL9oM68M9n0Nw7mZsMZo9T+pDE3xzAco+AQ3zl7lSEhkB Qj0lZGjsYw5a2Vl5bH+nTMeFyJn3aAaWqA/HC0B0McAajvYzA0Mjj5C6pXz2mNPKzOVk jC7y7lSt5SKcQ0KTz02vAruKsTUvVGv+4dLseSgMl3JzV7n9Eq0O08HzLmXkOQuYHwub gsGg== Original-Received: by 10.14.203.2 with SMTP id e2mr85906453eeo.20.1354222228753; Thu, 29 Nov 2012 12:50:28 -0800 (PST) Original-Received: by 10.223.4.209 with HTTP; Thu, 29 Nov 2012 12:49:47 -0800 (PST) In-Reply-To: X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.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:67605 Archived-At: On Thu, Nov 29, 2012 at 8:23 PM, Dani Moncayo wrote: > Severity: wishlist > That is: provide a function `delete-duplicate-lines' (or some such) > that removes all duplicate lines in the active region and prints in > the echo area a message like "Duplicate lines removed: ". Perhaps you can work from this (not very well tested): (defun delete-duplicate-lines (beg end) "Delete consecutive duplicate lines in region BEG..END." (interactive "r") (save-excursion (save-restriction (narrow-to-region beg end) (goto-char beg) (let ((kill-whole-line t) (last (buffer-substring (line-beginning-position) (line-end-position))) (removed 0) current) (forward-line 1) (while (and (< (point) (or end 1)) (not (eobp))) (setq current (buffer-substring (line-beginning-position) (line-end-position))) (if (string= last current) (progn (kill-line) (setq removed (1+ removed))) (setq last current) (forward-line 1))) (message "Duplicate lines removed: %d" removed)))))