comparison lisp/progmodes/glasses.el @ 90228:fa0da9b57058

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-82 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 542-553) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 116-121) - Merge from emacs--cvs-trunk--0 - Update from CVS

90227:10fe5fadaf89

			 (save-match-data
			   (re-search-backward "\\<.")
			   (looking-at glasses-uncapitalize-regexp))))
	      (overlay-put o 'invisible t)
	      (overlay-put o 'after-string (downcase (match-string n))))))
	;; Parentheses
	(when glasses-separate-parentheses-p
	  (goto-char beg)
	  (while (re-search-forward "[a-zA-Z]_*\\(\(\\)" end t)
	    (glasses-make-overlay (match-beginning 1) (match-end 1)

			separator separator)
		nil t)
	  (let ((n (if (match-string 1) 1 2)))
	    (replace-match "" t nil nil n)
	    (goto-char (match-end n))))
	(when glasses-separate-parentheses-p
	  (goto-char (point-min))
	  (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

90228:fa0da9b57058

			 (save-match-data
			   (re-search-backward "\\<.")
			   (looking-at glasses-uncapitalize-regexp))))
	      (overlay-put o 'invisible t)
	      (overlay-put o 'after-string (downcase (match-string n))))))
        ;; Separator change
        (unless (string= glasses-separator "_")
          (goto-char beg)
          (while (re-search-forward "[a-zA-Z0-9]\\(_+\\)[a-zA-Z0-9]" end t)
            (goto-char (match-beginning 1))
            (while (eql (char-after) ?\_)
              (let ((o (glasses-make-overlay (point) (1+ (point)))))
                ;; `concat' ensures the character properties won't merge
                (overlay-put o 'display (concat glasses-separator)))
              (forward-char))))
	;; Parentheses
	(when glasses-separate-parentheses-p
	  (goto-char beg)
	  (while (re-search-forward "[a-zA-Z]_*\\(\(\\)" end t)
	    (glasses-make-overlay (match-beginning 1) (match-end 1)

			separator separator)
		nil t)
	  (let ((n (if (match-string 1) 1 2)))
	    (replace-match "" t nil nil n)
	    (goto-char (match-end n))))
        (unless (string= glasses-separator "_")
          (goto-char (point-min))
          (while (re-search-forward (format "[a-zA-Z0-9]\\(%s+\\)[a-zA-Z0-9]"
                                            separator)
                                    nil t)
            (replace-match "_" nil nil nil 1)
            (goto-char (match-beginning 1))))
	(when glasses-separate-parentheses-p
	  (goto-char (point-min))
	  (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