Source

speedbar / rpm.el

Diff from to

File rpm.el

 ;;; rpm.el --- Manage Red Hat packages in emacs
 
-;;; Copyright (C) 1998, 1999, 2000 Eric M. Ludlam
+;;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Eric M. Ludlam
 
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Version: 1.0
   (define-key speedbar-buffers-key-map "\C-m" 'speedbar-edit-line)
   (define-key speedbar-buffers-key-map "+" 'speedbar-expand-line)
   (define-key speedbar-buffers-key-map "-" 'speedbar-contract-line)
+  (define-key speedbar-buffers-key-map "=" 'speedbar-contract-line)
 
   )
 
 			     ((?_ . "w") (?/ . "w"))))
   (run-hooks 'rpm-info-hook))
 
+;;;###autoload
 (defun rpm ()
   "Red Hat Package Management in Emacs."
   (interactive)
   "Create buttons in speedbar that represents the current rpm system.
 Takes DIRECTORY and ZERO, which are both ignored."
   (rpm-fetch-system)
-  (let ((speedbar-tag-hierarchy-method '(sort)))
+  (let ((speedbar-tag-hierarchy-method '(speedbar-sort-tag-hierarchy)))
     (speedbar-insert-generic-list -1 rpm-system 'rpm-tag-expand 'rpm-tag-find)))
 
 (defun rpm-tag-expand (text token indent)
 	 (speedbar-with-writable
 	   (save-excursion
 	     (end-of-line) (forward-char 1)
-	     (let ((speedbar-tag-hierarchy-method '(sort)))
+	     (let ((speedbar-tag-hierarchy-method '(speedbar-sort-tag-hierarchy)))
 	       (speedbar-insert-generic-list indent
 					     token
 					     'rpm-tag-expand