Mercurial > emacs
comparison lisp/isearch.el @ 26350:3b7a732fbde2
(isearch-ring-advance-edit, isearch-complete-edit):
Use delete-field instead of erase-field.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 04 Nov 1999 20:43:05 +0000 |
| parents | e0f465df598c |
| children | 698ac7a47cc1 |
comparison
equal
deleted
inserted
replaced
| 26349:e3e54e862d5f | 26350:3b7a732fbde2 |
|---|---|
| 1322 (set yank-pointer-name | 1322 (set yank-pointer-name |
| 1323 (setq yank-pointer | 1323 (setq yank-pointer |
| 1324 (mod (- (or yank-pointer 0) n) | 1324 (mod (- (or yank-pointer 0) n) |
| 1325 length))) | 1325 length))) |
| 1326 | 1326 |
| 1327 (erase-field) | 1327 (delete-field) |
| 1328 (insert (nth yank-pointer ring)) | 1328 (insert (nth yank-pointer ring)) |
| 1329 (goto-char (point-max))))) | 1329 (goto-char (point-max))))) |
| 1330 | 1330 |
| 1331 (defun isearch-ring-retreat-edit (n) | 1331 (defun isearch-ring-retreat-edit (n) |
| 1332 "Insert the previous element of the search history into the minibuffer. | 1332 "Insert the previous element of the search history into the minibuffer. |
| 1391 "Same as `isearch-complete' except in the minibuffer." | 1391 "Same as `isearch-complete' except in the minibuffer." |
| 1392 (interactive) | 1392 (interactive) |
| 1393 (setq isearch-string (buffer-string)) | 1393 (setq isearch-string (buffer-string)) |
| 1394 (if (isearch-complete1) | 1394 (if (isearch-complete1) |
| 1395 (progn | 1395 (progn |
| 1396 (erase-field) | 1396 (delete-field) |
| 1397 (insert isearch-string)))) | 1397 (insert isearch-string)))) |
| 1398 | 1398 |
| 1399 | 1399 |
| 1400 ;; The search status stack (and isearch window-local variables, not used). | 1400 ;; The search status stack (and isearch window-local variables, not used). |
| 1401 ;; Need a structure for this. | 1401 ;; Need a structure for this. |