[Emacs-diffs] Changes to emacs/lisp/speedbar.el

[Richard M . Stallman]

Index: emacs/lisp/speedbar.el
diff -c emacs/lisp/speedbar.el:1.56 emacs/lisp/speedbar.el:1.57
*** emacs/lisp/speedbar.el:1.56 Sun Aug 22 10:58:16 2004
--- emacs/lisp/speedbar.el      Sun Aug 22 17:03:42 2004
***************
*** 665,670 ****
--- 665,677 ----
    "*Regexp matching files we don't want displayed in a speedbar buffer.
  It is generated from the variable `completion-ignored-extensions'")
  
+ ;; This can't be further down, since it is needed just after.
+ (defvar speedbar-file-regexp
+   (speedbar-extension-list-to-regex speedbar-supported-extension-expressions)
+   "Regular expression matching files we know how to expand.
+ Created from `speedbar-supported-extension-expression' with the
+ function `speedbar-extension-list-to-regex'")
+ 
  ;; this is dangerous to customize, because the defaults will probably
  ;; change in the future.
  (defcustom speedbar-supported-extension-expressions
***************
*** 700,711 ****
    :type 'boolean
    :version 21.4)
  
- (defvar speedbar-file-regexp
-   (speedbar-extension-list-to-regex speedbar-supported-extension-expressions)
-   "Regular expression matching files we know how to expand.
- Created from `speedbar-supported-extension-expression' with the
- function `speedbar-extension-list-to-regex'")
- 
  (defun speedbar-add-supported-extension (extension)
    "Add EXTENSION as a new supported extension for speedbar tagging.
  This should start with a `.' if it is not a complete file name, and
--- 707,712 ----
***************
*** 1295,1302 ****
      (toggle-read-only 1)
      (speedbar-set-mode-line-format)
      (if speedbar-xemacsp
!       (set (make-local-variable 'mouse-motion-handler)
!            'speedbar-track-mouse-xemacs)
        (if speedbar-track-mouse-flag
          (set (make-local-variable 'track-mouse) t))   ;this could be messy.
        (setq auto-show-mode nil))      ;no auto-show for Emacs
--- 1296,1304 ----
      (toggle-read-only 1)
      (speedbar-set-mode-line-format)
      (if speedbar-xemacsp
!       (with-no-warnings
!        (set (make-local-variable 'mouse-motion-handler)
!             'speedbar-track-mouse-xemacs))
        (if speedbar-track-mouse-flag
          (set (make-local-variable 'track-mouse) t))   ;this could be messy.
        (setq auto-show-mode nil))      ;no auto-show for Emacs
***************
*** 1345,1351 ****
  frame and window to be the currently active frame and window."
    (if (and (frame-live-p speedbar-frame)
           (or (not speedbar-xemacsp)
!              (specifier-instance has-modeline-p)))
        (save-excursion
        (set-buffer speedbar-buffer)
        (let* ((w (or (speedbar-frame-width) 20))
--- 1347,1354 ----
  frame and window to be the currently active frame and window."
    (if (and (frame-live-p speedbar-frame)
           (or (not speedbar-xemacsp)
!              (with-no-warnings
!               (specifier-instance has-modeline-p))))
        (save-excursion
        (set-buffer speedbar-buffer)
        (let* ((w (or (speedbar-frame-width) 20))
***************
*** 1546,1554 ****
      ;; This gets the cursor where the user can see it.
      (if (not (bolp)) (forward-char -1))
      (sit-for 0)
!     (if (< emacs-major-version 20)
!       (mouse-major-mode-menu e)
!       (mouse-major-mode-menu e nil))))
  
  (defun speedbar-hack-buffer-menu (e)
    "Control mouse 1 is buffer menu.
--- 1549,1555 ----
      ;; This gets the cursor where the user can see it.
      (if (not (bolp)) (forward-char -1))
      (sit-for 0)
!     (mouse-major-mode-menu e nil)))
  
  (defun speedbar-hack-buffer-menu (e)
    "Control mouse 1 is buffer menu.