Mercurial > emacs
comparison lisp/speedbar.el @ 74212:b90d5a3a62fb
(speedbar-timer-fn): Revert to old behaviour when not
in GUD mode.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 26 Nov 2006 23:08:36 +0000 |
| parents | 4dac62a8a77b |
| children | e3694f1cb928 f1d13e615070 |
comparison
equal
deleted
inserted
replaced
| 74211:b5b237361cae | 74212:b90d5a3a62fb |
|---|---|
| 2679 (progn | 2679 (progn |
| 2680 (speedbar-message | 2680 (speedbar-message |
| 2681 "Updating speedbar to special mode: %s...done" | 2681 "Updating speedbar to special mode: %s...done" |
| 2682 major-mode) | 2682 major-mode) |
| 2683 (speedbar-message nil)))) | 2683 (speedbar-message nil)))) |
| 2684 (speedbar-update-localized-contents)) | 2684 |
| 2685 ;; Update all the contents if directories change! | |
| 2686 (unless (and (or (member major-mode speedbar-ignored-modes) | |
| 2687 (eq af (speedbar-current-frame)) | |
| 2688 (not (buffer-file-name))) | |
| 2689 ;; Always update for GUD. | |
| 2690 (not (string-equal "GUD" | |
| 2691 speedbar-initial-expansion-list-name))) | |
| 2692 (speedbar-update-localized-contents))) | |
| 2685 (select-frame af)) | 2693 (select-frame af)) |
| 2686 ;; Now run stealthy updates of time-consuming items | 2694 ;; Now run stealthy updates of time-consuming items |
| 2687 (speedbar-stealthy-updates))))) | 2695 (speedbar-stealthy-updates))))) |
| 2688 (run-hooks 'speedbar-timer-hook)) | 2696 (run-hooks 'speedbar-timer-hook)) |
| 2689 | 2697 |