Mercurial > emacs
changeset 15789:992fcf417a49
(dabbrev--substitute-expansion): Use just ABBREV, not OLD, in previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 27 Jul 1996 04:09:13 +0000 |
| parents | e8e74fb6da7d |
| children | fb5e87397205 |
| files | lisp/dabbrev.el |
| diffstat | 1 files changed, 4 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dabbrev.el Sat Jul 27 02:44:27 1996 +0000 +++ b/lisp/dabbrev.el Sat Jul 27 04:09:13 1996 +0000 @@ -752,12 +752,10 @@ ;; matches the start of the expansion, ;; copy the expansion's case ;; instead of downcasing all the rest. - (if (and (string= (or old abbrev) - (substring expansion 0 (length (or old abbrev)))) - (not (string= (or old abbrev) - (downcase (or old abbrev)))) - (not (string= (or old abbrev) - (upcase (or old abbrev))))) + (if (and (string= abbrev + (substring expansion 0 (length abbrev))) + (not (string= abbrev (downcase abbrev))) + (not (string= abbrev (upcase abbrev)))) (setq use-case-replace nil) (if use-case-replace (setq expansion (downcase expansion))))