Mercurial > emacs
comparison lisp/completion.el @ 8156:fb7e3b74a18e
(save-completions-to-file): Use delete-old-versions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 06 Jul 1994 21:33:56 +0000 |
| parents | f7f69d049b0b |
| children | 0107ce4d48af |
comparison
equal
deleted
inserted
replaced
| 8155:ad36865ac28e | 8156:fb7e3b74a18e |
|---|---|
| 2210 (when (file-writable-p filename) | 2210 (when (file-writable-p filename) |
| 2211 (if (not cmpl-initialized-p) | 2211 (if (not cmpl-initialized-p) |
| 2212 (initialize-completions));; make sure everything's loaded | 2212 (initialize-completions));; make sure everything's loaded |
| 2213 (message "Saving completions to file %s" filename) | 2213 (message "Saving completions to file %s" filename) |
| 2214 | 2214 |
| 2215 (let* ((trim-versions-without-asking t) | 2215 (let* ((delete-old-versions t) |
| 2216 (kept-old-versions 0) | 2216 (kept-old-versions 0) |
| 2217 (kept-new-versions completions-file-versions-kept) | 2217 (kept-new-versions completions-file-versions-kept) |
| 2218 last-use-time | 2218 last-use-time |
| 2219 (current-time (cmpl-hours-since-origin)) | 2219 (current-time (cmpl-hours-since-origin)) |
| 2220 (total-in-db 0) | 2220 (total-in-db 0) |