procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(dabbrev--substitute-expansion): Use just ABBREV, not OLD, in previous change.

Browse source
This commit is contained in:
Richard M. Stallman 1996-07-27 04:09:13 +00:00
parent 0e0ee79544
commit caafcc32ad
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/dabbrev.el
View file

@ -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))))