Changeset 4079 for trunk/lisp/speedbar.el
- Timestamp:
- 2006年05月13日 11時31分18秒 (3 years ago)
- Files:
-
- trunk/lisp/speedbar.el (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/speedbar.el
r4058 r4079 2530 2530 (speedbar-message nil)))) 2531 2531 ;; Else, we can do a short cut. No text cache. 2532 (let ((cbd (expand-file-name default-directory)) 2533 ) 2532 (let ((cbd (expand-file-name default-directory))) 2534 2533 (set-buffer speedbar-buffer) 2535 2534 (speedbar-with-writable … … 2543 2542 (speedbar-reconfigure-keymaps) 2544 2543 (set-window-point window p) 2545 (set-window-start window start))) 2546 )))) 2544 (set-window-start window start))))))) 2547 2545 2548 2546 (defun speedbar-update-directory-contents () … … 2678 2676 (not (eq (frame-visible-p (speedbar-current-frame)) 'icon))) 2679 2677 (let ((af (selected-frame))) 2680 (save-window-excursion2681 2678 (dframe-select-attached-frame speedbar-frame) 2682 2679 ;; make sure we at least choose a window to … … 2705 2702 major-mode) 2706 2703 (speedbar-message nil)))) 2707 ;; Update all the contents if directories change! 2708 (if (or (member major-mode speedbar-ignored-modes) 2709 (eq af (speedbar-current-frame)) 2710 (not (buffer-file-name))) 2711 nil 2712 (speedbar-update-localized-contents) 2713 )) 2714 (select-frame af))) 2704 (speedbar-update-localized-contents)) 2705 (select-frame af)) 2715 2706 ;; Now run stealthy updates of time-consuming items 2716 2707 (speedbar-stealthy-updates)))))
