diff options
| author | Gerd Moellmann | 2001-09-03 08:20:54 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-09-03 08:20:54 +0000 |
| commit | a21822f8d10dd50b8e098150e8a8486a4d0f02ca (patch) | |
| tree | 70b3e6310d4c79c6c285fc10ed29d41008ede5fe | |
| parent | 79aa53817006fe2e688dfc58076cd69d75c9ccab (diff) | |
| download | emacs-a21822f8d10dd50b8e098150e8a8486a4d0f02ca.tar.gz emacs-a21822f8d10dd50b8e098150e8a8486a4d0f02ca.zip | |
(glasses-convert-to-unreadable): Consider
underscores as in `glasses-make-readable'.
| -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'." | |||
| 229 | (goto-char (match-end n)))) | 229 | (goto-char (match-end n)))) |
| 230 | (when glasses-separate-parentheses-p | 230 | (when glasses-separate-parentheses-p |
| 231 | (goto-char (point-min)) | 231 | (goto-char (point-min)) |
| 232 | (while (re-search-forward "[a-zA-Z]\\( \\)\(" nil t) | 232 | (while (re-search-forward "[a-zA-Z]_*\\( \\)\(" nil t) |
| 233 | (replace-match "" t nil nil 1)))))) | 233 | (replace-match "" t nil nil 1)))))) |
| 234 | ;; nil must be returned to allow use in write file hooks | 234 | ;; nil must be returned to allow use in write file hooks |
| 235 | nil) | 235 | nil) |