From ff524b84a830cd647e8b17e35787b438e253d365 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 11 Jul 2001 01:40:16 +0000 Subject: (finder-insert-at-column): Also move to the next line if exactly at COLUMN. --- lisp/ChangeLog | 5 +++++ lisp/finder.el | 4 ++-- 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 + + * finder.el (finder-insert-at-column): Also move to the next line + if exactly at COLUMN. + 2001-07-10 Gerd Moellmann * 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 ;; 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)) -- cgit v1.2.3