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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7121f7a6a3759ef343586c135d2df0fa7d6bb984..d902dd8624b9b9e1e530653426c7f39d8301ced5 100644 (file)
--- 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 73ff65f8fa98b0c044dd0d07e7bc97417b55e7d3..a64e797a366ba68ca6130aba8283eae03889db6b 100644 (file)
--- 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))