diff options
| author | Miles Bader <miles@gnu.org> | 2001-07-11 01:40:16 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2001-07-11 01:40:16 +0000 |
| commit | ff524b84a830cd647e8b17e35787b438e253d365 (patch) | |
| tree | 56a1621619ba28abcfdf9a9ea3bad29fc7c992ed /lisp/finder.el | |
| parent | 19da29f9b5f2c927ab0988b679f3d9eb7d38c5b6 (diff) | |
| download | emacs-ff524b84a830cd647e8b17e35787b438e253d365.tar.gz | |
(finder-insert-at-column): Also move to the next line if exactly at COLUMN.
Diffstat (limited to 'lisp/finder.el')
| -rw-r--r-- | lisp/finder.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |