From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Tak Ota Newsgroups: gmane.emacs.devel Subject: uniq Date: Fri, 3 Dec 2010 18:41:12 -0800 Message-ID: <20101203.184112.37434497.Takaaki.Ota@am.sony.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: dough.gmane.org 1291430483 14728 80.91.229.12 (4 Dec 2010 02:41:23 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sat, 4 Dec 2010 02:41:23 +0000 (UTC) To: Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Dec 04 03:41:18 2010 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1POi3p-00068V-6i for ged-emacs-devel@m.gmane.org; Sat, 04 Dec 2010 03:41:17 +0100 Original-Received: from localhost ([127.0.0.1]:59043 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1POi3o-00080v-Kp for ged-emacs-devel@m.gmane.org; Fri, 03 Dec 2010 21:41:16 -0500 Original-Received: from [140.186.70.92] (port=33502 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1POi3j-00080f-1s for emacs-devel@gnu.org; Fri, 03 Dec 2010 21:41:11 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1POi3i-0003Km-4X for emacs-devel@gnu.org; Fri, 03 Dec 2010 21:41:10 -0500 Original-Received: from tx2ehsobe004.messaging.microsoft.com ([65.55.88.14]:12148 helo=TX2EHSOBE008.bigfish.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1POi3i-0003Kd-0d for emacs-devel@gnu.org; Fri, 03 Dec 2010 21:41:10 -0500 Original-Received: from mail75-tx2-R.bigfish.com (10.9.14.244) by TX2EHSOBE008.bigfish.com (10.9.40.28) with Microsoft SMTP Server id 14.1.225.8; Sat, 4 Dec 2010 02:41:08 +0000 Original-Received: from mail75-tx2 (localhost.localdomain [127.0.0.1]) by mail75-tx2-R.bigfish.com (Postfix) with ESMTP id 890301990142 for ; Sat, 4 Dec 2010 02:41:08 +0000 (UTC) X-SpamScore: 0 X-BigFish: VPS0(zzzz1202hzzz2fh2a8h668h66h) X-Forefront-Antispam-Report: KIP:(null); UIP:(null); IPVD:NLI; H:mail7.fw-bc.sony.com; RD:mail7.fw-bc.sony.com; EFVD:NLI Original-Received: from mail75-tx2 (localhost.localdomain [127.0.0.1]) by mail75-tx2 (MessageSwitch) id 1291430468470218_29937; Sat, 4 Dec 2010 02:41:08 +0000 (UTC) Original-Received: from TX2EHSMHS004.bigfish.com (unknown [10.9.14.252]) by mail75-tx2.bigfish.com (Postfix) with ESMTP id 65EE6178005C for ; Sat, 4 Dec 2010 02:41:08 +0000 (UTC) Original-Received: from mail7.fw-bc.sony.com (160.33.98.74) by TX2EHSMHS004.bigfish.com (10.9.99.104) with Microsoft SMTP Server (TLS) id 14.1.225.8; Sat, 4 Dec 2010 02:41:07 +0000 Original-Received: from mail1x.bc.in.sel.sony.com ([43.144.65.112]) by mail7.fw-bc.sony.com (Switch-3.4.2/Switch-3.3.2mp) with ESMTP id oB42f57c006296 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=FAIL) for ; Sat, 4 Dec 2010 02:41:06 GMT Original-Received: from localhost (tak-vaio-z1290-043191017095.am.sony.com [43.191.17.95]) by mail1x.bc.in.sel.sony.com (Switch-3.4.2/Switch-3.4.2) with ESMTP id oB42f4XG008238 for ; Sat, 4 Dec 2010 02:41:05 GMT X-Mailer: Mew-6.3.50 on Emacs-23.2.90.1 (i386-mingw-nt6.1.7600 built on 2010-11-22) X-OriginatorOrg: am.sony.com X-detected-operating-system: by eggs.gnu.org: Windows 2000 SP2+, XP SP1+ (seldom 98) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:133386 Archived-At: Do we have something equivalent to the next command? I know the name is bad as it is not same as UNIQ(1). It works better because sorting is not required. -Tak ;; ;; uniq ;; (defun uniq () "Omit duplicated lines." (interactive) (save-excursion (goto-char (point-min)) (while (not (= (point) (point-max))) (let* ((start (point)) (str (format "^%s" (regexp-quote (buffer-substring start (progn (forward-line 1) (point))))))) (save-excursion (while (re-search-forward str nil t) (delete-region (match-beginning 0) (match-end 0))))))))