From unknown Sun Jun 15 10:57:18 2025 X-Loop: don@donarmstrong.com Subject: bug#864: 23.0.60; Info-dir-remove-duplicates fails to remove duplicates Reply-To: "Joshua S." , 864@debbugs.gnu.org Resent-From: "Joshua S." Resent-To: bug-submit-list@lists.donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Tue, 02 Sep 2008 15:35:03 +0000 Resent-Message-ID: Resent-Sender: don@donarmstrong.com X-Emacs-PR-Message: report 864 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Received: via spool by submit@emacsbugs.donarmstrong.com id=B.12203691958070 (code B ref -1); Tue, 02 Sep 2008 15:35:03 +0000 X-Spam-Checker-Version: SpamAssassin 3.2.3-bugs.debian.org_2005_01_02 (2007-08-08) on rzlab.ucr.edu X-Spam-Level: X-Spam-Status: No, score=-5.0 required=4.0 tests=BAYES_00,MURPHY_DRUGS_REL8, RCVD_IN_DNSWL_MED,RCVD_IN_SBLXBL,RCVD_IN_SBLXBL_CBL autolearn=ham version=3.2.3-bugs.debian.org_2005_01_02 Received: (at submit) by emacsbugs.donarmstrong.com; 2 Sep 2008 15:26:35 +0000 Received: from fencepost.gnu.org (fencepost.gnu.org [140.186.70.10]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m82FQVVf008060 for ; Tue, 2 Sep 2008 08:26:33 -0700 Received: from mx10.gnu.org ([199.232.76.166]:39879) by fencepost.gnu.org with esmtp (Exim 4.67) (envelope-from ) id 1KaXkU-00055T-4z for emacs-pretest-bug@gnu.org; Tue, 02 Sep 2008 11:24:54 -0400 Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1KaXlx-0000VI-3o for emacs-pretest-bug@gnu.org; Tue, 02 Sep 2008 11:26:29 -0400 Received: from watcher1.invoice.ne.jp ([202.235.198.2]:42134) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1KaXlw-0000UX-Ii for emacs-pretest-bug@gnu.org; Tue, 02 Sep 2008 11:26:24 -0400 Received: from [202.235.198.20] ([202.235.198.20]) by watcher1.invoice.ne.jp ([202.235.198.2]) with ESMTP id 1220369176.61737.1774185392.watcher1 for ; Wed, 03 Sep 2008 00:26:16 +0900 (JST) Received: (qmail 24023 invoked from network); 3 Sep 2008 00:26:26 +0900 Received: from unknown (HELO ?192.168.0.81?) (220.110.237.245) by george.george24.com with SMTP; 3 Sep 2008 00:26:26 +0900 Message-ID: <48BD5B1B.3020409@george24.com> Date: Wed, 03 Sep 2008 00:26:19 +0900 From: "Joshua S." User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.2pre) Gecko/2008082101 SeaMonkey/2.0a1pre MIME-Version: 1.0 To: emacs-pretest-bug@gnu.org X-TERRACE-DUMMYSUBJECT: Terrace Spam system * Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-TERRACE-SPAMMARK: NO (SR:11.59) (by Terrace) X-TERRACE-CLASSID: type=NO,str=0001.0A150204.48BD5B1B.00AF:SCFSTAT1346166,ss=1,fgs=0 X-detected-kernel: by monty-python.gnu.org: Linux 2.6, seldom 2.4 (older, 4) Hi, I use NTEmacs with Cygwin, and something like this in my ~/.emacs. (setq Info-directory-list (list (expand-file-name "../info" data-directory) "c:/cygwin/usr/share/info")) Then the Info Directory Node lists some duplicated items. I did bellow patch to fix this. (You know, I am not a good Lisp programmer.) Index: lisp/info.el =================================================================== RCS file: /sources/emacs/emacs/lisp/info.el,v retrieving revision 1.541 diff -u -d -w -r1.541 info.el --- lisp/info.el 30 Aug 2008 20:16:36 -0000 1.541 +++ lisp/info.el 2 Sep 2008 15:05:54 -0000 @@ -1222,9 +1222,10 @@ ;; Fold case straight away; `member-ignore-case' here wasteful. (let ((x (downcase (match-string 1)))) (if (member x seen) - (delete-region (match-beginning 0) + (progn (delete-region (match-beginning 0) (progn (re-search-forward "^[^ \t]" nil t) (match-beginning 0))) + (forward-line 0)) (push x seen)))))))))) ;; Note that on entry to this function the current-buffer must be the From unknown Sun Jun 15 10:57:18 2025 X-Loop: don@donarmstrong.com Subject: bug#864: 23.0.60; Info-dir-remove-duplicates fails to remove duplicates Reply-To: martin rudalics , 864@debbugs.gnu.org Resent-From: martin rudalics Resent-To: bug-submit-list@lists.donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Wed, 03 Sep 2008 06:55:04 +0000 Resent-Message-ID: Resent-Sender: don@donarmstrong.com X-Emacs-PR-Message: report 864 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Received: via spool by 864-submit@emacsbugs.donarmstrong.com id=B864.12204245034166 (code B ref 864); Wed, 03 Sep 2008 06:55:04 +0000 X-Spam-Checker-Version: SpamAssassin 3.2.3-bugs.debian.org_2005_01_02 (2007-08-08) on rzlab.ucr.edu X-Spam-Level: X-Spam-Status: No, score=-6.1 required=4.0 tests=AWL,BAYES_00,HAS_BUG_NUMBER, MIXEDBDN,MURPHY_DRUGS_REL8 autolearn=ham version=3.2.3-bugs.debian.org_2005_01_02 Received: (at 864) by emacsbugs.donarmstrong.com; 3 Sep 2008 06:48:23 +0000 Received: from mail.gmx.net (mail.gmx.net [213.165.64.20]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with SMTP id m836mIH1004082 for <864@emacsbugs.donarmstrong.com>; Tue, 2 Sep 2008 23:48:20 -0700 Received: (qmail invoked by alias); 03 Sep 2008 06:48:12 -0000 Received: from 62-47-60-155.adsl.highway.telekom.at (EHLO [62.47.60.155]) [62.47.60.155] by mail.gmx.net (mp067) with SMTP; 03 Sep 2008 08:48:12 +0200 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX1+O/7lJ+6WOvyflzXx4M0j7dsEydbN71Io5UXb5Jr 8Hf2CjVUOE2Vw8 Message-ID: <48BE3216.6020304@gmx.at> Date: Wed, 03 Sep 2008 08:43:34 +0200 From: martin rudalics User-Agent: Thunderbird 2.0.0.16 (Windows/20080708) MIME-Version: 1.0 To: "Joshua S." , 864@debbugs.gnu.org References: <48BD5B1B.3020409@george24.com> In-Reply-To: <48BD5B1B.3020409@george24.com> Content-Type: multipart/mixed; boundary="------------080504060803020008000501" X-Y-GMX-Trusted: 0 X-FuHaFi: 0.63,0.61 This is a multi-part message in MIME format. --------------080504060803020008000501 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit > I did bellow patch to fix this. (You know, I am not a good Lisp > programmer.) > > Index: lisp/info.el > =================================================================== > RCS file: /sources/emacs/emacs/lisp/info.el,v > retrieving revision 1.541 > diff -u -d -w -r1.541 info.el > --- lisp/info.el 30 Aug 2008 20:16:36 -0000 1.541 > +++ lisp/info.el 2 Sep 2008 15:05:54 -0000 > @@ -1222,9 +1222,10 @@ > ;; Fold case straight away; `member-ignore-case' here wasteful. > (let ((x (downcase (match-string 1)))) > (if (member x seen) > - (delete-region (match-beginning 0) > + (progn (delete-region (match-beginning 0) > (progn (re-search-forward "^[^ \t]" nil t) > (match-beginning 0))) > + (forward-line 0)) > (push x seen)))))))))) > > ;; Note that on entry to this function the current-buffer must be the Looks good to me. However, could you try the attached patch instead which also does away with the quite obscure "limit" thing. martin --------------080504060803020008000501 Content-Type: text/plain; name="864.diff" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="864.diff" *** info.el.~1.541.~ 2008-08-31 09:48:43.390625000 +0200 --- info.el 2008-09-03 08:33:07.734375000 +0200 *************** *** 1213,1231 **** (delete-region (1- (point)) (point)))) ;; Now remove duplicate entries under the same heading. ! (let ((seen nil) ! (limit (point-marker))) ! (goto-char start) ! (while (and (> limit (point)) ! (re-search-forward "^* \\([^:\n]+:\\(:\\|[^.\n]+\\).\\)" ! limit 'move)) ! ;; Fold case straight away; `member-ignore-case' here wasteful. ! (let ((x (downcase (match-string 1)))) ! (if (member x seen) ! (delete-region (match-beginning 0) ! (progn (re-search-forward "^[^ \t]" nil t) ! (match-beginning 0))) ! (push x seen)))))))))) ;; Note that on entry to this function the current-buffer must be the ;; *info* buffer; not the info tags buffer. --- 1213,1232 ---- (delete-region (1- (point)) (point)))) ;; Now remove duplicate entries under the same heading. ! (let (seen) ! (save-restriction ! (narrow-to-region start (point)) ! (goto-char (point-min)) ! (while (re-search-forward "^* \\([^:\n]+:\\(:\\|[^.\n]+\\).\\)" nil 'move) ! ;; Fold case straight away; `member-ignore-case' here wasteful. ! (let ((x (downcase (match-string 1)))) ! (if (member x seen) ! (delete-region ! (match-beginning 0) ! (if (re-search-forward "^[^ \t]" nil 'move) ! (goto-char (match-beginning 0)) ! (point-max))) ! (push x seen))))))))))) ;; Note that on entry to this function the current-buffer must be the ;; *info* buffer; not the info tags buffer. --------------080504060803020008000501-- From unknown Sun Jun 15 10:57:18 2025 X-Loop: don@donarmstrong.com Subject: bug#864: 23.0.60; Info-dir-remove-duplicates fails to remove duplicates Reply-To: "Joshua S." , 864@debbugs.gnu.org Resent-From: "Joshua S." Resent-To: bug-submit-list@lists.donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Wed, 03 Sep 2008 10:20:03 +0000 Resent-Message-ID: Resent-Sender: don@donarmstrong.com X-Emacs-PR-Message: report 864 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Received: via spool by 864-submit@emacsbugs.donarmstrong.com id=B864.122043687312221 (code B ref 864); Wed, 03 Sep 2008 10:20:03 +0000 X-Spam-Checker-Version: SpamAssassin 3.2.3-bugs.debian.org_2005_01_02 (2007-08-08) on rzlab.ucr.edu X-Spam-Level: X-Spam-Status: No, score=-4.5 required=4.0 tests=AWL,BAYES_00,HAS_BUG_NUMBER, MURPHY_DRUGS_REL8,RCVD_IN_SBLXBL,RCVD_IN_SBLXBL_CBL autolearn=ham version=3.2.3-bugs.debian.org_2005_01_02 Received: (at 864) by emacsbugs.donarmstrong.com; 3 Sep 2008 10:14:33 +0000 Received: from watcher1.invoice.ne.jp (watcher1.invoice.ne.jp [202.235.198.2]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m83AETVR012215 for <864@emacsbugs.donarmstrong.com>; Wed, 3 Sep 2008 03:14:31 -0700 Received: from [202.235.198.20] ([202.235.198.20]) by watcher1.invoice.ne.jp ([202.235.198.2]) with ESMTP id 1220436863.277592.2073000880.watcher1 for <864@emacsbugs.donarmstrong.com>; Wed, 03 Sep 2008 19:14:23 +0900 (JST) Received: (qmail 7239 invoked from network); 3 Sep 2008 19:14:28 +0900 Received: from unknown (HELO ?192.168.0.81?) (220.110.237.245) by george.george24.com with SMTP; 3 Sep 2008 19:14:28 +0900 Message-ID: <48BE637F.5090306@george24.com> Date: Wed, 03 Sep 2008 19:14:23 +0900 From: "Joshua S." User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.2pre) Gecko/2008090223 SeaMonkey/2.0a1pre MIME-Version: 1.0 To: 864@debbugs.gnu.org X-TERRACE-DUMMYSUBJECT: Terrace Spam system * References: <48BD5B1B.3020409@george24.com> <48BE3216.6020304@gmx.at> In-Reply-To: <48BE3216.6020304@gmx.at> Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-TERRACE-SPAMMARK: NO (SR:5.12) (by Terrace) X-TERRACE-CLASSID: type=NO,str=0001.0A150204.48BE637F.00A8:SCFSTAT1346166,ss=1,fgs=0 martin rudalics wrote: > Looks good to me. However, could you try the attached patch instead > which also does away with the quite obscure "limit" thing. > Looks better to me. Thanks. // From unknown Sun Jun 15 10:57:18 2025 X-Loop: don@donarmstrong.com Subject: bug#864: 23.0.60; Info-dir-remove-duplicates fails to remove duplicates Reply-To: martin rudalics , 864@debbugs.gnu.org Resent-From: martin rudalics Resent-To: bug-submit-list@lists.donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Thu, 04 Sep 2008 08:25:04 +0000 Resent-Message-ID: Resent-Sender: don@donarmstrong.com X-Emacs-PR-Message: report 864 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Received: via spool by 864-submit@emacsbugs.donarmstrong.com id=B864.122051643218026 (code B ref 864); Thu, 04 Sep 2008 08:25:04 +0000 X-Spam-Checker-Version: SpamAssassin 3.2.3-bugs.debian.org_2005_01_02 (2007-08-08) on rzlab.ucr.edu X-Spam-Level: X-Spam-Status: No, score=-6.6 required=4.0 tests=AWL,BAYES_00,HAS_BUG_NUMBER autolearn=ham version=3.2.3-bugs.debian.org_2005_01_02 Received: (at 864) by emacsbugs.donarmstrong.com; 4 Sep 2008 08:20:32 +0000 Received: from mail.gmx.net (mail.gmx.net [213.165.64.20]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with SMTP id m848KSaD017565 for <864@emacsbugs.donarmstrong.com>; Thu, 4 Sep 2008 01:20:29 -0700 Received: (qmail invoked by alias); 04 Sep 2008 08:20:22 -0000 Received: from 62-47-61-227.adsl.highway.telekom.at (EHLO [62.47.61.227]) [62.47.61.227] by mail.gmx.net (mp029) with SMTP; 04 Sep 2008 10:20:22 +0200 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX1/1M6YrXaP1H3qPx4wFxYVTYrnLntAtpg1dumJs51 T0csImaNQewG2O Message-ID: <48BF99BD.7060302@gmx.at> Date: Thu, 04 Sep 2008 10:18:05 +0200 From: martin rudalics User-Agent: Thunderbird 2.0.0.16 (Windows/20080708) MIME-Version: 1.0 To: "Joshua S." , 864@debbugs.gnu.org References: <48BD5B1B.3020409@george24.com> <48BE3216.6020304@gmx.at> <48BE637F.5090306@george24.com> In-Reply-To: <48BE637F.5090306@george24.com> Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Y-GMX-Trusted: 0 X-FuHaFi: 0.87 > Looks better to me. Thanks. I checked that in. Please watch out for any anomalies. Thanks, martin. From unknown Sun Jun 15 10:57:18 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.420 (Entity 5.420) X-Loop: don@donarmstrong.com From: help-debbugs@gnu.org (Emacs bug Tracking System) To: "Joshua S." Subject: bug#864 closed by martin rudalics (Re: bug#864: 23.0.60; Info-dir-remove-duplicates fails to remove duplicates) Message-ID: References: <48C3A76B.1020604@gmx.at> <48BD5B1B.3020409@george24.com> X-Emacs-PR-Message: they-closed 864 X-Emacs-PR-Package: emacs Reply-To: 864@debbugs.gnu.org Content-Type: multipart/mixed; boundary="----------=_1220783404-11332-1" This is a multi-part message in MIME format... ------------=_1220783404-11332-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" This is an automatic notification regarding your bug report which was filed against the emacs package: #864: 23.0.60; Info-dir-remove-duplicates fails to remove duplicates It has been closed by martin rudalics . Their explanation is attached below along with your original report. If this explanation is unsatisfactory and you have not received a better one in a separate message then please contact martin rudalics by replying to this email. --=20 864: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D864 Emacs Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1220783404-11332-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit >From rudalics@gmx.at Sun Sep 7 03:23:33 2008 X-Spam-Checker-Version: SpamAssassin 3.2.3-bugs.debian.org_2005_01_02 (2007-08-08) on rzlab.ucr.edu X-Spam-Level: X-Spam-Status: No, score=-6.6 required=4.0 tests=AWL,BAYES_00,HAS_BUG_NUMBER autolearn=ham version=3.2.3-bugs.debian.org_2005_01_02 Received: (at 864-done) by emacsbugs.donarmstrong.com; 7 Sep 2008 10:23:33 +0000 Received: from mail.gmx.net (mail.gmx.net [213.165.64.20]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with SMTP id m87ANTf5009273 for <864-done@emacsbugs.donarmstrong.com>; Sun, 7 Sep 2008 03:23:31 -0700 Received: (qmail invoked by alias); 07 Sep 2008 10:23:23 -0000 Received: from 62-47-37-223.adsl.highway.telekom.at (EHLO [62.47.37.223]) [62.47.37.223] by mail.gmx.net (mp023) with SMTP; 07 Sep 2008 12:23:23 +0200 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX18Rur1ndlARFokf0pdKuyhUU35R19kV5RjEi4c9OP cSPDs/06aHsQYX Message-ID: <48C3A76B.1020604@gmx.at> Date: Sun, 07 Sep 2008 12:05:31 +0200 From: martin rudalics User-Agent: Thunderbird 2.0.0.16 (Windows/20080708) MIME-Version: 1.0 To: 864-done@debbugs.gnu.org CC: "Joshua S." Subject: Re: bug#864: 23.0.60; Info-dir-remove-duplicates fails to remove duplicates Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 7bit X-Y-GMX-Trusted: 0 X-FuHaFi: 0.7 Fixed as 2008-09-04 Martin Rudalics * info.el (Info-dir-remove-duplicates): Narrow buffer when removing duplicate entries under same heading. Don't skip char matching anything but a space or tab at bol. (Bug#864) Thanks ------------=_1220783404-11332-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit >From viking_r@george24.com Tue Sep 2 08:26:35 2008 X-Spam-Checker-Version: SpamAssassin 3.2.3-bugs.debian.org_2005_01_02 (2007-08-08) on rzlab.ucr.edu X-Spam-Level: X-Spam-Status: No, score=-5.0 required=4.0 tests=BAYES_00,MURPHY_DRUGS_REL8, RCVD_IN_DNSWL_MED,RCVD_IN_SBLXBL,RCVD_IN_SBLXBL_CBL autolearn=ham version=3.2.3-bugs.debian.org_2005_01_02 Received: (at submit) by emacsbugs.donarmstrong.com; 2 Sep 2008 15:26:35 +0000 Received: from fencepost.gnu.org (fencepost.gnu.org [140.186.70.10]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m82FQVVf008060 for ; Tue, 2 Sep 2008 08:26:33 -0700 Received: from mx10.gnu.org ([199.232.76.166]:39879) by fencepost.gnu.org with esmtp (Exim 4.67) (envelope-from ) id 1KaXkU-00055T-4z for emacs-pretest-bug@gnu.org; Tue, 02 Sep 2008 11:24:54 -0400 Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1KaXlx-0000VI-3o for emacs-pretest-bug@gnu.org; Tue, 02 Sep 2008 11:26:29 -0400 Received: from watcher1.invoice.ne.jp ([202.235.198.2]:42134) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1KaXlw-0000UX-Ii for emacs-pretest-bug@gnu.org; Tue, 02 Sep 2008 11:26:24 -0400 Received: from [202.235.198.20] ([202.235.198.20]) by watcher1.invoice.ne.jp ([202.235.198.2]) with ESMTP id 1220369176.61737.1774185392.watcher1 for ; Wed, 03 Sep 2008 00:26:16 +0900 (JST) Received: (qmail 24023 invoked from network); 3 Sep 2008 00:26:26 +0900 Received: from unknown (HELO ?192.168.0.81?) (220.110.237.245) by george.george24.com with SMTP; 3 Sep 2008 00:26:26 +0900 Message-ID: <48BD5B1B.3020409@george24.com> Date: Wed, 03 Sep 2008 00:26:19 +0900 From: "Joshua S." User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.2pre) Gecko/2008082101 SeaMonkey/2.0a1pre MIME-Version: 1.0 To: emacs-pretest-bug@gnu.org Subject: 23.0.60; Info-dir-remove-duplicates fails to remove duplicates X-TERRACE-DUMMYSUBJECT: Terrace Spam system * Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-TERRACE-SPAMMARK: NO (SR:11.59) (by Terrace) X-TERRACE-CLASSID: type=NO,str=0001.0A150204.48BD5B1B.00AF:SCFSTAT1346166,ss=1,fgs=0 X-detected-kernel: by monty-python.gnu.org: Linux 2.6, seldom 2.4 (older, 4) Hi, I use NTEmacs with Cygwin, and something like this in my ~/.emacs. (setq Info-directory-list (list (expand-file-name "../info" data-directory) "c:/cygwin/usr/share/info")) Then the Info Directory Node lists some duplicated items. I did bellow patch to fix this. (You know, I am not a good Lisp programmer.) Index: lisp/info.el =================================================================== RCS file: /sources/emacs/emacs/lisp/info.el,v retrieving revision 1.541 diff -u -d -w -r1.541 info.el --- lisp/info.el 30 Aug 2008 20:16:36 -0000 1.541 +++ lisp/info.el 2 Sep 2008 15:05:54 -0000 @@ -1222,9 +1222,10 @@ ;; Fold case straight away; `member-ignore-case' here wasteful. (let ((x (downcase (match-string 1)))) (if (member x seen) - (delete-region (match-beginning 0) + (progn (delete-region (match-beginning 0) (progn (re-search-forward "^[^ \t]" nil t) (match-beginning 0))) + (forward-line 0)) (push x seen)))))))))) ;; Note that on entry to this function the current-buffer must be the ------------=_1220783404-11332-1--