Mercurial > emacs
changeset 38359:29beb6347e09
(finder-insert-at-column): Also move to the next line if exactly at COLUMN.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 11 Jul 2001 01:39:28 +0000 |
| parents | ce459e8fe8ca |
| children | 88e478de063c |
| files | lisp/finder.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))