Mercurial > emacs

comparison lisp/speedbar.el @ 111262:029e4783cbae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge changes from emacs-23 branch
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 31 Oct 2010 10:40:01 -0400
parents 511da81b16c5 516f3d80dac6
children 249a1455856a
comparison
equal deleted inserted replaced
111250:707dcc885f00 111262:029e4783cbae
1 ;;; speedbar --- quick access to files and tags in a frame 1 ;;; speedbar --- quick access to files and tags in a frame
2 2
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. 4 ;; 2005, 2006, 2007, 2008, 2009, 2010
5 ;; Free Software Foundation, Inc.
5 6
6 ;; Author: Eric M. Ludlam <zappo@gnu.org> 7 ;; Author: Eric M. Ludlam <zappo@gnu.org>
7 ;; Keywords: file, tags, tools 8 ;; Keywords: file, tags, tools
8 9
9 (defvar speedbar-version "1.0" 10 (defvar speedbar-version "1.0"
1126 (setq mode-name "Speedbar") 1127 (setq mode-name "Speedbar")
1127 (set-syntax-table speedbar-syntax-table) 1128 (set-syntax-table speedbar-syntax-table)
1128 (setq font-lock-keywords nil) ;; no font-locking please 1129 (setq font-lock-keywords nil) ;; no font-locking please
1129 (setq truncate-lines t) 1130 (setq truncate-lines t)
1130 (make-local-variable 'frame-title-format) 1131 (make-local-variable 'frame-title-format)
1131 (setq frame-title-format (concat "Speedbar " speedbar-version)) 1132 (setq frame-title-format (concat "Speedbar " speedbar-version)
1132 (setq case-fold-search nil) 1133 case-fold-search nil
1133 (toggle-read-only 1) 1134 buffer-read-only t)
1134 (speedbar-set-mode-line-format) 1135 (speedbar-set-mode-line-format)
1135 ;; Add in our dframe hooks. 1136 ;; Add in our dframe hooks.
1136 (if speedbar-track-mouse-flag 1137 (if speedbar-track-mouse-flag
1137 (setq dframe-track-mouse-function #'speedbar-track-mouse)) 1138 (setq dframe-track-mouse-function #'speedbar-track-mouse))
1138 (setq dframe-help-echo-function #'speedbar-item-info 1139 (setq dframe-help-echo-function #'speedbar-item-info
4140 (provide 'speedbar) 4141 (provide 'speedbar)
4141 4142
4142 ;; run load-time hooks 4143 ;; run load-time hooks
4143 (run-hooks 'speedbar-load-hook) 4144 (run-hooks 'speedbar-load-hook)
4144 4145
4145 ;; arch-tag: 4477e6d1-f78c-48b9-a503-387d3c9767d5
4146 ;;; speedbar ends here 4146 ;;; speedbar ends here