bug#864: marked as done (23.0.60; Info-dir-remove-duplicates fails to remove duplicates)

[don@donarmstrong.com (Emacs bug Tracking System)]

[-- Attachment #1: Type: text/plain, Size: 889 bytes --]


Your message dated Sun, 07 Sep 2008 12:05:31 +0200
with message-id <48C3A76B.1020604@gmx.at>
and subject line Re: bug#864: 23.0.60;	Info-dir-remove-duplicates fails to remove duplicates
has caused the Emacs bug report #864,
regarding 23.0.60; Info-dir-remove-duplicates fails to remove duplicates
to be marked as done.

This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
bug report if necessary, and/or fix the problem forthwith.

(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact don@donarmstrong.com
immediately.)


-- 
864: http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=864
Emacs Bug Tracking System
Contact don@donarmstrong.com with problems

[-- Attachment #2: Type: message/rfc822, Size: 3716 bytes --]

From: "Joshua S." <viking_r@george24.com>
To: emacs-pretest-bug@gnu.org
Subject: 23.0.60; Info-dir-remove-duplicates fails to remove duplicates
Date: Wed, 03 Sep 2008 00:26:19 +0900
Message-ID: <48BD5B1B.3020409@george24.com>

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






[-- Attachment #3: Type: message/rfc822, Size: 1591 bytes --]

From: martin rudalics <rudalics@gmx.at>
To: 864-done@emacsbugs.donarmstrong.com
Cc: "Joshua S." <viking_r@george24.com>
Subject: Re: bug#864: 23.0.60;	Info-dir-remove-duplicates fails to remove duplicates
Date: Sun, 07 Sep 2008 12:05:31 +0200
Message-ID: <48C3A76B.1020604@gmx.at>

Fixed as

2008-09-04  Martin Rudalics  <rudalics@gmx.at>

	* 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