# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 999505254 0
# Node ID 2fc21ed3beac53ce0e9dea489665c786ccf120cc
# Parent  7eeeae13a5efa08cbf7e7c2bfb64742efa17814d
(glasses-convert-to-unreadable): Consider
underscores as in `glasses-make-readable'.

diff -r 7eeeae13a5ef -r 2fc21ed3beac lisp/progmodes/glasses.el
--- a/lisp/progmodes/glasses.el	Mon Sep 03 08:03:53 2001 +0000
+++ b/lisp/progmodes/glasses.el	Mon Sep 03 08:20:54 2001 +0000
@@ -229,7 +229,7 @@
 	    (goto-char (match-end n))))
 	(when glasses-separate-parentheses-p
 	  (goto-char (point-min))
-	  (while (re-search-forward "[a-zA-Z]\\( \\)\(" nil t)
+	  (while (re-search-forward "[a-zA-Z]_*\\( \\)\(" nil t)
 	    (replace-match "" t nil nil 1))))))
   ;; nil must be returned to allow use in write file hooks
   nil)