Mercurial > hg > xemacs-beta
comparison lisp/prim/simple.el @ 12:bcdc7deadc19 r19-15b7
Import from CVS: tag r19-15b7
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:48:16 +0200 |
parents | 4b173ad71786 |
children | 9ee227acff29 |
comparison
equal
deleted
inserted
replaced
11:91ffe8bd52e4 | 12:bcdc7deadc19 |
---|---|
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 |