From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 3 Sep 2001 08:20:54 +0000 (+0000)
Subject: (glasses-convert-to-unreadable): Consider
X-Git-Tag: emacs-pretest-21.0.106~274
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a21822f8d10dd50b8e098150e8a8486a4d0f02ca;p=emacs.git

(glasses-convert-to-unreadable): Consider
underscores as in `glasses-make-readable'.
---

diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el
index 45c887e2c24..7ba294d53af 100644
--- a/lisp/progmodes/glasses.el
+++ b/lisp/progmodes/glasses.el
@@ -229,7 +229,7 @@ recognized according to the current value of the variable `glasses-separator'."
 	    (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)