Mercurial > emacs
comparison lisp/locate.el @ 67429:3ff7903b19d7
(locate): Disable undo in *Locate* buffer.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 09 Dec 2005 09:56:39 +0000 |
| parents | fda96ff4c7e5 |
| children | db0589c47898 |
comparison
equal
deleted
inserted
replaced
| 67428:9e33a6897729 | 67429:3ff7903b19d7 |
|---|---|
| 227 | 227 |
| 228 ;; Find the Locate buffer | 228 ;; Find the Locate buffer |
| 229 (save-window-excursion | 229 (save-window-excursion |
| 230 (set-buffer (get-buffer-create locate-buffer-name)) | 230 (set-buffer (get-buffer-create locate-buffer-name)) |
| 231 (locate-mode) | 231 (locate-mode) |
| 232 (let ((inhibit-read-only t)) | 232 (let ((inhibit-read-only t) |
| 233 (buffer-undo-list t)) | |
| 233 (erase-buffer) | 234 (erase-buffer) |
| 234 | 235 |
| 235 (setq locate-current-filter filter) | 236 (setq locate-current-filter filter) |
| 236 | 237 |
| 237 (if run-locate-command | 238 (if run-locate-command |