mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(glasses-convert-to-unreadable): Consider

Browse Source 
underscores as in `glasses-make-readable'.
This commit is contained in:
Gerd Moellmann 2001-09-03 08:20:54 +00:00
parent 79aa538170
commit a21822f8d1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/progmodes/glasses.el
View File

@ -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)