From 7aee34d3d744f8dc4a2cc22be7c111083c858df9 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 25 Jun 2001 10:04:27 +0000 Subject: [PATCH] (glasses-make-readable): Consider underscores too when separating a parenthesis. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/glasses.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5b2b710168f..f2eead76bdc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-06-25 Milan Zamazal + + * progmodes/glasses.el (glasses-make-readable): Consider + underscores too when separating a parenthesis. + 2001-06-24 Eli Zaretskii * bookmark.el (bookmark-insert-location, bookmark-bmenu-list) diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el index f1c81fe44b5..45c887e2c24 100644 --- a/lisp/progmodes/glasses.el +++ b/lisp/progmodes/glasses.el @@ -1,9 +1,9 @@ ;;; glasses.el --- make cantReadThis readable -;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. -;; Author: Milan Zamazal -;; Maintainer: Milan Zamazal +;; Author: Milan Zamazal +;; Maintainer: Milan Zamazal ;; Keywords: tools ;; This file is part of GNU Emacs. @@ -198,7 +198,7 @@ CATEGORY is the overlay category. If it is nil, use the `glasses' category." ;; Parentheses (when glasses-separate-parentheses-p (goto-char beg) - (while (re-search-forward "[a-zA-Z]\\(\(\\)" end t) + (while (re-search-forward "[a-zA-Z]_*\\(\(\\)" end t) (glasses-make-overlay (match-beginning 1) (match-end 1) 'glasses-parenthesis))))))) -- 2.39.5