diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-09-03 08:20:54 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-09-03 08:20:54 +0000 |
| commit | a21822f8d10dd50b8e098150e8a8486a4d0f02ca (patch) | |
| tree | 70b3e6310d4c79c6c285fc10ed29d41008ede5fe /lisp/progmodes | |
| parent | 79aa53817006fe2e688dfc58076cd69d75c9ccab (diff) | |
| download | emacs-a21822f8d10dd50b8e098150e8a8486a4d0f02ca.tar.gz | |
(glasses-convert-to-unreadable): Consider
underscores as in `glasses-make-readable'.
Diffstat (limited to 'lisp/progmodes')
| -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 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) |