comparison lisp/prim/simple.el @ 78:c7528f8e288d r20-0b34

Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 54cc21c15cbb
children 1ce6082ce73f
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
2663 (if blinkpos 2663 (if blinkpos
2664 (progn 2664 (progn
2665 (goto-char blinkpos) 2665 (goto-char blinkpos)
2666 (if (pos-visible-in-window-p) 2666 (if (pos-visible-in-window-p)
2667 (and blink-matching-paren-on-screen 2667 (and blink-matching-paren-on-screen
2668 (sit-for blink-matching-delay)) 2668 (progn
2669 (auto-show-make-point-visible)
2670 (sit-for blink-matching-delay)))
2669 (goto-char blinkpos) 2671 (goto-char blinkpos)
2670 (message 2672 (message
2671 "Matches %s" 2673 "Matches %s"
2672 ;; Show what precedes the open in its line, if anything. 2674 ;; Show what precedes the open in its line, if anything.
2673 (if (save-excursion 2675 (if (save-excursion