From 15cca6c4f6b8751d22c0467a015bfb1880fe9fd8 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Sun, 30 Jul 2000 11:49:57 +0000
Subject: [PATCH] (glasses-make-readable): Fix uncapitalization of identifiers
 like `myXMLDocument'.

---
 lisp/progmodes/glasses.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el
index 9a4c18e19df..f59ce2b09e1 100644
--- a/lisp/progmodes/glasses.el
+++ b/lisp/progmodes/glasses.el
@@ -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 "\\<.")
-- 
2.39.2