mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Miles Bader 2001-07-11 01:40:16 +00:00
parent 19da29f9b5
commit ff524b84a8
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

4
lisp/finder.el
View File

@ -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))