dabbrev-expand and capitalization

dabbrev-expand and capitalization

[Karl Eichwalder]

`dabbrev-expand' must not de-capitalize words starting with umlauts like
Ä, Ö, or Ü.  Start emacs and enter:

    Das ist überraschend.  Über-!-

Pressing M-/ (M-x dabbrev-expand), I see the last word downcased:

    Das ist überraschend.  überraschend-!-


In GNU Emacs 22.0.50.5 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2006-01-15 on tux
X server distributor `The X.Org Foundation', version 11.0.60802000
configured using `configure '--prefix=/gnu''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: C
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: de_DE.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  auto-compression-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  line-number-mode: t

Recent input:
s t SPC ü b e r r a s c h e n d . SPC SPC Ü b e r M-/ 
M-/ <M-backspace> D a M-/ <M-backspace> Ü ¿ <backspace> 
M-/ M-/ <M-backspace> <M-backspace> <M-backspace> <M-backspace> 
C-x ) C-x ( D a s SPC i s t SPC ü b e r r a s c h n 
<backspace> e n d . SPC SPC Ü b e r M-/ C-x ) <return> 
<return> M-x i n s e r <tab> k <tab> <return> <return> 
M-x r e p <tab> <tab> p <tab> <backspace> o r <tab> 
<return>


-- 
http://www.gnu.franken.de/ke/                           |      ,__o
                                                        |    _-\_<,
                                                        |   (*)/'(*)
Key fingerprint = F138 B28F B7ED E0AC 1AB4  AA7F C90A 35C3 E9D0 5D1C

Re: dabbrev-expand and capitalization

[Andreas Schwab]

Karl Eichwalder <ke@gnu.franken.de> writes:

> `dabbrev-expand' must not de-capitalize words starting with umlauts like
> Ä, Ö, or Ü.  Start emacs and enter:
>
>     Das ist überraschend.  Über-!-
>
> Pressing M-/ (M-x dabbrev-expand), I see the last word downcased:
>
>     Das ist überraschend.  überraschend-!-

That was a bug in replace-match, which used NOCASEP on a character that
was not known to be not uppercase.  I have changed it to use UPPERCASEP
instead (with appropriate logic replacement).

Andreas.

-- 
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE Linux Products GmbH, Maxfeldstraße 5, 90409 Nürnberg, Germany
PGP key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."