Mercurial > emacs
comparison lisp/button.el @ 76870:4d65750e175f
Minor tweak.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 01 Apr 2007 17:13:35 +0000 |
| parents | c93f4d8744d5 |
| children | d5c29aa724b3 4ef881a120fe |
comparison
equal
deleted
inserted
replaced
| 76869:c93f4d8744d5 | 76870:4d65750e175f |
|---|---|
| 379 (button-start button) 'button)) | 379 (button-start button) 'button)) |
| 380 (let ((new-button (button-at pos))) | 380 (let ((new-button (button-at pos))) |
| 381 (if new-button | 381 (if new-button |
| 382 ;; We are in a button again; this can happen if there | 382 ;; We are in a button again; this can happen if there |
| 383 ;; are adjacent buttons (or at bob). | 383 ;; are adjacent buttons (or at bob). |
| 384 (unless (eq new-button button) new-button) | 384 (unless (= pos (button-start button)) new-button) |
| 385 ;; We are now in the space between buttons. | 385 ;; We are now in the space between buttons. |
| 386 (previous-button pos)))) | 386 (previous-button pos)))) |
| 387 ;; We started out in the space between buttons. | 387 ;; We started out in the space between buttons. |
| 388 (setq pos (previous-single-char-property-change pos 'button)) | 388 (setq pos (previous-single-char-property-change pos 'button)) |
| 389 (or (button-at pos) | 389 (or (button-at pos) |