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

(glasses-make-readable): Fix uncapitalization of

Browse source 
identifiers like `myXMLDocument'.
This commit is contained in:
Gerd Moellmann 2000-07-30 11:49:57 +00:00
parent df5e6194c6
commit 15cca6c4f6
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/progmodes/glasses.el
View file

@ -186,6 +186,8 @@ CATEGORY is the overlay category. If it is nil, use the `glasses' category."
(o (glasses-make-overlay (match-beginning n) (match-end n))))
(goto-char (match-beginning n))
(when (and glasses-uncapitalize-p
(save-match-data
(looking-at "[A-Z]\\($\\|[^A-Z]\\)"))
(save-excursion
(save-match-data
(re-search-backward "\\<.")