(glasses-make-readable): Consider

underscores too when separating a parenthesis.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b2b710168f840cbc2f2fe560e24ab0e2ffba1aa..f2eead76bdc8521f592a7cee437f30daf26aa077 100644 (file)
--- 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 f1c81fe44b5e5e6a3f1cf590e46d59115ccba48e..45c887e2c242216ee7e93bb7e3f72125114a9216 100644 (file)
--- 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)))))))