Mercurial > hg > xemacs-beta

comparison lisp/utils/finder.el @ 82:6a378aca36af r20-0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b91
author cvs
date Mon, 13 Aug 2007 09:07:36 +0200
parents 131b0175ea99
children 7d55a9ba150c
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
208 208
209 ;;; Now the retrieval code 209 ;;; Now the retrieval code
210 210
211 (defun finder-insert-at-column (column &rest strings) 211 (defun finder-insert-at-column (column &rest strings)
212 "Insert list of STRINGS, at column COLUMN." 212 "Insert list of STRINGS, at column COLUMN."
213 (if (> (current-column) column) (insert "\n")) 213 (if (>= (current-column) column) (insert "\n"))
214 (move-to-column column) 214 (move-to-column column)
215 (let ((col (current-column))) 215 (let ((col (current-column)))
216 (if (< col column) 216 (if (< col column)
217 (indent-to column) 217 (indent-to column)
218 (if (and (/= col column) 218 (if (and (/= col column)