diff options
Diffstat (limited to 'lisp/progmodes/glasses.el')
| -rw-r--r-- | lisp/progmodes/glasses.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el index c3f950b5da8..6ee32b0b3ee 100644 --- a/lisp/progmodes/glasses.el +++ b/lisp/progmodes/glasses.el @@ -1,6 +1,6 @@ ;;; glasses.el --- make cantReadThis readable -;; Copyright (C) 1999-2013 Free Software Foundation, Inc. +;; Copyright (C) 1999-2015 Free Software Foundation, Inc. ;; Author: Milan Zamazal <pdm@zamazal.org> ;; Maintainer: Milan Zamazal <pdm@zamazal.org> @@ -252,7 +252,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) (unless (glasses-parenthesis-exception-p (point-at-bol) (match-end 1)) (glasses-make-overlay (match-beginning 1) (match-end 1) 'glasses-parenthesis)))))))) @@ -291,7 +291,7 @@ recognized according to the current value of the variable `glasses-separator'." (goto-char (match-beginning 1))))) (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) (unless (glasses-parenthesis-exception-p (point-at-bol) (1+ (match-end 1))) (replace-match "" t nil nil 1))))))) ;; nil must be returned to allow use in write file hooks |