(glasses-make-readable): Fix uncapitalization of

identifiers like `myXMLDocument'.

(glasses-make-readable): Fix uncapitalization of
identifiers like `myXMLDocument'.
15cca6c4 · Gerd Moellmann · df5e6194 · 15cca6c4
Commit 15cca6c4 authored Jul 30, 2000 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

lisp/progmodes/glasses.el lisp/progmodes/glasses.el +2 -0

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