# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 964957797 0
# Node ID 87bca20b7a8328037d620993faad0f87c656ca15
# Parent  acbb1360c7151c30ead82ce98cc4baf91895de6b
(glasses-make-readable): Fix uncapitalization of
identifiers like `myXMLDocument'.

diff -r acbb1360c715 -r 87bca20b7a83 lisp/progmodes/glasses.el
--- a/lisp/progmodes/glasses.el	Sun Jul 30 11:49:38 2000 +0000
+++ b/lisp/progmodes/glasses.el	Sun Jul 30 11:49:57 2000 +0000
@@ -186,6 +186,8 @@
 		 (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 "\\<.")