Mercurial > hg > xemacs-beta

comparison lisp/utils/finder.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents ee648375d8d6
children 6a378aca36af
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
196 nil 196 nil
197 (setq d (file-name-as-directory (or d "."))) 197 (setq d (file-name-as-directory (or d ".")))
198 (directory-files d nil "^[^=].*\\.el$"))))) 198 (directory-files d nil "^[^=].*\\.el$")))))
199 dirs) 199 dirs)
200 (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n") 200 (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n")
201 (condition-case nil 201 (kill-buffer "*finder-scratch*")
202 (kill-buffer "*finder-scratch*")
203 (t nil))
204 (eval-current-buffer) ;; So we get the new keyword list immediately 202 (eval-current-buffer) ;; So we get the new keyword list immediately
205 (basic-save-buffer)))) 203 (basic-save-buffer))))
206 204
207 (defun finder-compile-keywords-make-dist () 205 (defun finder-compile-keywords-make-dist ()
208 "Regenerate `finder-inf.el' for the Emacs distribution." 206 "Regenerate `finder-inf.el' for the Emacs distribution."
210 208
211 ;;; Now the retrieval code 209 ;;; Now the retrieval code
212 210
213 (defun finder-insert-at-column (column &rest strings) 211 (defun finder-insert-at-column (column &rest strings)
214 "Insert list of STRINGS, at column COLUMN." 212 "Insert list of STRINGS, at column COLUMN."
215 (if (>= (current-column) column) (insert "\n")) 213 (if (> (current-column) column) (insert "\n"))
216 (move-to-column column) 214 (move-to-column column)
217 (let ((col (current-column))) 215 (let ((col (current-column)))
218 (if (< col column) 216 (if (< col column)
219 (indent-to column) 217 (indent-to column)
220 (if (and (/= col column) 218 (if (and (/= col column)