Mercurial > hg > xemacs-beta
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 |