# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 994815568 0
# Node ID 29beb6347e0998424a3daeaaba685c209c29aed2
# Parent  ce459e8fe8cafd6e1813ad9961aa56be95fd5084
(finder-insert-at-column): Also move to the next line if exactly at COLUMN.

diff -r ce459e8fe8ca -r 29beb6347e09 lisp/finder.el
--- a/lisp/finder.el	Tue Jul 10 19:51:27 2001 +0000
+++ b/lisp/finder.el	Wed Jul 11 01:39:28 2001 +0000
@@ -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 @@
 
 (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))