/[emacs]/emacs/lisp/speedbar.el
ViewVC logotype

Diff of /emacs/lisp/speedbar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.56 by dak, Sun Aug 22 10:58:16 2004 UTC revision 1.57 by rms, Sun Aug 22 17:03:42 2004 UTC
# Line 665  useful, such as version control." Line 665  useful, such as version control."
665    "*Regexp matching files we don't want displayed in a speedbar buffer.    "*Regexp matching files we don't want displayed in a speedbar buffer.
666  It is generated from the variable `completion-ignored-extensions'")  It is generated from the variable `completion-ignored-extensions'")
667    
668    ;; This can't be further down, since it is needed just after.
669    (defvar speedbar-file-regexp
670      (speedbar-extension-list-to-regex speedbar-supported-extension-expressions)
671      "Regular expression matching files we know how to expand.
672    Created from `speedbar-supported-extension-expression' with the
673    function `speedbar-extension-list-to-regex'")
674    
675  ;; this is dangerous to customize, because the defaults will probably  ;; this is dangerous to customize, because the defaults will probably
676  ;; change in the future.  ;; change in the future.
677  (defcustom speedbar-supported-extension-expressions  (defcustom speedbar-supported-extension-expressions
# Line 700  proportionally to the number of subdirs. Line 707  proportionally to the number of subdirs.
707    :type 'boolean    :type 'boolean
708    :version 21.4)    :version 21.4)
709    
 (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'")  
   
710  (defun speedbar-add-supported-extension (extension)  (defun speedbar-add-supported-extension (extension)
711    "Add EXTENSION as a new supported extension for speedbar tagging.    "Add EXTENSION as a new supported extension for speedbar tagging.
712  This should start with a `.' if it is not a complete file name, and  This should start with a `.' if it is not a complete file name, and
# Line 1295  in the selected file. Line 1296  in the selected file.
1296      (toggle-read-only 1)      (toggle-read-only 1)
1297      (speedbar-set-mode-line-format)      (speedbar-set-mode-line-format)
1298      (if speedbar-xemacsp      (if speedbar-xemacsp
1299          (set (make-local-variable 'mouse-motion-handler)          (with-no-warnings
1300               'speedbar-track-mouse-xemacs)           (set (make-local-variable 'mouse-motion-handler)
1301                  'speedbar-track-mouse-xemacs))
1302        (if speedbar-track-mouse-flag        (if speedbar-track-mouse-flag
1303            (set (make-local-variable 'track-mouse) t))   ;this could be messy.            (set (make-local-variable 'track-mouse) t))   ;this could be messy.
1304        (setq auto-show-mode nil))        ;no auto-show for Emacs        (setq auto-show-mode nil))        ;no auto-show for Emacs
# Line 1345  This gives visual indications of what is Line 1347  This gives visual indications of what is
1347  frame and window to be the currently active frame and window."  frame and window to be the currently active frame and window."
1348    (if (and (frame-live-p speedbar-frame)    (if (and (frame-live-p speedbar-frame)
1349             (or (not speedbar-xemacsp)             (or (not speedbar-xemacsp)
1350                 (specifier-instance has-modeline-p)))                 (with-no-warnings
1351                    (specifier-instance has-modeline-p))))
1352        (save-excursion        (save-excursion
1353          (set-buffer speedbar-buffer)          (set-buffer speedbar-buffer)
1354          (let* ((w (or (speedbar-frame-width) 20))          (let* ((w (or (speedbar-frame-width) 20))
# Line 1546  Must be bound to event E." Line 1549  Must be bound to event E."
1549      ;; This gets the cursor where the user can see it.      ;; This gets the cursor where the user can see it.
1550      (if (not (bolp)) (forward-char -1))      (if (not (bolp)) (forward-char -1))
1551      (sit-for 0)      (sit-for 0)
1552      (if (< emacs-major-version 20)      (mouse-major-mode-menu e nil)))
         (mouse-major-mode-menu e)  
       (mouse-major-mode-menu e nil))))  
1553    
1554  (defun speedbar-hack-buffer-menu (e)  (defun speedbar-hack-buffer-menu (e)
1555    "Control mouse 1 is buffer menu.    "Control mouse 1 is buffer menu.

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26