Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 21:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(glasses-make-readable): Consider

Browse source 
underscores too when separating a parenthesis.
This commit is contained in:
Gerd Moellmann 2001-06-25 10:04:27 +00:00
parent a01325b85b
commit 7aee34d3d7
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2001-06-25 Milan Zamazal <pdm@zamazal.org>
* progmodes/glasses.el (glasses-make-readable): Consider
underscores too when separating a parenthesis.
2001-06-24 Eli Zaretskii <eliz@is.elta.co.il>
* bookmark.el (bookmark-insert-location, bookmark-bmenu-list)

8
lisp/progmodes/glasses.el
View file

@ -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 <pdm@freesoft.cz>
;; Maintainer: Milan Zamazal <pdm@freesoft.cz>
;; Author: Milan Zamazal <pdm@zamazal.org>
;; Maintainer: Milan Zamazal <pdm@zamazal.org>
;; 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)))))))