# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 859748787 0
# Node ID b712c50d2c84aeb9db598efd5d752905f1beaf79
# Parent  76bfab081263fb00d90514cdabedc52ea1861e29
(dabbrev--substitute-expansion):
Change criterion for copying expansion's case pattern.
Do this now if expansion case varies after the first char.

diff -r 76bfab081263 -r b712c50d2c84 lisp/dabbrev.el
--- a/lisp/dabbrev.el	Sun Mar 30 07:05:14 1997 +0000
+++ b/lisp/dabbrev.el	Sun Mar 30 19:06:27 1997 +0000
@@ -765,15 +765,21 @@
     (and nil use-case-replace
 	 (setq old (concat abbrev (or old "")))
 	 (setq expansion (concat abbrev expansion)))
-    ;; If the given abbrev is mixed case and its case pattern
+    ;; If the expansion has mixed case
+    ;; and it is not simply a capitalized word,
+    ;; or if the abbrev has mixed case,
+    ;; and if the given abbrev's case pattern
     ;; matches the start of the expansion,
     ;; copy the expansion's case
     ;; instead of downcasing all the rest.
-    (if (and (string= abbrev
-		      (substring expansion 0 (length abbrev)))
-	     (not (string= abbrev (downcase abbrev)))
-	     (not (string= abbrev (upcase abbrev))))
-	(setq use-case-replace nil))
+    (let ((expansion-rest (substring expansion 1)))
+      (if (and (not (and (or (string= expansion-rest (downcase expansion-rest))
+			     (string= expansion-rest (upcase expansion-rest)))
+			 (or (string= abbrev (downcase abbrev))
+			     (string= abbrev (upcase abbrev)))))
+	       (string= abbrev
+			(substring expansion 0 (length abbrev))))
+	  (setq use-case-replace nil)))
     (if (equal abbrev " ")
 	(setq use-case-replace nil))
     (if use-case-replace