(finder-insert-at-column): Also move to the next line if exactly at COLUMN.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7121f7a6a37..d902dd8624b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-11  Miles Bader  <miles@gnu.org>
+
+        * finder.el (finder-insert-at-column): Also move to the next line
+        if exactly at COLUMN.
+
 2001-07-10  Gerd Moellmann  <gerd@gnu.org>
 
         * help.el (describe-function-1): When printing FUNCTION's
diff --git a/lisp/finder.el b/lisp/finder.el
index 73ff65f8fa9..a64e797a366 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -1,6 +1,6 @@
 ;;; finder.el --- topic & keyword-based code finder
 
-;; Copyright (C) 1992, 1997, 1998, 1999 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1997, 1998, 1999, 2001 Free Software Foundation, Inc.
 
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Created: 16 Jun 1992
@@ -184,7 +184,7 @@ no arguments compiles from `load-path'."
 
 (defun finder-insert-at-column (column &rest strings)
   "Insert, at column COLUMN, other args STRINGS."
-  (if (> (current-column) column) (insert "\n"))
+  (if (>= (current-column) column) (insert "\n"))
   (move-to-column column t)
   (apply 'insert strings))