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 | |
| parent | 19da29f9b5f2c927ab0988b679f3d9eb7d38c5b6 (diff) | |
| download | emacs-ff524b84a830cd647e8b17e35787b438e253d365.tar.gz | |
(finder-insert-at-column): Also move to the next line if exactly at COLUMN.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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 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)) |