From: Gerd Moellmann <gerd@gnu.org>
Date: Sun, 30 Jul 2000 11:49:57 +0000 (+0000)
Subject: (glasses-make-readable): Fix uncapitalization of
X-Git-Tag: emacs-pretest-21.0.90~2549
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15cca6c4f6b8751d22c0467a015bfb1880fe9fd8;p=emacs.git

(glasses-make-readable): Fix uncapitalization of
identifiers like `myXMLDocument'.
---

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 "\\<.")