Mercurial > emacs

comparison lisp/paren.el @ 13805:bff931d8f21a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(window-setup-hook): Clear blink-matching-paren-on-screen; don't touch blink-paren-function.
author Karl Heuer <kwzh@gnu.org>
date Thu, 21 Dec 1995 17:59:43 +0000
parents 24b73b514a8b
children 83f275dcd93a
comparison
equal deleted inserted replaced
13804:da3a679bbfac 13805:bff931d8f21a
128 (and show-paren-overlay-1 (overlay-buffer show-paren-overlay-1) 128 (and show-paren-overlay-1 (overlay-buffer show-paren-overlay-1)
129 (delete-overlay show-paren-overlay-1))))))) 129 (delete-overlay show-paren-overlay-1)))))))
130 130
131 (if window-system 131 (if window-system
132 (progn 132 (progn
133 (setq blink-paren-function nil) 133 (setq blink-matching-paren-on-screen nil)
134 (add-hook 'post-command-idle-hook 'show-paren-command-hook))) 134 (add-hook 'post-command-idle-hook 'show-paren-command-hook)))
135 ;;; This is in case paren.el is preloaded. 135 ;;; This is in case paren.el is preloaded.
136 (add-hook 'window-setup-hook 136 (add-hook 'window-setup-hook
137 (function (lambda () 137 (function (lambda ()
138 (if window-system 138 (if window-system
139 (progn 139 (progn
140 (setq blink-paren-function nil) 140 (setq blink-matching-paren-on-screen nil)
141 (add-hook 'post-command-idle-hook 141 (add-hook 'post-command-idle-hook
142 'show-paren-command-hook)))))) 142 'show-paren-command-hook))))))
143 (provide 'paren) 143 (provide 'paren)
144 144
145 ;;; paren.el ends here 145 ;;; paren.el ends here