From xemacs-m  Sat Jan 11 15:13:27 1997
Received: from dorsey.corp.teradyne.com (dorsey.corp.teradyne.com [131.101.17.251])
          by xemacs.org (8.8.4/8.8.4) with ESMTP
	  id PAA28218 for <xemacs-beta@xemacs.org>; Sat, 11 Jan 1997 15:13:26 -0600 (CST)
Received: from kiki.icd.teradyne.com (kiki.icd.teradyne.com [131.101.1.30]) by dorsey.corp.teradyne.com (8.7.1/8.7.1) with ESMTP id QAA03935; Sat, 11 Jan 1997 16:12:55 -0500 (EST)
Received: from spacely.icd.teradyne.com (spacely.icd.teradyne.com [131.101.10.9]) by kiki.icd.teradyne.com (8.7.1/8.7.1) with SMTP id QAA15207; Sat, 11 Jan 1997 16:07:27 -0500 (EST)
Received: from spacely by spacely.icd.teradyne.com (SMI-8.6/SMI-SVR4)
	id QAA05361; Sat, 11 Jan 1997 16:09:42 -0500
Message-Id: <199701112109.QAA05361@spacely.icd.teradyne.com>
X-Mailer: exmh version 2.0beta (patched 1/7/97)
To: xemacs-beta@xemacs.org
cc: "Eric S. Raymond" <esr@snark.thyrsus.com>
reply-to: acs@acm.org
Subject: tiny bug in finder
Mime-Version: 1.0
Content-Type: multipart/mixed ;
	boundary="==_Exmh_-110111610"
Date: Sat, 11 Jan 1997 16:09:41 -0500
From: Vinnie Shelton  <shelton@icd.teradyne.com>

This is a multipart MIME message.

--==_Exmh_-110111610
Content-Type: text/plain; charset=us-ascii

I recently found out about C-h p, which gives help on elisp packages.
(It's really cool for navigating the lisp code!)  I found a minor bug in
finder.el.  If a package filename was 16 characters long, like
"hyper-apropos.el", then the description text, 
instead of being started on the next line, would start smack up against the 
entry, which prevented selecting the package.  This one-character patch
fixes that.

vin


--==_Exmh_-110111610
Content-Type: application/x-patch ; name="finder.patch"
Content-Description: finder.patch
Content-Disposition: attachment; filename="finder.patch"

--- lisp/utils/finder.el.orig	Wed Dec 18 17:43:01 1996
+++ lisp/utils/finder.el	Sat Jan 11 15:57:04 1997
@@ -210,7 +210,7 @@
 
 (defun finder-insert-at-column (column &rest strings)
   "Insert list of STRINGS, at column COLUMN."
-  (if (> (current-column) column) (insert "\n"))
+  (if (>= (current-column) column) (insert "\n"))
   (move-to-column column)
   (let ((col (current-column)))
     (if (< col column)

--==_Exmh_-110111610--


