diff options
| -rw-r--r-- | lisp/dabbrev.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index 0798b764c2b..db5fcacd077 100644 --- a/lisp/dabbrev.el +++ b/lisp/dabbrev.el | |||
| @@ -186,7 +186,9 @@ with the next possible expansion not yet tried." | |||
| 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)) |