From a21822f8d10dd50b8e098150e8a8486a4d0f02ca Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 3 Sep 2001 08:20:54 +0000 Subject: [PATCH] (glasses-convert-to-unreadable): Consider underscores as in `glasses-make-readable'. --- lisp/progmodes/glasses.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5