Mercurial > emacs

diff lisp/dabbrev.el @ 15789:992fcf417a49

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 c994927cede4
children 63076f19cbc5
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))))