From caafcc32ad931e6fdcf93b3566fc6c1093fa99b1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 27 Jul 1996 04:09:13 +0000 Subject: [PATCH] (dabbrev--substitute-expansion): Use just ABBREV, not OLD, in previous change. --- lisp/dabbrev.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index f4250db1a77..ed17557170f 100644 --- a/lisp/dabbrev.el +++ b/lisp/dabbrev.el @@ -752,12 +752,10 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]." ;; 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)))) -- 2.39.5