Mercurial > hg > xemacs-beta

comparison lisp/finder.el @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents b2472a1930f2
children 8626e4521993
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
204 (setq d (file-name-as-directory (or d "."))) 204 (setq d (file-name-as-directory (or d ".")))
205 (directory-files d nil "^[^=].*\\.el$"))))) 205 (directory-files d nil "^[^=].*\\.el$")))))
206 dirs) 206 dirs)
207 (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n") 207 (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n")
208 (kill-buffer "*finder-scratch*") 208 (kill-buffer "*finder-scratch*")
209 (eval-current-buffer) ;; So we get the new keyword list immediately 209 (unless noninteractive
210 (eval-current-buffer)) ; So we get the new keyword list immediately
210 (basic-save-buffer)))) 211 (basic-save-buffer))))
211 212
212 (defun finder-compile-keywords-make-dist () 213 (defun finder-compile-keywords-make-dist ()
213 "Regenerate `finder-inf.el' for the Emacs distribution." 214 "Regenerate `finder-inf.el' for the Emacs distribution."
214 (finder-compile-keywords default-directory)) 215 (finder-compile-keywords default-directory))