(glasses-make-readable): Consider

underscores too when separating a parenthesis.

2 files changed, 9 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b2b710168f..f2eead76bdc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-25  Milan Zamazal  <pdm@zamazal.org>
+
+        * progmodes/glasses.el (glasses-make-readable): Consider
+        underscores too when separating a parenthesis.
+
 2001-06-24  Eli Zaretskii  <eliz@is.elta.co.il>
 
         * bookmark.el (bookmark-insert-location, bookmark-bmenu-list)
diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el
index f1c81fe44b5..45c887e2c24 100644
--- a/lisp/progmodes/glasses.el
+++ b/lisp/progmodes/glasses.el
@@ -1,9 +1,9 @@
 ;;; glasses.el --- make cantReadThis readable
 
-;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
 
-;; Author: Milan Zamazal <pdm@freesoft.cz>
-;; Maintainer: Milan Zamazal <pdm@freesoft.cz>
+;; Author: Milan Zamazal <pdm@zamazal.org>
+;; Maintainer: Milan Zamazal <pdm@zamazal.org>
 ;; Keywords: tools
 
 ;; This file is part of GNU Emacs.
@@ -198,7 +198,7 @@ CATEGORY is the overlay category.  If it is nil, use the `glasses' category."
         ;; Parentheses
         (when glasses-separate-parentheses-p
           (goto-char beg)
-          (while (re-search-forward "[a-zA-Z]\\(\(\\)" end t)
+          (while (re-search-forward "[a-zA-Z]_*\\(\(\\)" end t)
             (glasses-make-overlay (match-beginning 1) (match-end 1)
                                   'glasses-parenthesis)))))))