Mercurial > hg > xemacs-beta

comparison lisp/utils/finder.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents ac2d302a0011
children ee648375d8d6
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
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)