Mercurial > hg > xemacs-beta
comparison lisp/utils/finder.el @ 50:ee648375d8d6 r19-16b91
Import from CVS: tag r19-16b91
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:56:41 +0200 |
| parents | 0293115a14e9 |
| children | 131b0175ea99 |
comparison
equal
deleted
inserted
replaced
| 49:b46643e427ac | 50:ee648375d8d6 |
|---|---|
| 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 (kill-buffer "*finder-scratch*") | 201 (condition-case nil |
| 202 (kill-buffer "*finder-scratch*") | |
| 203 (t nil)) | |
| 202 (eval-current-buffer) ;; So we get the new keyword list immediately | 204 (eval-current-buffer) ;; So we get the new keyword list immediately |
| 203 (basic-save-buffer)))) | 205 (basic-save-buffer)))) |
| 204 | 206 |
| 205 (defun finder-compile-keywords-make-dist () | 207 (defun finder-compile-keywords-make-dist () |
| 206 "Regenerate `finder-inf.el' for the Emacs distribution." | 208 "Regenerate `finder-inf.el' for the Emacs distribution." |