Mercurial > emacs
comparison lisp/dabbrev.el @ 2713:fd3e1f2d7ae5
(dabbrev-expand): Delete a search-forward call
after the second replace-match.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 09 May 1993 23:18:30 +0000 |
| parents | 2c7997f249eb |
| children | ca1e006fff42 |
comparison
equal
deleted
inserted
replaced
| 2712:8291de1718d4 | 2713:fd3e1f2d7ae5 |
|---|---|
| 184 (downcase (substring expansion 1)))))) | 184 (downcase (substring expansion 1)))))) |
| 185 ;; First put back the original abbreviation with its original | 185 ;; First put back the original abbreviation with its original |
| 186 ;; case pattern. | 186 ;; case pattern. |
| 187 (save-excursion | 187 (save-excursion |
| 188 (replace-match abbrev t 'literal)) | 188 (replace-match abbrev t 'literal)) |
| 189 (search-forward abbrev) | 189 ;;; This used to be necessary, but no longer, |
| 190 ;;; because now point is preserved correctly above. | |
| 191 ;;; (search-forward abbrev) | |
| 190 (replace-match (if do-case (downcase expansion) expansion) | 192 (replace-match (if do-case (downcase expansion) expansion) |
| 191 (not do-case) | 193 (not do-case) |
| 192 'literal)) | 194 'literal)) |
| 193 ;; Save state for re-expand. | 195 ;; Save state for re-expand. |
| 194 (setq last-dabbrevs-abbreviation abbrev) | 196 (setq last-dabbrevs-abbreviation abbrev) |