Mercurial > emacs
comparison lisp/paren.el @ 77333:97456f440211
(show-paren-function): Fix last fix.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 20 Apr 2007 13:52:11 +0000 |
| parents | 276c15b45d4b |
| children | 5d313ba2e8de e6fdae9180d4 |
comparison
equal
deleted
inserted
replaced
| 77332:4682f67c9493 | 77333:97456f440211 |
|---|---|
| 251 (overlay-put show-paren-overlay 'face face)) | 251 (overlay-put show-paren-overlay 'face face)) |
| 252 ;; If there are continued lines, the above operations can | 252 ;; If there are continued lines, the above operations can |
| 253 ;; force redisplay to recenter the window (since there is no | 253 ;; force redisplay to recenter the window (since there is no |
| 254 ;; way for it to know that the overlay changes to the buffer | 254 ;; way for it to know that the overlay changes to the buffer |
| 255 ;; are harmless). So reset the window-start. | 255 ;; are harmless). So reset the window-start. |
| 256 (set-window-start (selected-window) window-start)) | 256 (unless (window-minibuffer-p) |
| 257 (set-window-start (selected-window) window-start))) | |
| 257 ;; show-paren-mode is nil in this buffer. | 258 ;; show-paren-mode is nil in this buffer. |
| 258 (and show-paren-overlay | 259 (and show-paren-overlay |
| 259 (delete-overlay show-paren-overlay)) | 260 (delete-overlay show-paren-overlay)) |
| 260 (and show-paren-overlay-1 | 261 (and show-paren-overlay-1 |
| 261 (delete-overlay show-paren-overlay-1)))) | 262 (delete-overlay show-paren-overlay-1)))) |