1 files changed, 1 insertions, 1 deletions

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)