diff options
author | Gerd Moellmann <[email protected]> | 2001-09-03 08:20:54 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 2001-09-03 08:20:54 +0000 |
commit | a21822f8d10dd50b8e098150e8a8486a4d0f02ca (patch) | |
tree | 70b3e6310d4c79c6c285fc10ed29d41008ede5fe /lisp/progmodes/glasses.el | |
parent | 79aa53817006fe2e688dfc58076cd69d75c9ccab (diff) |
(glasses-convert-to-unreadable): Consider
underscores as in `glasses-make-readable'.
Diffstat (limited to 'lisp/progmodes/glasses.el')
-rw-r--r-- | lisp/progmodes/glasses.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el index 45c887e2c2..7ba294d53a 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) |