# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 993463434 0
# Node ID 2a85f81199248235650fd8a6dcbd1e375abd46bf
# Parent  8976a13492545b7b6d8ce3e96e39a3df9c314677
(glasses-make-readable): Consider
underscores too when separating a parenthesis.

diff -r 8976a1349254 -r 2a85f8119924 lisp/progmodes/glasses.el
--- a/lisp/progmodes/glasses.el	Sun Jun 24 13:16:33 2001 +0000
+++ b/lisp/progmodes/glasses.el	Mon Jun 25 10:03:54 2001 +0000
@@ -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 @@
 	;; 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)))))))